要作启动界面吧
program pkc;
uses
Forms,
SysUtils,
kc in 'kc.pas' {frmMain},
Memos in 'Memos.pas' {frmMemo},
setCode in 'setCode.pas' {frmSetCode},
about in 'about.pas' {AboutBox},
dm in 'dm.pas' {dm1: TDataModule},
flash in 'flash.pas' {frmFlash},
kcDetail in 'kcDetail.pas' {frmDetail};
{$R *.res}
begin
frmFlash := TfrmFlash.Create(nil);
frmFlash.Show;
frmFlash.Update;
Application.Initialize;
Application.CreateForm(Tdm1, dm1);
Application.CreateForm(TfrmMain, frmMain);
frmFlash.Hide;
FreeAndNil(frmFlash);
Application.Run;
end.