Inno安装程序:尝试卸载时检测安装程序是否正在运行

Question

我希望我的Inno安装脚本在尝试使用unins000.exe**.**卸载程序之前，检测我的程序的安装程序是否正在运行

如果当用户试图卸载我的程序时，我的程序的设置已经在运行，那么卸载程序应该通过弹出一个消息框(如Setup is running. Please install using it before uninstalling. Really want to Continue? )和两个按钮Yes和No来警告用户。

• 如果用户按No，卸载程序(unins000.exe)必须关闭。
• 如果用户按下Yes，卸载程序(unins000.exe)必须终止我的程序的安装程序(Setup.exe)的进程，然后继续卸载。

我怎么能做到这一点而没有任何不稳定？

谢谢你的帮助。

Answer 1

没有办法彻底中止安装。我不想杀了它。让它结束吧。

[Setup]
SetupMutex=MySetupsMutexName

[Code]

function InitializeUninstall(): Boolean;
begin
  while CheckForMutexes('MySetupsMutexName') then
  begin
    MsgBox('Installer is still running', mbError, MB_OK);
  end;
end;