innosetup怎么判断某个进程正在运行

Inno Setup可以使用Pascal脚本语言中的`CheckForMutexes`函数来检查指定的互斥对象是否已经被创建，从而判断某个进程是否正在运行。

下面是一个示例代码：

[Code]
function CheckForMutexes(Mutexes: array of String): Boolean;
var
  I: Integer;
  MutexHandle: THandle;
begin
  Result := False;
  for I := 0 to High(Mutexes) do
  begin
    MutexHandle := CreateMutex(nil, True, PChar(Mutexes[I]));
    if MutexHandle <> 0 then
    begin
      if GetLastError = ERROR_ALREADY_EXISTS then
      begin
        Result := True;
        CloseHandle(MutexHandle);
        Exit;
      end;
    end;
  end;
end;

在上面的代码中，`CheckForMutexes`函数接收一个字符串数组`Mutexes`作为参数，每个字符串代表一个互斥对象。函数会逐个创建互斥对象，如果创建成功且错误码为`ERROR_ALREADY_EXISTS`，则说明该互斥对象已经存在，即某个进程正在使用该互斥对象，函数返回`True`。

在安装程序中，可以在`InitializeSetup`函数中调用`CheckForMutexes`函数来检查某个进程是否正在运行，如果返回`True`则说明该进程正在运行，安装程序可以选择终止安装或者提示用户关闭该进程后再继续安装。例如：

function InitializeSetup(): Boolean;
begin
  if CheckForMutexes(['MyAppMutex']) then
  begin
    MsgBox('MyApp is already running. Please close it before installing.', mbError, MB_OK);
    Result := False;
    Exit;
  end;
  Result := True;
end;

在上面的代码中，如果`CheckForMutexes(['MyAppMutex'])`返回`True`，则会弹出一个错误提示框，提示用户关闭`MyApp`后再继续安装。如果返回`False`，则安装程序可以继续执行。