Inno Setup : Copier Dossier et fichier basé sur une checkbox.
Bonjour à tous.
Je suis face à un petit problème.
Je dois copier ou non les dossier Requete/Stat/Report en fonction que les cases à cocher correspondant soit coché ou non.
J'ai déjà la valeur des 3 cases à coché depuis
GetIfQueryIsToBeCopied
GetIfStatIsToBeCopied
GetIfReportIsToBeCopied
Citation:
; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
#define MyAppName "Mon programme"
#define MyAppVersion "7"
#define MyAppPublisher "Andry"
#define MyAppExeName "monprg.exe"
[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{1743E636-24EF-4F05-93FD-D635A19F92E1}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
DefaultDirName={pf}\Satelit Stock
DefaultGroupName={#MyAppName}
AllowNoIcons=yes
OutputDir=D:\Data\prg\Setup\Output
OutputBaseFilename=prg_setup
Compression=lzma
SolidCompression=yes
[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"
Name: "french"; MessagesFile: "compiler:Languages\French.isl"
[CustomMessages]
; Français
french.dbpagetitle=Base de donnée
french.dbpagetitleinfo=Accès à la base de donnée
french.dbpagedescription=Veuillez Specifier le serveur et l'alias de la base de donnée à utiliser.
french.dbpageserver=Serveur Firebird
french.dbpagealias=Alias Firebird
french.optpagetitle=Composants optionnels
french.optpagetitleinfo=Composants additionnels à installer
french.optpagedescription=Veuillez selectionner les composants aditionnels à installer.
french.optpagequery=Copier le dossier des Requête
french.optpagestat=Copier le dossier des Statistique
french.optpagereport=Copier le dossier des Etats
;English
english.dbpagetitle=Database
english.dbpagetitleinfo=Database configuration
english.dbpagedescription=Please, input the firebird server and the firebird alias to use.
english.server=Firebird Database
english.alias=Firebird Alias
english.optpagetitle=Optionnal Componnents
english.optpagetitleinfo=Additionnal Componnents to be installed
english.optpagedescription=Please select from the liste above the additionnal components you want to be installed.
english.optpagequery=Copy Query folder
english.optpagestat=Copy Statistic folder
english.optpagereport=Copy Reports folder
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked; OnlyBelowVersion: 0,6.1
[Files]
Source: "D:\Data\prg\Setup\SATELIT.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\Windows\System32\FBCLIENT.DLL"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Data\prg\Setup\Config\*"; DestDir: "{app}\Config"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "D:\Data\prg\Setup\skin\*"; DestDir: "{app}\Skin"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "D:\Data\prg\Setup\Requête\*"; DestDir: "{app}\Requête"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "D:\Data\prg\Setup\Stat\*"; DestDir: "{app}\Stat"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "D:\Data\prg\Setup\Report\*"; DestDir: "{app}\Report"; Flags: ignoreversion recursesubdirs createallsubdirs
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: quicklaunchicon
[Code]
var
DbPage : TInputQueryWizardPage;
OptPage : TInputOptionWizardPage;
procedure InitializeWizard;
begin
//Configueration de la base de donnée
DbPage := CreateInputQueryPage(wpSelectDir,
ExpandConstant('{cm:dbpagetitle}'),
ExpandConstant('{cm:dbpagetitleinfo}'),
ExpandConstant('{cm:dbpagedescription}'));
DbPage.Add(ExpandConstant('{cm:dbpageserver}'), False);
DbPage.Add(ExpandConstant('{cm:dbpagealias}'), False);
// Initialisation des valeurs par défaut.
DbPage.Values[0]:= 'LOCALHOST';
DbPage.Values[1]:= 'APP_ALIAS';
//Selection ou non des statistiques/Requete/Report
OptPage := CreateInputOptionPage(DbPage.ID,
ExpandConstant('{cm:optpagetitle}'),
ExpandConstant('{cm:optpagetitleinfo}'),
ExpandConstant('{cm:optpagedescription}'),
False, False);
OptPage.Add(ExpandConstant('{cm:optpagequery}'));
OptPage.Add(ExpandConstant('{cm:optpagestat}'));
OptPage.Add(ExpandConstant('{cm:optpagereport}'));
// Initialisation des valeurs
optPage.Values[0] := False;
optPage.Values[1] := False;
optPage.Values[2] := True;
end;
function GetFBServer(param : string) : String;
begin
Result := DbPage.Values[0];
end;
function GetFBAlias(param : string) : String;
begin
Result := DbPage.Values[1];
end;
function GetIfQueryIsToBeCopied : Boolean;
begin
Result := DbPage.Values[0];
end;
function GetIfStatIsToBeCopied : Boolean;
begin
Result := DbPage.Values[1];
end;
function GetIfReportIsToBeCopied: Boolean;
begin
Result := DbPage.Values[2];
end;
[INI]
Filename: {app}\Config\Satelit.ini; Section: PARAM; Key: NOMSERVEUR; String: {code:GetFBServer}
Filename: {app}\Config\Satelit.ini; Section: PARAM; Key: ALIAS; String: {code:GetFBAlias}
[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, "&", "&&")}}"; Flags: nowait postinstall skipifsilent
Merci
