VCL里面的的实现

program ZhouFamily; uses Vcl.Forms, Winapi.Windows, FrmZhouFamilyMainU in ‘FrmZhouFamilyMainU.pas‘ {FrmZhouFamilyMain} , SplashFormU in ‘SplashFormU.pas‘ {SplashForm} , DmU in ‘DmU.pas‘ {DM: TDataModule}; var Timestart, timeend: dword; begin Application.Initialize; Application.MainFormOnTaskbar := True; SplashForm := TSplashForm.Create(Application); SplashForm.Show; SplashForm.Update; Timestart := gettickcount; Application.CreateForm(TDM, DM); // 数据模块加载 Application.CreateForm(TFrmZhouFamilyMain, FrmZhouFamilyMain); // 主窗口加载 timeend := gettickcount; if timeend - Timestart < 1000 then begin sleep(1000 - (timeend - Timestart)); end; SplashForm.Hide; SplashForm.Free; Application.Run; end.