取消按鈕不會顯示在Inno Setup的

Question

我已經創建了INNO，這需要一個自定義嚮導頁面wpInfoAfter創建嚮導頁的文件安裝到{}的應用程序文件夾後顯示。這是通過給wpInfoAfter實現的。 的問題是，它僅顯示「下一步」按鈕，沒有取消/返回按鈕，也右上方的對話框的合閘按鈕也將被禁用。我知道後退按鈕不是必需的，因爲它需要刪除已安裝的文件。反正有「取消」按鈕可以顯示嗎？

Answer 1

Cancel按鈕在安裝後階段沒有功能，因爲InnoSetup不會在安裝過程完成後執行進一步操作，需要取消操作。所以，即使您針對該事實顯示按鈕，您也會得到一個沒有任何操作的按鈕。

個人而言，我更喜歡收集需要安裝程序在安裝開始之前您的數據庫中的信息，因爲審時度勢當用戶安裝應用程序，並乾脆取消後安裝嚮導（什麼可以很容易地發生）。這樣做之前，您可以強制用戶在實際到達應用程序之前填寫所需內容。但是如果你仍然想在安裝之後做到這一點，這是一個解決方法，用於缺少取消按鈕。

作爲一種變通方法，您可以創建自己的自定義按鈕，這將是對具有相同功能的相同位置。以下是一個示例腳本，模擬取消按鈕並僅在安裝過程後鋪設的自定義頁面上顯示它。這只是一個解決辦法，因爲你至少需要解決這個問題：

• 啓用該向導的形式（安裝階段完成後它的禁用）的收盤十字
• 莫名其妙處理ESC快捷鍵（它調用退出提示對話框，但我卻無法找到一種方法如何解決此）

[Setup] 
AppName=My Program 
AppVersion=1.5 
DefaultDirName={pf}\My Program 

[Code] 
procedure ExitProcess(uExitCode: UINT); 
    external 'ExitProcess@kernel32.dll stdcall'; 

var 
    CustomPage: TWizardPage; 
    CancelButton: TNewButton; 

procedure OnCancelButtonClick(Sender: TObject); 
begin 
    // confirmation "Exit setup ?" message, if user accept, then... 
    if ExitSetupMsgBox then 
    begin 
    // stop and rollback actions you did from your after install 
    // process and kill the setup process itself 
    ExitProcess(0); 
    end; 
end; 

procedure InitializeWizard; 
begin 
    // create a custom page 
    CustomPage := CreateCustomPage(wpInfoAfter, 'Caption', 'Description'); 
    // create a cancel button, set its parent, hide it, setup the bounds 
    // and caption by the original and assign the click event 
    CancelButton := TNewButton.Create(WizardForm); 
    CancelButton.Parent := WizardForm; 
    CancelButton.Visible := False; 
    CancelButton.SetBounds(
    WizardForm.CancelButton.Left, 
    WizardForm.CancelButton.Top, 
    WizardForm.CancelButton.Width, 
    WizardForm.CancelButton.Height 
); 
    CancelButton.Caption := SetupMessage(msgButtonCancel); 
    CancelButton.OnClick := @OnCancelButtonClick; 
end; 

procedure CurPageChanged(CurPageID: Integer); 
begin 
    // show your fake Cancel button only when you're on some of your after 
    // install pages; if you have more pages use something like this 
    // CancelButton.Visible := (CurPageID >= FirstPage.ID) and 
    // (CurPageID <= LastPage.ID); 
    // if you have just one page, use the following instead 
    CancelButton.Visible := CurPageID = CustomPage.ID; 
end;