Inno Setup Splash Screen?

[citybreaker]

Hallo,
kann bei Inno Setup so einer Art Splash Screen beim Start des
Programmes einblenden?!

[TimonWorld]

Hier:

[code=delphi]; Inno Setup mit Splash
[Setup]
AppName=SetupVisible
AppVerName=SetupVisible v1.0
CreateAppDir=no
DisableProgramGroupPage=yes
DefaultGroupName=My Program
;UninstallDisplayIcon={app}\MyProg.exe
;WindowVisible=yes

[Files]
;Hier die Bilddatei für das Splash:
Source: "C:\Programme\Inno Setup 4\Examples\Classic\DatabaseClassic02.bmp"; DestName: "Splash.bmp"; Flags: dontcopy nocompression

Code:

var Splash   : TSetupForm;

function InitializeSetup(): Boolean;
var
  BitmapImage1 : TBitmapImage;
begin
  Splash := CreateCustomForm;
  Splash.BorderStyle := bsNone;

  BitmapImage1 := TBitmapImage.Create(Splash);
  BitmapImage1.AutoSize := True;
  BitmapImage1.Align := alClient;
  BitmapImage1.Left := 0;
  BitmapImage1.Top := 0;
  BitmapImage1.stretch := True;
  BitmapImage1.Parent := Splash;

  ExtractTemporaryFile('Splash.bmp');
  BitmapImage1.Bitmap.LoadFromFile(ExpandConstant('{tmp}') + '\Splash.bmp');

  Splash.Width := BitmapImage1.Width;
  Splash.Height := BitmapImage1.Height;
  Splash.Center;
  Splash.Show;

  BitmapImage1.Refresh;

  Sleep(2000)

  Result := True;
end;

procedure InitializeWizard();
begin
  Splash.Close;
end;

Habe ich selbst mal geschriben :wink: funktioniert bei IS 4 und 5 bei älteren versionen weiß ich nicht!!!