如何编写DELPHI中VCL及FMX启动欢迎窗口的代码？

本文共计115个文字，预计阅读时间需要1分钟。

VCL实现程序，ZhouFamily项目；包含Vcl.Forms、Winapi.Windows、FrmZhouFamilyMainU在FrmZhouFamilyMainU.pas中{FrmZhouFamilyMain}，SplashFormU在SplashFormU.pas中{SplashForm}，DmU在DmU.pas中{DM: TDat}。

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.