innosetup 单例

对于 Inno Setup，你可以通过设置 `AppMutex` 来实现单例应用程序。`AppMutex` 是一个用于锁定应用程序实例的字符串。当第二个实例运行时，它会检查 `AppMutex` 是否已被占用，如果被占用，则会阻止第二个实例的启动。

以下是使用单例模式的示例代码：

[Setup]
AppName=MyApp
AppVersion=1.0
DefaultDirName={pf}\MyApp

[Code]
var
  MutexHandle: THandle;

function InitializeSetup: Boolean;
begin
  { 创建或打开互斥量 }
  MutexHandle := CreateMutex(nil, True, 'MyAppMutex');

  { 检查互斥量是否已被占用 }
  if (MutexHandle <> 0) and (GetLastError = ERROR_ALREADY_EXISTS) then
  begin
    MsgBox('MyApp is already running.', mbError, MB_OK);
    Result := False;
    Exit;
  end;

  Result := True;
end;

procedure DeinitializeSetup;
begin
  { 释放互斥量 }
  if MutexHandle <> 0 then
    CloseHandle(MutexHandle);
end;

上面的代码在初始化安装程序时创建了一个名为 `'MyAppMutex'` 的互斥量。如果互斥量已被占用，则会显示一个错误消息，并阻止安装程序继续运行。

请记住，在 `DeinitializeSetup` 过程中释放互斥量，确保在安装程序完成或退出时释放资源。

希望对你有帮助！如果你还有其他问题，请继续提问。