Click here to Skip to main content
15,566,096 members
Please Sign up or sign in to vote.
1.00/5 (2 votes)
See more:
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;
Posted

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900