qsplash1.dpr

来自「delphi6 programming example」· DPR 代码 · 共 27 行

program QSplash1;

uses
  QForms,
  MainSpF in 'MainSpF.pas' {Form1},
  AboutF in 'AboutF.pas' {AboutBox};

{$R *.res}

var
  SplashAbout: TAboutBox;

begin
  Application.Initialize;
  // create and show the splash form
  SplashAbout := TAboutBox.Create (Application);
  try
    SplashAbout.MakeSplash;
    // standard code...
    Application.CreateForm(TForm1, Form1);
  SplashAbout.Close;
  finally
    SplashAbout.Free;
  end;
  Application.Run;
end.