innosetup怎么检测安装程序或者卸载程序正在运行

在Inno Setup中，可以通过检查应用程序互斥体来检测安装程序或卸载程序是否正在运行。应用程序互斥体是一种用于同步多个应用程序实例的机制，可以确保同一时刻只有一个应用程序实例在运行。

以下是一个检查应用程序互斥体的示例代码：

[Code]
function IsAppMutexLocked(const MutexName: string): Boolean;
var
  Mutex: THandle;
begin
  Mutex := CreateMutex(nil, True, MutexName);
  Result := (Mutex = 0) or (GetLastError = ERROR_ALREADY_EXISTS);
  if not Result then
    ReleaseMutex(Mutex);
  CloseHandle(Mutex);
end;

function IsInstallerRunning: Boolean;
begin
  Result := IsAppMutexLocked('{#SetupSetting("AppMutex")}-Install');
end;

function IsUninstallerRunning: Boolean;
begin
  Result := IsAppMutexLocked('{#SetupSetting("AppMutex")}-Uninstall');
end;

在上面的代码中，我们定义了两个函数IsInstallerRunning和IsUninstallerRunning，用于检测安装程序或卸载程序是否正在运行。这两个函数都使用IsAppMutexLocked函数来检查应用程序互斥体是否被占用。IsAppMutexLocked函数接受一个互斥体名称作为参数，返回一个布尔值表示互斥体是否被占用。如果互斥体被占用，说明安装程序或卸载程序正在运行。

在Inno Setup的CurStepChanged和CurUninstallStepChanged函数中，可以调用IsInstallerRunning或IsUninstallerRunning函数来检测安装程序或卸载程序是否正在运行，并采取相应的操作。