Inno安裝從文件（.inf）爲靜默安裝加載默認的自定義安裝設置

Question

我有一個安裝腳本，允許用戶指定他們想要安裝我的應用程序的位置。它是在[Code]塊內的Pascal腳本的形式。

var 
    SelectUsersPage: TInputOptionWizardPage; 
    IsUpgrade : Boolean; 
    UpgradePage: TOutputMsgWizardPage; 

procedure InitializeWizard(); 
var 
    AlreadyInstalledPath: String; 
begin 
    { Determine if it is an upgrade... } 
    { Read from registry to know if this is a fresh install or an upgrade } 
    if RegQueryStringValue(HKLM, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{#MyAppId}_is1', 'Inno Setup: App Path', AlreadyInstalledPath) then 
    begin 
     { So, this is an upgrade set target directory as installed before } 
     WizardForm.DirEdit.Text := AlreadyInstalledPath; 
     { and skip SelectUsersPage } 
     IsUpgrade := True; 

     { Create a page to be viewed instead of Ready To Install } 
     UpgradePage := CreateOutputMsgPage(wpReady, 
     'Ready To Upgrade', 'Setup is now ready to upgrade {#MyAppName} on your computer.', 
     'Click Upgrade to continue, or click Back if you want to review or change any settings.'); 
    end 
    else 
    begin 
     IsUpgrade:= False; 
    end; 

    { Create a page to select between "Just Me" or "All Users" } 
    SelectUsersPage := CreateInputOptionPage(wpLicense, 
    'Select Users', 'For which users do you want to install the application?', 
    'Select whether you want to install the library for yourself or for all users of this computer. Click next to continue.', 
    True, False); 

    { Add items } 
    SelectUsersPage.Add('All users'); 
    SelectUsersPage.Add('Just me'); 

    { Set initial values (optional) } 
    SelectUsersPage.Values[0] := False; 
    SelectUsersPage.Values[1] := True; 
end; 

所以問題是我怎麼能支持靜默安裝？當用戶調用/SILENT或/VERYSILENT時，安裝程​​序默認爲SelectUsersPage.Values[1]，該值爲Just Me。我想幫助支持希望通過提供答案文件來更改安裝目錄的用戶。

我沒有開發所有這些代碼，並且我是一個Pascal的新手。

謝謝。

Answer 1

您可以將自定義密鑰（例如Users）添加到由/SAVEINF創建的.inf文件中。

然後在安裝程序中，查找在/LOADINF command-line argument和讀取密鑰並採取相應的行動：

procedure InitializeWizard(); 
var 
    InfFile: string; 
    I: Integer; 
    UsersDefault: Integer; 
begin 
    ... 

    InfFile := ExpandConstant('{param:LOADINF}'); 

    UsersDefault := 0; 

    if InfFile <> '' then 
    begin 
    Log(Format('Reading INF file %s', [InfFile])); 
    UsersDefault := 
     GetIniInt('Setup', 'Users', UsersDefault, 0, 0, ExpandFileName(InfFile)); 
    Log(Format('Read default "Users" selection %d', [UsersDefault])); 
    end 
    else 
    begin 
    Log('No INF file'); 
    end; 

    SelectUsersPage.Values[UsersDefault] := True; 
end;