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

Question

我想在 Inno Setup 中设置卸载的退出代码。通过这样做，我希望 Inno Setup 向用户显示某种“卸载失败”对话框。

我知道可以通过 GetCustomSetupExitCode 函数定义安装的自定义退出代码。

是否可以通知 Inno Setup 自定义卸载过程失败，并防止 Inno Setup 无论发生什么情况都显示愚蠢的“卸载成功”消息？

Answer 1

我对 InnoSetup 中的 Uninstall.pas 进行了代码审查，目前无法执行您想要执行的操作。

Answer 2

一种可能性是实现您自己的 Pascal 脚本。可能在 DeinitializeUninstall() 事件中（查看手册以准确了解您想要的步骤），您可以添加以下代码：

[Code]
var error: Boolean;

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

procedure TheEventYouFeelIsBetterHere():
begin
 if error then begin
   MsgBox('Installation Failed!', mbError, MB_OK);
   ExitProcess(1);
 end;
end;