Inno-setup:将用户的所有选择存储在INI文件中

Question

我希望将用户在安装过程中所做的所有选择(或者默认值，如果用户没有更改它们)存储在一个.INI文件中。我知道命令行选项/LOADINF和/SAVEINF，但我希望拥有类似的功能，而不依赖于命令行。这将用于在重新安装的情况下保留设置，但也用于定义一组设置(由管理员定义)，以便在跨分散办公室的多个安装中使用。

谢谢你的帮助

Answer 1

做你想做的事情是可能的。不过，您的代码部分需要相当多的代码。几年前我也做过类似的事情，但我只读了INI。我从来没有写过INI文件。您应该能够使用SetIni* (SetIniString、SetIniBool等)对其进行写入。函数。您可以使用GetIni*函数读取INI文件。这是我收集的一个快速示例，它给出了一个想法：

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{4CCA332F-C69B-48DF-93B4-145EB88A1BCB}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={code:GetDefaultDir}
DefaultGroupName={#MyAppName}
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "C:\util\innosetup\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, "&", "&&")}}"; Flags: nowait postinstall skipifsilent

[Code]
var 
FinishedInstall : boolean;

function GetDefaultDir(def: string): string;
var
sInstallPath : string;
bRes : boolean;

begin
  sInstallPath := GetIniString('Common', 'TargetDir', ExpandConstant('{pf}') + '\myApp', ExpandConstant('{src}') + '\myappsetup.INI');
  Result := sInstallPath;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
     FinishedInstall := True;
end;

procedure DeinitializeSetup();
var
bIni : boolean;
begin
if FinishedInstall then
  bIni := SetIniString('Common', 'TargetDir',ExpandConstant('{app}'), ExpandConstant('{app}') + '\myappsetup.INI');
end;