pascalscript - w3toppers.com

Copy folder, subfolders and files recursively in Inno Setup Code section

To recursively copy a directory programmatically use: procedure DirectoryCopy(SourcePath, DestPath: string); var FindRec: TFindRec; SourceFilePath: string; DestFilePath: string; begin if FindFirst(SourcePath + ‘\*’, FindRec) then begin try repeat if (FindRec.Name <> ‘.’) and (FindRec.Name <> ‘..’) then begin SourceFilePath := SourcePath + ‘\’ + FindRec.Name; DestFilePath := DestPath + ‘\’ + FindRec.Name; if FindRec.Attributes and … Read more

Inno Setup: How to manipulate progress bar on Run section?

It would be rather difficult to update the progress bar, while another process is running. I do not see a point of endeavoring it, as you are unlikely able to tell the progress of the sub-installer, so you won’t know what to update the progress bar to. Except for special cases, when the sub-installer provides … Read more

Run a [Code] or PowerShell script in Inno Setup compiler

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 … Read more

Multiple images display (slideshow) on wpInstalling Page under ProgressGauge bar in Inno Setup

Since the ProgressGauge has no progress change events and there is no way to process setup application messages you will need to use the Windows API timer. This timer needs a callback function which you can’t define in Inno Setup script unfortunately so you will need some external library to do this job for you. … Read more

“Identifier Expected” or “Invalid Prototype” when implementing a scripted constant in Inno Setup

Identifier expected Your code would be correct in a Pascal, but it does not compile in Pascal Script. In Pascal, when you want to assign a return value of a function, you either assign the value to a “variable” with a name of the function or to Result variable. So this is correct: function GetRoot: … Read more

How to parse a JSON string in Inno Setup?

You can use JsonParser library instead. It can parse JSON strings. It’s not as easy to use as JSONConfig.dll – but that’s the reason why it is more flexible. Also it’s a native Pascal Script code. So, it not only saves you from a temporary .json file, but also from a temporary .dll. The code … Read more

Inno Setup – Language selector with VCL Styles

The “Select Setup Language” dialog displays before the InitializeSetup event function is called. So you cannot load the skin for the dialog. As a workaround, you can implement your own “language” dialog, and display that from the InitializeSetup. This way the custom dialog will be skinned. Once a user selects a language, you restart the … Read more

Exit from Inno Setup installation from [Code]

To prevent the installer from running, when prerequisites test fails, just return False from the InitializeSetup. This will exit the installer even before the wizard shows. function InitializeSetup(): Boolean; begin Result := True; if not PrerequisitesTest then begin SuppressibleMsgBox(‘Prerequisites test failed’, mbError, MB_OK, IDOK); Result := False; end; end; If you need to test prerequisites … Read more

Inno Setup Placing image/control on custom page

That’s what TWizardPage.Surface of type TNewNotebookPage is for. with BtnImage do begin Parent := CustomPage.Surface; { … } end; Related questions: TInputDirWizardPage with Radio Buttons (Similar question about radio buttons with more code) Add additional controls to standard Inno Setup pages? Also, never use absolute coordinates and sizes. Your layout will break, when the wizard … Read more

Proper structure syntax for Delphi/Pascal if then begin end and ;

You have to match every begin with an end at the same level, like if Condition then begin DoSomething; end else begin DoADifferentThing; end; You can shorten the number of lines used without affecting the placement, if you prefer. (The above might be easier when you’re first getting used to the syntax, though.) if Condition … Read more