如何基于PowerShell退出码在Inno Setup完成页显示自定义错误？

完全可以实现这个需求，核心思路是捕获PowerShell脚本的退出码，然后在Inno Setup的安装流程后期根据不同退出码自定义完成页内容，同时拦截默认的错误提示弹窗。以下是具体实现步骤和代码示例：

1. 核心实现逻辑 #

• 执行PowerShell脚本时捕获其退出码；
• 在安装的ssPostInstall阶段（安装步骤完成后）检查退出码；
• 根据预设的退出码（如1000）修改完成页的标题、副标题；
• 拦截Inno Setup默认的错误提示，用自定义内容替代。

2. 完整代码示例 #

2.1 声明全局变量与初始化 #

在[Code]段开头声明需要的变量，用于存储退出码和控制错误提示：

[Code]
var
  PSExitCode: Integer;
  SuppressDefaultError: Boolean;
  CustomProgressPage: TOutputProgressWizardPage;

procedure InitializeWizard;
begin
  // 初始化自定义进度页（用于显示PowerShell输出）
  CustomProgressPage := CreateOutputProgressPage('执行安装脚本', '正在配置系统，请稍候...');
  SuppressDefaultError := False;
end;

2.2 执行PowerShell脚本并捕获输出与退出码 #

实现自定义函数执行PowerShell脚本，将输出定向到自定义进度页，同时捕获退出码：

procedure RunPowerShellScript;
var
  Process: TProcess;
  OutputLine: string;
begin
  CustomProgressPage.Show;
  CustomProgressPage.SetText('正在运行配置脚本', '处理中...');

  Process := TProcess.Create(nil);
  try
    Process.Executable := 'powershell.exe';
    // 配置PowerShell参数：绕过执行策略、指定脚本路径
    Process.Parameters.Add('-ExecutionPolicy');
    Process.Parameters.Add('Bypass');
    Process.Parameters.Add('-File');
    Process.Parameters.Add(ExpandConstant('{tmp}\YourScript.ps1')); // 替换为你的脚本路径
    // 启用管道捕获输出，隐藏控制台窗口
    Process.Options := [poNoConsole, poStderrToStdout, poUsePipes];
    
    Process.Execute;

    // 实时读取脚本输出并更新进度页
    while Process.Running do
    begin
      while Process.Output.Peek <> #0 do
      begin
        ReadLn(Process.Output, OutputLine);
        CustomProgressPage.AddLine(OutputLine, True);
      end;
      Sleep(100);
    end;

    // 获取脚本退出码
    PSExitCode := Process.ExitCode;
    // 读取剩余输出
    while Process.Output.Peek <> #0 do
    begin
      ReadLn(Process.Output, OutputLine);
      CustomProgressPage.AddLine(OutputLine, True);
    end;
  finally
    Process.Free;
    CustomProgressPage.Hide;
  end;
end;

2.3 处理退出码并自定义完成页 #

在CurStepChanged事件中，安装完成后检查退出码，修改完成页内容：

procedure CurStepChanged(CurStep: TSetupStep);
begin
  // 在安装阶段执行PowerShell脚本
  if CurStep = ssInstall then
  begin
    RunPowerShellScript;
  end
  // 在安装完成后处理退出码
  else if CurStep = ssPostInstall then
  begin
    case PSExitCode of
      0:
        begin
          // 正常完成，保留默认完成页内容
          WizardForm.FinishedPage.Caption := '安装完成';
          WizardForm.FinishedPage.SubCaption := '软件已成功安装，点击"完成"退出。';
        end;
      1000:
        begin
          // 自定义错误码1000对应的提示
          SuppressDefaultError := True;
          WizardForm.FinishedPage.Caption := '安装失败';
          WizardForm.FinishedPage.SubCaption := '错误：配置文件验证失败，请检查配置后重试。';
          WizardForm.FinishButton.Caption := '关闭';
          // 标记安装结果为失败
          Result := False;
        end;
      1001:
        begin
          // 其他自定义错误码的提示
          SuppressDefaultError := True;
          WizardForm.FinishedPage.Caption := '安装失败';
          WizardForm.FinishedPage.SubCaption := '错误：依赖组件缺失，请先安装必要组件。';
          WizardForm.FinishButton.Caption := '关闭';
          Result := False;
        end;
      else
        begin
          // 未定义的错误码，显示通用提示
          SuppressDefaultError := True;
          WizardForm.FinishedPage.Caption := '安装失败';
          WizardForm.FinishedPage.SubCaption := '发生未知错误，错误码：' + IntToStr(PSExitCode);
          WizardForm.FinishButton.Caption := '关闭';
          Result := False;
        end;
    end;
  end;
end;

2.4 拦截默认错误提示 #

实现SuppressErrorMsg函数，阻止Inno Setup弹出默认的错误弹窗：

function SuppressErrorMsg(ErrorCode: Integer; const ErrorMessage: String): Boolean;
begin
  // 当标记为需要拦截时，返回True隐藏默认错误提示
  Result := SuppressDefaultError;
end;

3. 关键说明 #

• 确保PowerShell脚本在失败场景下返回非0的自定义退出码（如Exit 1000）；
• 脚本路径可根据实际情况修改，推荐使用ExpandConstant处理安装目录、临时目录等变量；
• 自定义进度页的文字可根据安装流程调整，提升用户感知；
• 若不需要实时输出，可简化为ExecWait调用直接捕获退出码，无需使用TProcess。

内容的提问来源于stack exchange，提问作者Aslam Khan