Mega Code Archive
How to create a Splash Screen
<![CDATA[
Title: How to create a Splash Screen
program Project1;
uses
Forms,
Windows,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {SplashScreen};
{$R*.RES}
begin
SplashScreen:=TSplashScreen.Create(Application);
try
SplashScreen.Show;
Application.Initialize;
SplashScreen.Update;
Sleep(1000);//Or a delay command.
Application.CreateForm(TForm1,Form1);
SplashScreen.Hide;
finally
SplashScreen.Free;
end;
Application.Run;
end.
]]>