Inno-setup：すべてのユーザーの選択肢をINIファイルに保存

Question

.INIファイルでのインストール時に、ユーザーが行ったすべての選択を保存します（ユーザーが変更しなかった場合の既定値）。私はコマンドラインオプション/ LOADINFと/ SAVEINFについて知っていますが、コマンドラインに依存せずに同様の機能を望みます。これは、再インストールの場合の設定を保持するために使用されるだけでなく、分散されたオフィス全体の複数のインストールで使用される一連の設定（管理者によって定義される）を定義するためにも使用されます。ヘルプ

Answer 1

ため

おかげであなたが探しているものを行うことが可能です。しかし、[code]セクションにかなりの量のコードが必要です。私は何年も前に似たようなことをしましたが、私は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;