Here is my (disguised) Inno file
[Setup]
various entries
[Dirs]
Name: {app}
various entries
[Tasks]
Name: desktopicon; Description: Create a &Desktop icon; GroupDescription: Additional icons:
Name: quicklaunchicon; Description: Create a &Quick Launch icon; GroupDescription: Additional icons:
[Files]
Source: U:\Dev\_FoxPro\Dist_Folders\MyApp_Dist\CSV\*.csv; DestDir: {userdocs}\MyApp Reports\CSV ; Flags: ignoreversion
Source: U:\Dev\_FoxPro\Dist_Folders\MyApp_Dist\CSV\*.csv; DestDir: "{app}"; Flags: ignoreversion
Source: U:\DEV\_FoxPro\Dist_Folders\MyApp_Dist\ImageViewer2.OCX; DestDir: "{app}"; Flags: regserver ignoreversion
Source: U:\Dev\_FoxPro\Dist_Folders\MyApp_Dist\*.*; DestDir: "{app}"; Flags: ignoreversion
Source: U:\Dev\_FoxPro\Dist_Folders\MyApp_Dist\Programfull\*.*; DestDir: "{app}"; Flags: ignoreversion
Source: U:\Dev\_FoxPro\Dist_Folders\Runtimes\*.*; DestDir: "{app}"; Flags: ignoreversion
Source:U:\DEV\OCXTest\ImageViewer2.OCX; DestDir: "{app}"; Flags: regserver ignoreversion
Source:U:\DEV\OCXTest\*.* ; DestDir: "{app}"; Flags: ignoreversion
Name: {group}\MyApp; Filename: {app}\MyApp.exe; WorkingDir: {app}
Name: {group}\Uninstall MyApp; Filename: {uninstallexe}
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\MyApp;Filename: {app}\MyApp.exe; IconFilename: {app}\MyApp.ico; WorkingDir: {app};Tasks: quicklaunchicon
Name: {userdesktop}\MyApp; Filename: {app}\MyApp.exe; WorkingDir: {app}; IconFilename: {app}\MyApp.ico; Tasks: desktopicon
[Install]
Type: files; Name: "U:\_OUTPUT\MyAppSetup"
OutputDir=U:\_OUTPUT
Filename: {app}\MyApp.exe; Description: Launch MyApp!; Flags: nowait postinstall skipifsilent
Code:
procedure InitializeWizard();
var
SplashImage: TBitmapImage;
SplashForm: TForm;
SplashFileName: String;
I : Integer;
begin
SplashFileName := ExpandConstant('{tmp}\splash2.bmp');
ExtractTemporaryFile(ExtractFileName(SplashFileName));
SplashForm := TForm.create(nil);
with SplashForm do
begin
BorderStyle := bsNone;
Position := poScreenCenter;
// Adjust the height and width of the SplashForm to the size of your splash image
ClientWidth := 405;
ClientHeight := 310;
end;
SplashImage := TBitmapImage.Create(SplashForm);
with SplashImage do
begin
Bitmap.LoadFromFile(SplashFileName);
Stretch := true;
Align := alClient;
Parent := SplashForm;
end;
with SplashForm do
begin
Show;
Repaint;
// show for 4 seconds
for I := 1 to 4 do
begin
Sleep(1000);
end;
Close;
Free;
end;
end;
[Messages]
WizardInfoBefore=
GenDev
