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

Question

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

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

是否有可能通知Inno安装程序自定义卸载过程失败，并阻止Inno安装程序显示愚蠢的"Uninstall Successful“消息？

Answer 1

一种可能是实现您自己的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;

Answer 2

我用InnoSetup对Uninstall.pas进行了代码审查，目前还没有办法做你想做的事情。