innosetup的CurUninstallStepChanged函数怎么检查是否存在应用程序互斥体

在Inno Setup的CurUninstallStepChanged函数中，可以通过调用CheckForMutexes函数来检查是否存在应用程序互斥体。CheckForMutexes函数有一个参数，即互斥体名称的字符串数组。如果任何一个互斥体被占用，CheckForMutexes函数将返回该互斥体的名称。

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

[Code]
function CheckForMutexes(Mutexes: array of String): String;
var
  I: Integer;
begin
  for I := 0 to GetArrayLength(Mutexes) - 1 do
  begin
    if IsAppMutexLocked(Mutexes[I]) then
    begin
      Result := Mutexes[I];
      Exit;
    end;
  end;
  Result := '';
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
  Mutexes: array of String;
  MutexName: String;
  Cancel: Boolean;
begin
  if CurUninstallStep = usAppMutexCheck then
  begin
    SetArrayLength(Mutexes, 1);
    Mutexes[0] := 'MyAppMutex';
    MutexName := CheckForMutexes(Mutexes);
    if MutexName <> '' then
    begin
      if MsgBox('The application is still running. Please close it before uninstalling.' + #13#10#13#10 +
         'Do you want to cancel the uninstallation?', mbConfirmation, MB_YESNO) = IDYES then
      begin
        Cancel := True;
        WizardForm.Close;
      end;
    end;
  end;
end;

在上面的示例中，我们定义了一个名为CheckForMutexes的函数，该函数接受一个字符串数组作为参数，用于传递互斥体的名称。在CurUninstallStepChanged函数的usAppMutexCheck步骤中，我们调用CheckForMutexes函数来检查名为“MyAppMutex”的互斥体是否被占用。如果互斥体被占用，则显示一个消息框提醒用户关闭应用程序，并提供一个选项来取消卸载程序。