DELPHI(VCL 및 FMX[Firemonkey]) 시작 시 환영 창 구현 코드

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.

program ZhouFamily;



uses

  FMX.Forms,

  System.SysUtils,

  FrmZhouFamilyMainU in 'FrmZhouFamilyMainU.pas' {FrmZhouFamilyMain} ,

  SplashFormU in 'SplashFormU.pas' {SplashForm} ,

  DmU in 'DmU.pas' {DM: TDataModule};



{$R *.res}



var

  Timestart, timeend: Tdatetime;



begin

  Application.Initialize;

  SplashForm := TSplashForm.Create(nil);

  Timestart := gettime;

  Application.ProcessMessages;

  Application.CreateForm(TDM, DM);

  Application.CreateForm(TFrmZhouFamilyMain, FrmZhouFamilyMain);

  Application.ProcessMessages;

  timeend := gettime;

  if timeend - Timestart < 1000 then

  begin

    sleep(1000 - trunc(timeend - Timestart));

  end;

  SplashForm.Hide;

  SplashForm.Free;

  Application.Run;



end.