progressbar, InitUnits, SplashScreen

[Bummi]

Delphi-Quellcode:

program Project3;

uses
  Forms,Windows,
  Unit5 in 'Unit5.pas' {Form5},
  Unit6 in 'Unit6.pas' {Splash};

{$R *.res}

begin
  Application.Initialize;
  Splash :=Tsplash.Create(Application);
  Splash.Show;
{nur zur Demo hier, kann auch in Deinem Mainform, Datenmodul oder sonstwo passieren
}
  Sleep(2000);
  Splash.Free;



  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm5, Form5);
  Application.Run;
end.