Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure CurPageChanged(CurPageID: Integer);
- begin
- If CurPageID=PageInstallationPersonnalisee.ID then
- begin
- ProgressBarLabelPageInstPerso.Caption := 'Initialisation...';
- if InstallTool1 = True then
- begin
- ProgressBarLabelPageInstPerso.Caption := 'Installing InstallTool1...';
- F_InstallTool1();
- end;
- if InstallTool2 = True then
- begin
- ProgressBarLabelPageInstPerso.Caption := 'Installing InstallTool2...';
- F_InstallTool2();
- end;
- if InstallTool3 = True then
- begin
- ProgressBarLabelPageInstPerso.Caption := 'Installing InstallTool3...';
- F_InstallTool3();
- end;
- ProgressBarPageInstPerso.Style := npbstMarquee;
- //ProgressBarPageInstPerso.Style := npbstNormal;
- ProgressBarPageInstPerso.Position := 100;
- CancelWithoutPrompt:=True;
- WizardForm.Close;
- end;
- end;
- [Setup]
- SolidCompression=no
- [Files]
- ;Temporary redists
- Source: "{#MyRessourcesPath}InstallTool1_Setup.exe"; DestDir: "{tmp}"; Flags: deleteafterinstall noencryption dontcopy
- Source: "{#MyRessourcesPath}InstallTool2_Setup.exe"; DestDir: "{tmp}"; Flags: deleteafterinstall noencryption dontcopy
- Source: "{#MyRessourcesPath}InstallTool3_Setup.exe"; DestDir: "{tmp}"; Flags: deleteafterinstall noencryption dontcopy
- [Files]
- ;Temporary redists
- Source: "{#MyRessourcesPath}InstallTool1_Setup.exe"; DestDir: "{tmp}";
- Flags: deleteafterinstall noencryption dontcopy; AfterInstall: Install1
- Source: "{#MyRessourcesPath}InstallTool2_Setup.exe"; DestDir: "{tmp}";
- Flags: deleteafterinstall noencryption dontcopy; AfterInstall: Install2
- Source: "{#MyRessourcesPath}InstallTool3_Setup.exe"; DestDir: "{tmp}";
- Flags: deleteafterinstall noencryption dontcopy; AfterInstall: Install3
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement