如何在没有提示的情况下正确关闭Inno设置向导

Question

我的安装程序的一部分会检查我们服务器上的最新版本，并在必要时自动下载，就在欢迎页面之后。实际的检查和下载在一个函数CheckForNewInstaller中，该函数返回True是否下载并执行了新安装程序，并False是否需要继续。如果下载了新安装程序（True），则向导需要关闭。

使用以下代码，我使用 WizardForm.Close 完成了此操作。但是，如果用户确定要取消，它仍会提示用户。在正常情况下，如果用户尝试关闭安装程序，我仍然希望用户收到此提示。但是，当我需要强制关闭向导时，我需要禁止显示此对话框。我也不能终止该过程，因为清理过程无法正常进行。

function NextButtonClick(CurPageID: Integer): Boolean;
var
  ResultCode: Integer;
  X: Integer;
begin
  Log('NextButtonClick(' + IntToStr(CurPageID) + ') called');
  Result := True;
  case CurPageID of
    wpWelcome: begin
      if CheckForNewInstaller then begin
        //Need to close this installer as new one is starting
        WizardForm.Close;
      end;
    end;
    ....
  end;
end;

如何在没有任何进一步用户交互的情况下完全关闭此安装程序？

Answer 1

这

可以通过处理CancelButtonClick事件并设置Confirm参数来完成...

var
  ForceClose: Boolean;
procedure Exterminate;
begin
  ForceClose:= True;
  WizardForm.Close;  
end;
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm:= not ForceClose;
end;
function NextButtonClick(CurPageID: Integer): Boolean;
var
  ResultCode: Integer;
  X: Integer;
begin
  Log('NextButtonClick(' + IntToStr(CurPageID) + ') called');
  Result := True;
  case CurPageID of
    wpWelcome: begin
      if CheckForNewInstaller then begin
        Exterminate;
      end;
    end;
    ....
  end;
end;