如何在安装过程中中止/终止 Inno Setup？

Question

在安装过程中，我运行一个bat 文件。如果 bat 文件返回错误，我需要中止/终止安装。我希望它执行一个 MsgBox 告诉用户发生了什么，然后中止的外观和行为就像用户按下了取消按钮。

是否可以中止/终止设置？

代码示例将非常感激。

[Run]
Filename: {tmp}\test.bat; WorkingDir: {tmp}; Flags: waituntilterminated runhidden

Answer 1

谢谢你，罗伯特。当脚本检测到安装无法继续时，这是一个常见问题。
但是，您的解决方案存在问题。 WizardForm.Close 调用取消对话框，并且仅当用户回答“是”时才会停止安装。要明确退出，我们应该调用CancelButtonClick。

[Files]
Source: "MYPROG.EXE"; DestDir: "{app}"; AfterInstall: MyAfterInstall

[Code]
var CancelWithoutPrompt: boolean;

function InitializeSetup(): Boolean;
begin
  CancelWithoutPrompt := false;
  result := true;
end;

procedure MyAfterInstall();
begin
  { Do something }
  if BadResult then begin
    MsgBox('Should cancel because...',mbError,MB_OK)
    CancelWithoutPrompt := true;
    WizardForm.Close;
  end;
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  if CurPageID=wpInstalling then
    Confirm := not CancelWithoutPrompt;
end;

Answer 2

问题是安装过程成功完成后发生[Run]。
所以此时无法取消，只能卸载。
此外，[Run] 不允许您获取退出代码。

所以你有几个选择。

使用事件：procedure CurStepChanged(CurStep: TSetupStep);

并使用Exec或ExecAsOriginalUser调用{tmp}\test.bat 这两个都返回 ResultCode。然后您可以提示用户卸载。

不过我认为执行取消会更容易。

为此，请在项目中的最后一个文件上创建一个 AfterInstall 事件。
并从此事件执行程序，因为您可以从此事件取消。

这是一些示例代码，展示了如何完成它。

[Files]
Source: "MYPROG.EXE"; DestDir: "{app}"; AfterInstall: MyAfterInstall

[Code]
procedure MyAfterInstall();
var
 ResCode : Integer;
begin
 if Exec(ExpandConstant('{tmp}') + '\test.bat',
         '', SW_HIDE, ewWaitUntilTerminated, ResCode) then
 begin
   { Program Ran successfully ResCode now contains exit code results }

   { if Exit was 10 then Cancel Installation. }
   if ResCode = 10 then
   begin
      WizardForm.Close;
   end;       
 end
 else
 begin
   { Problem running Program }
   MsgBox('Error', SysErrorMessage(ResCode), mbError, MB_OK);
 end;

end;

Answer 3

我使用了此处答案中的一些代码来编写完整的解决方案，以在 [Run] 部分中安全地运行命令，并提供适当的通知和错误时回滚。

Answer 4

只是为了完善其他可能性：

如果您可以在从用户收集任何信息之前检查先决条件，那么进行检查的最佳位置是在 InitializeSetup 函数中。这允许您显示 MsgBox，然后使用 Result := False 退出以中止安装。

如果您需要首先从用户那里收集一些信息（例如安装目录），但仍然可以在不安装任何文件的情况下检查情况（除了通过 ExtractTemporaryFile 进行的一些文件之外），那么最好的地方是在 PrepareToInstall 函数中。这允许您显示错误消息（通过返回错误消息），此时用户可以返回并更正某些内容或自行退出安装。

如果您要检查的条件与特定页面上的用户选择（同样，例如目标目录）具体相关，并且您可以快速进行检查并且根本不需要更改用户的系​​统，那么最好在NextButtonClick;您可以显示一个包含错误的 MsgBox，然后返回 False 以防止转到下一页。

如果您必须等到安装完其他所有内容后才退出安装，那么退出安装就有点太晚了，但如果您无论如何都想这样做，那么罗伯特的回答就足够了。