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

Question

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

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

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

Answer 1

我对InnoSetup中的Uninstall.pas进行了代码审查，目前无法做您想做的事情。

Answer 2

一种可能性是实现自己的Pascal脚本。可能在DeinitializeUninstall（）事件中，（查看手册以确切知道你想要的步骤），你可以添加这些代码：

[Code]
var error: Boolean;

procedure ExitProcess(exitCode:integer);
  external 'ExitProcess@kernel32.dll stdcall';

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