pascalscript

问题 I continue looking for the better way to distribute my application making use of Inno Setup, therefore I would to know if is possible to do a (check-serial). I tried with the follows methods: CustomPage for Serial Number in Inno Setup How to create dynamically changing serial numbers using Inno Setup? I want some similar like this. But with the exception that I have where to save my passwords (I think that SharePoint List could be helpful, I am not sure!) How to do a dynamic password in Inno

问题 How to add two same function in inno-setup.I mean for example if I want to delete a folder and and everything inside it I use : DelTree(ExpandConstant('{userdocs}\A'), True, True, True) to delete everything inside 'A'.But now I want to delete folder 'B' with Folder 'A' I know one way to do that something this: DelTree(ExpandConstant('{userdocs}\Games\A'), True, True, True); DelTree(ExpandConstant('{userdocs}\Games\B'), True, True, True); I want to know is there any other way to do this this

问题 I'm trying to add VCL styles (Inno Setup 5.5.6 (a)) for my installer. Style load correctly during the installation, but when I try to uninstall I get an error Runtime Error(at-1:0): Cannot Import dll:VclStylesInno.dll. And I can not uninstall my program. Does anyone know what I can do? Thanks for the help #define VCLStylesSkinPath "{localappdata}\VCLStylesSkin" [Files] ;Install Source: "VclStylesinno.dll"; DestDir: "{app}"; Flags: dontcopy Source: "Styles\Auric.vsf"; DestDir: "{app}"; Flags:

问题 I am trying to write a function that returns the size of a directory. I have written the following code, but it is not returning the correct size. For example, when I run it on the {pf} directory it returns 174 bytes, which is clearly wrong as this directory is multiple Gigabytes in size. Here is the code I have: function GetDirSize(DirName: String): Int64; var FindRec: TFindRec; begin if FindFirst(DirName + '\*', FindRec) then begin try repeat Result := Result + (Int64(FindRec.SizeHigh) shl

问题 When I use / DIR command line switch "Mysoft.exe" /VERYSILENT /installerbusiness /DIR="C:\Program Files (x86)" The specified path does not get used for path box on my custom page : I'm using code based on Use two/multiple selected directories from custom page in Files section. This is an example of the code I'm using. [Code] var Install: TInputDirWizardPage; procedure InitializeWizard(); begin Install := CreateInputDirPage( wpSelectDir, CustomMessage('Readyinstall'), CustomMessage(

问题 I have an working Pascal scripts for Inno Setup, but recently we ran into an issue with Unicode characters. And after changing the Inno Setup to Unicode version we got errors in existing scripts. And this error is too generic - "Type mismatch" for certain line. Since our main script is composed of lots of other scripts that are included I'm not sure if that line is the correct, and it points to this function below, and line with Set of Char . After looking the Inno Setup documentation I found

问题 I'm trying to set a custom image for the WizardSmallImage of a installer I'm making, but, I have run onto a problem: the image I'm trying to use exceeds the max size for WizardSmallImage (55x58). Since I'm doing this for a friend, I can't cut/shrink his image. So, is there any way to override this max size? I have tried to change the properties of WizardForm.WizardSmallBitmapImage manually by writing this code in the [Code] section: procedure InitializeWizard; begin WizardForm

问题 I tried to read sample code for how to load DLL at Inno Setup, but I'm confused. I have one DLL ( ChkArchInfo.dll ) and the contents is simple: extern "C" __declspec(dllexport) bool __stdcall IsARM() { SYSTEM_INFO si; GetNativeSystemInfo(&si); if(PROCESSOR_ARCHITECTURE_ARM == si.wProcessorArchitecture) return true; return false; } I know I need to use [Files] section to load the DLL file. But how to declare this function at .iss to let me use it? BTW, If there any functions in Inno Setup to

问题 I have an install script with Pascal code to determine if the app to be installed is currently running: ; Script generated by the Inno Setup Script Wizard. ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES! [Setup] AppName=MyApp AppVerName=MyApp v1.0 DiskSpanning=no AppPublisher=me AppPublisherURL=http://www.example.com AppSupportURL=http://www.example.com AppUpdatesURL=http://www.example.com DefaultDirName={pf}\MyApp UsePreviousAppDir=yes DefaultGroupName=MyApp

问题 In an Inno Setup script I have a string created from the current time that I store in the registry. I do like this: function GetInstallDateTime (s : String ) : String; Var year, month, day, nr1, nr2 : String; sum : Byte; error: Integer; begin year := GetDateTimeString ('yy', #0, #0); nr1 := Copy(year, 1, 1); nr2 := Copy(year, 2, 1); year := nr1+nr2; month := GetDateTimeString ('mm', #0, #0); nr1 := Copy(month, 1, 1); nr2 := Copy(month, 2, 1); month := nr1 + nr2; day := GetDateTimeString ('dd'