How to pass the multiple parameters at atime through Pascal script
What I have tried:
; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
[Setup]
AppName=Datastudio
AppVersion=1.0
WizardStyle=modern
DefaultDirName={autopf}\Datastudio
DefaultGroupName=Datastudio
UninstallDisplayIcon={app}\ArangoDB3-3.7.15_win64.exe
Compression=lzma
SolidCompression=yes
OutputDir=C:\Users\Administrator\Desktop\New folder (2)
DisableWelcomePage=no
UserInfoPage=no
PrivilegesRequired=lowest
DisableDirPage=yes
DisableProgramGroupPage=yes
Password=Ge@321
[Files]
Source: "C:\Users\Administrator\Desktop\New folder\InstallDIR.bat"; DestDir: "{app}" ;
Source: "C:\Users\Administrator\Desktop\New folder\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
[Run]
Filename: "{app}\InstallDIR.bat"; Description: "{cm:LaunchProgram,{#StringChange("Datastudio" , '&', '&&')}}"; Parameters: {code:INSTALL_DIR};
Filename: "{app}\InstallDIR.bat"; Description: "{cm:LaunchProgram,{#StringChange("Datastudio" , '&', '&&')}}"; Parameters: {code:PASS};
[Code]
var
ConfigPage: TInputQueryWizardPage;
function INSTALL_DIR(Value: string): string;
begin
Result := ConfigPage.Values[0];
end;
procedure InitializeWizard;
begin
ConfigPage :=CreateInputQueryPage(
wpWelcome, 'ArangoDB Server dir', '',
'Please provide the path, then click Next to continue.');
ConfigPage.Add('INSTALLDIR*:', False);
ConfigPage.Values[0] := ExpandConstant('');
end;
var
InputQueryWizardPage: TInputQueryWizardPage;
function PASS(Value: string): string;
begin
Result := InputQueryWizardPage.Values[0];
end;
procedure InitializeWizard1;
begin
InputQueryWizardPage :=CreateInputQueryPage(
wpWelcome, 'ArangoDB Server dir', '',
'Please provide the path, then click Next to continue.');
InputQueryWizardPage.Add('INSTALLDIR*:', False);
InputQueryWizardPage.Values[0] := ExpandConstant('');
end;