splashin.~dpr

来自「精彩编程百例26～50 其中有 控制任务栏 windows底层任务控制 屏保预览」· ~DPR 代码 · 共 20 行

program Splashin;

uses
  Forms,
  Main in 'MAIN.PAS' {MainForm},
  Splash in 'SPLASH.PAS' {SplashForm};

{$R *.RES}

begin
  //创建对象，并将其分配给SplashForm
  SplashForm := TSplashForm.Create(Application);
  SplashForm.Show;
  SplashForm.Update;   //显示并更新SplashForm
  Application.CreateForm(TMainForm, MainForm);
  SplashForm.Close;
  Application.Run;
end.