pascalscript

As part of an Inno Setup built installer, I want to output the text field that the user enters into the installer to a text file. So far I have the below: [Code] var PrimaryServerPage: TInputQueryWizardPage; PrimaryAddress: String; procedure InitializeWizard; begin PrimaryServerPage := CreateInputQueryPage(wpWelcome, 'Primary Server Details', 'Where is you application installed?', 'Please specify the IP address or hostname of your Primary Server, ' + 'then click Next.'); PrimaryServerPage.Add('Primary Server IP/Hostname:', false); PrimaryAddress := PrimaryServerPage.Values[0]; SaveStringToFile

I'm using Inno Setup to change the recycle bin in the OS. I need to make some cases for if the user is running Windows 7 or Windows XP. I try using: if not FileExists(winDir + '\System32\imageres.dll') then if not FileExists(winDir + '\System32\shell32.dll') then installError(3); But it seems like it can't find imageres.dll or shell32.dll even though I've verified they exist. What am I doing wrong? Or can I check the Windows version another way? You should use the GetWindowsVersionEx function. It fills a TWindowsVersion record: TWindowsVersion = record Major: Cardinal; // Major version number

How can I load and work with JSON config file during install time? I can read string from file and write it, but if I want to change some value in config file, I have to use VBScript.RegExp COM object (which is good, but painful and slow to develop). Current method: ExtractTemporaryFile('config.json'); filename := ExpandConstant('{tmp}\config.json'); LoadStringFromFile(filename, conf); objRegExp := CreateOleObject('VBScript.RegExp'); objRegExp.Pattern := 'test'; conf := objRegExp.Replace(conf, 'test_replace'); SaveStringToFile(filenameOut, conf, False); Is there a better way to do this? All I

I am currently installing .NET Framework 4.6.2 as a prerequisite in the PrepareToInstall event function so that I can obtain the exit code, set the NeedsReboot status, or abort if installation fails. My code is below and this is all working fine. var PrepareToInstallLabel: TNewStaticText; PrepareToInstallProgressBar: TNewProgressBar; intDotNetResultCode: Integer; CancelWithoutPrompt, AbortInstall: Boolean; function InitializeSetup(): Boolean; begin Result := True; OverwriteDB := False; CancelWithoutPrompt := False; AbortInstall := False; end; function PrepareToInstall(var NeedsRestart: Boolean

I need create custom page of two destination. I've done: #define MyAppName "TESTPROG" [Setup] AppName={#MyAppName} DefaultDirName=C:\test\{#MyAppName} DefaultGroupName={#MyAppName} [Code] var Page: TInputDirWizardPage; DataDir: String; procedure InitializeWizard; begin Page := CreateInputDirPage(wpWelcome, 'Select Personal Data Location', 'Where should personal data files be stored?', 'Personal data files will be stored in the following folder.'#13#10#13#10 + 'To continue, click Next. ' + 'If you would like to select a different folder, click Browse.', False, 'New Folder'); Page.Add('Local APP

Is there a way to run a [Code] procedure or PowerShell script in the Inno Setup compiler before the installation executable is generated? You may get better answers, if you explain what you need to run the code for. Anyway... One way is to compile the script on command-line from a batch file: powershell -file precompile.ps1 ISCC.exe setup.iss powershell -file postcompile.ps1 (or you can call ISCC.exe from the PowerShell script itself) Another way to run some script before compilation is using Exec preprocessor function . #expr Exec("precompile.bat") or #expr Exec("powershell -file precompile

How does one write to a binary file in Inno Setup script? It's a configuration file I want to edit in the PrepareToInstall step. The problem is that I'm looking at the support functions: TStream = class(TObject) function Read(Buffer: String; Count: Longint): Longint; function Write(Buffer: String; Count: Longint): Longint; function Seek(Offset: Longint; Origin: Word): Longint; procedure ReadBuffer(Buffer: String; Count: Longint); procedure WriteBuffer(Buffer: String; Count: Longint); function CopyFrom(Source: TStream; Count: Longint): Longint; property Position: Longint; read write; property