更改卸載確認提示

Question

是否可以使用代碼更改[Messages]部分中的消息？ 我想更改消息ConfirmUninstall，如下所示。

[Messages] 
ConfirmUninstall=Are you sure you want to remove {code:GetIDandName} and its components. 

是否可以這樣做？如果不是，有沒有辦法實現這一目標？

謝謝。

Answer 1

不，你不能。

在某些情況下，您可能可以使用a preprocessor。

但不是在你的情況。

您可以自動化界面，但它不好。請參閱Inno Setup - Automatically submitting uninstall prompts。

---

所有你可以用ConfirmUninstall做的是：

• 壓制它迫使/SILENT switch在添加/刪除程序條目（添加其他自定義開關，使之清楚，它實際上不是靜音模式）和
• 在InitializeUninstall event function中實現您自己的提示。

[Setup] 
AppId=myprogram 

[Code] 

const 
    UninstallKey = 
    'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppId")}_is1'; 
    UninstallStringName = 'UninstallString'; 
    CustomUninstallPromptSwitch = '/CUSTOMUNINSTALLPROMPT'; 
    UninstallSwitches = '/SILENT ' + CustomUninstallPromptSwitch; 

procedure CurStepChanged(CurStep: TSetupStep); 
var 
    S: string; 
begin 
    if CurStep = ssPostInstall then 
    begin 
    if not RegQueryStringValue(
      HKEY_LOCAL_MACHINE, ExpandConstant(UninstallKey), 
      UninstallStringName, S) then 
    begin 
     Log(Format(
      'Cannot find %s in %s', [ 
      UninstallStringName, ExpandConstant(UninstallKey)])); 
    end 
     else 
    begin 
     Log(Format('%s is %s', [UninstallStringName, S])); 
     S := S + ' ' + UninstallSwitches; 
     if not RegWriteStringValue(
       HKEY_LOCAL_MACHINE, ExpandConstant(UninstallKey), 
       UninstallStringName, S) then 
     begin 
     Log(Format('Error writting %s', [UninstallStringName])); 
     end 
     else 
     begin 
     Log(Format('Written [%s] to %s', [S, UninstallStringName])); 
     end; 
    end; 
    end; 
end; 

function CmdLineParamExists(const Value: string): Boolean; 
var 
    I: Integer; 
begin 
    Result := False; 
    for I := 1 to ParamCount do 
    begin 
    if CompareText(ParamStr(I), Value) = 0 then 
    begin 
     Result := True; 
     Exit; 
    end; 
    end; 
end; 

function GetIDandName: string; 
begin 
    Result := ...; 
end; 

function InitializeUninstall(): Boolean; 
var 
    Text: string; 
begin 
    Result := True; 

    if CmdLineParamExists(CustomUninstallPromptSwitch) and UninstallSilent then 
    begin 
    Log('Custom uninstall prompt'); 
    Text := FmtMessage(SetupMessage(msgConfirmUninstall), [GetIDandName()]); 
    Result := (MsgBox(Text, mbConfirmation, MB_YESNO) = IDYES); 
    end; 
end; 

---

你甚至可以更進一步，並禁止卸載程序來進行，當與自定義開關不執行。這樣您可以防止用戶手動從安裝文件夾啓動unins000.exe。