DELPHI（VCLとFMX [FireMonkeyの]）は、起動時にコードウィンドウの実現を歓迎しました

VCLは内部で達成しました

プログラムZhouFamily; 
 
使用
  Vcl.Forms、
  Winapi.Windows、
  FrmZhouFamilyMainUのに ' FrmZhouFamilyMainU.pas '  { FrmZhouFamilyMain } 、
  SplashFormU における ' SplashFormU.pas '  { SplashForm } 、
  DMU における ' DmU.pas '  { DM：TDataModule } 。
 
VAR 
  Timestart、timeend：DWORD; 
 
開始
 
  Application.Initializeを。
  Application.MainFormOnTaskbar： = 真; 
  SplashForm：= TSplashForm。作成（応用）。
  SplashForm.Show; 
  SplashForm.Update; 
  Timestart： = のGetTickCount。
  Application.CreateForm（TDM、DM）。// 数据模块加载 
  Application.CreateForm（TFrmZhouFamilyMain、FrmZhouFamilyMain）。// 主窗口加载 
  timeend：= のGetTickCount。
  場合 timeend - Timestart < 1000は 、その後
  始まる
    （スリープ1000 - （timeend - Timestart））;
  エンド; 
  SplashForm.Hide; 
  SplashForm.Free; 
  Application.Run; 
 
終わり。