如何在 Inno Setup 中设置退出代码？

Question

我想为我的安装设置退出代码，这样我就能知道为什么安装被中止。我正在使用 Inno Setup。

Answer 1

来自 Inno Setup 帮助文档（来自文章“安装程序退出代码” ）：

从 Inno Setup 3.0.3 开始，安装程序可能会返回以下退出代码之一：

0安装程序已成功运行完成。

1安装程序初始化失败。

2 用户在实际安装开始之前在向导中单击了“取消”，或者在打开的“这将安装...”消息框中选择了“否”。

3 准备进入下一个安装阶段（例如，从显示预安装向导页面到实际安装过程）时发生致命错误。除非是在最不寻常的情况下，例如内存或 Windows 资源耗尽，否则这种情况永远不会发生。

4实际安装过程中出现致命错误。

注意：导致显示 Abort-Retry-Ignore 框的错误不是致命错误。如果用户在此类消息框中选择“Abort”，则会返回退出代码 5。

5用户在实际安装过程中单击了“取消”，或者在“中止-重试-忽略”框中选择了“中止”。

6安装进程被调试器强制终止（IDE 中使用了“运行 | 终止”）。

您可以通过确认退出代码为 0 轻松检查设置是否成功运行。此外：

任何非零退出代码都表示安装程序未运行完成。

要更具体地回答您的问题，您可以通过观察退出代码 2 或 5 来确定安装已取消。

如果您希望在 Inno 返回 0 时返回自定义退出代码，您可以定义以下事件函数：

function GetCustomSetupExitCode: Integer;

来自帮助文档 (摘自文章“Pascal 脚本：事件函数”）：

函数 GetCustomSetupExitCode: Integer;

返回一个非零数字以指示安装程序返回自定义退出代码。仅当安装程序成功运行完成且退出代码为 0 时才会调用此函数。

Answer 2

使用：

[Code]
procedure ExitProcess(exitCode:integer);
  external '[email protected] stdcall';

procedure SomeEventHere();
begin
  if someerror then begin
    ExitProcess(9); //Your custom exit code
  end;
end;

Answer 3

确实有同样的问题并找到了解决方法：

[Code]
var CustomExitCode: integer;

procedure ExitProcess(exitCode:integer);
    external '[email protected] stdcall';

procedure DeinitializeSetup();
begin
    if (CustomExitCode <> 0) then
    begin
        DelTree(ExpandConstant('{tmp}'), True, True, True);
        ExitProcess(CustomExitCode);
    end;
end;

现在在设置的任何时候只需将 CustomExitCode 设置为您想要的代码即可。
示例：

function InitializeSetup: Boolean;
begin
    // Some check did fail, exiting with custom code
    CustomExitCode = -1;
    
    // Let's just close the setup
    Result := false;
end;

这样安装程序就不会突然终止，并且无论向导以何种状态退出，您都可以自定义退出代码。