delphi 实现Splash闪屏

program SplashApp;

uses

  SysUtils, Vcl.Forms,

  uSplashMain in 'uSplashMain.pas' {Form1},

  uSplashForm in 'uSplashForm.pas' {Form5};

{$R *.res}

begin

  Application.Initialize;

  Form5 := TForm5.Create(nil);

  try

    Application.MainFormOnTaskbar := True;

    Form5.Show;

    Form5.Update;

    Application.CreateForm(TForm1, Form1);

  Sleep(3000);

  finally

    Form5.Free;

  end;

  Application.Run;

end.