Inno Setup是否内置创建互斥体的方案？防止安装时用户启动应用

Inno Setup确实没有内置你需要的这种「安装时创建互斥体、阻止应用启动」的反向功能，得靠手动编码实现，分两部分操作：

1. 在Inno Setup中创建并管理互斥体 #

在安装程序的[Code]段里调用Windows API创建全局互斥体，并在安装完成（或取消）后释放它：

var
  InstallMutex: THandle;

function InitializeSetup(): Boolean;
begin
  // 创建全局互斥体，名字要唯一，建议用公司/应用专属标识
  InstallMutex := CreateMutex(nil, False, 'Global\YourAppUniqueInstallMutex');
  Result := True;
end;

procedure DeinitializeSetup();
begin
  // 安装流程结束后释放互斥体
  if InstallMutex <> 0 then
    CloseHandle(InstallMutex);
end;

• 加Global\前缀是为了让不同用户会话（比如管理员安装、普通用户启动应用）都能检测到这个互斥体；
• 互斥体名称要确保唯一，避免和其他程序冲突，比如可以用你的应用GUID加上Installing后缀。

2. 在你的应用中检测互斥体 #

在应用启动的入口处，添加检测逻辑：如果能找到上面创建的互斥体，就直接退出应用。

以C#为例，代码大概是这样：

using System;
using System.Threading;
using System.Windows.Forms;

namespace YourApp
{
    static class Program
    {
        [STAThread]
        static void Main()
        {
            // 尝试打开指定的互斥体
            if (Mutex.TryOpenExisting("Global\\YourAppUniqueInstallMutex", out _))
            {
                MessageBox.Show("应用正在安装或更新，请稍后再启动！");
                Environment.Exit(0);
            }

            // 正常启动应用的逻辑
            Application.EnableVisualStyles();
            Application.SetCompatibleTextRenderingDefault(false);
            Application.Run(new MainForm());
        }
    }
}

如果是其他语言（比如C++、VB），核心逻辑都是调用系统的OpenMutex或对应语言的互斥体检测API，只要能确认互斥体存在，就立即终止应用启动。

注意事项 #

• 不管安装是正常完成还是用户中途取消，DeinitializeSetup都会执行，所以互斥体一定会被释放，不会残留；
• 如果是静默安装，应用端可以去掉提示框，直接静默退出；
• 互斥体名称要和Inno Setup里的完全一致，包括Global\前缀。

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