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
funktioniert bei IS 4 und 5 bei älteren versionen weiß ich nicht!!!