csdemo.~dpr

飞思科技的书不错

program csDemo;

uses
  Forms,
  main in 'main.pas' {FrmMain},
  SplashForm in 'SplashForm.pas' {FrmSplash},
  UcsDemo in 'UcsDemo.pas' {DmCsDemo: TDataModule},
  UPwdDlg in 'UPwdDlg.pas' {FrmLogin},
  UcacheUpdate in 'UcacheUpdate.pas' {FrmCacheUpdate},
  UTransaction in 'UTransaction.pas' {FrmTransaction},
  UDlgAbout in 'UDlgAbout.pas' {DlgAbout};

{$R *.res}

begin
  Application.Initialize;
  FrmSplash := TFrmSplash.Create(Application);
  FrmSplash.Show;
  FrmSplash.Update;
  Application.CreateForm(TFrmLogin, FrmLogin);
  Application.CreateForm(TDmCsDemo, DmCsDemo);
  Application.CreateForm(TFrmMain, FrmMain);
  Application.CreateForm(TFrmCacheUpdate, FrmCacheUpdate);
  Application.CreateForm(TFrmTransaction, FrmTransaction);
  Application.CreateForm(TDlgAbout, DlgAbout);
  FrmSplash.Hide;
  FrmSplash.Free;
  Application.Run;
end.