撤銷或回滾安裝

Question

我想在我的AfterInstall函數失敗時在IS中執行回滾。這是我的代碼示例。

[Files] 
    Source: "MyWinService.exe"; DestDir: "{app}"; Flags: ignoreversion; AfterInstall:  MyAfterInstall 
    Source: "MyApp.exe"; DestDir: "{app}"; Flags: ignoreversion 
[Code] 
    const 
    WM_CLOSE = $0010; 
    procedure MyAfterInstall(); 
    var 
    exitCode: Integer; 
    begin 
     MsgBox (ExpandConstant('{cm:ErrServiceInstall}'), mbError, MB_OK); 
     SendMessage(WizardForm.Handle, WM_CLOSE, 0, 0); 
    end; 

在這個示例中，我只是直接想要取消安裝，以便測試安裝回滾。這裏發生的是MsgBox顯示後，由於SendMessage的緣故，顯示ExitSetupMsgBox。當我在ExitSetupMsgBox中單擊是時，將執行回滾。我想要的是ExitSetupMsgBox不顯示，因爲我已經顯示了MsgBox。所以當我單擊確定MsgBox回滾將被執行。

可以這樣做嗎？

Answer 1

您可以使用事件CancelButtonClick您可以在其中打開確認對話框。

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean); 
begin 
    Cancel := True; 
    Confirm := False; 
end; 

您可以通過關閉WizardForm來觸發取消方法，無需發送特殊消息即可調用。 WizardForm.Close這是我知道的在AfterInstall事件期間取消安裝的唯一方法。

注意：如果你有

[setup] 
AllowCancelDuringInstall=no 

或運行帶/ NOCANCEL命令行選項您的設置這將無法正常工作。