解决问题

  如何让一个软件在一台机器上只能运行一个实例呢?这个问题用专业术语就是进程互斥。这个问题可以通过CreateMutex来解决。

  进程互斥的核心思想:进程在启动时首先检查是否存在此进程实例,如果没有则创建进程并设置进程实例已存在的标记

  CreateMutex用于创建一个互斥体;

  OpenMutex为现有的一个已命名互斥体对象创建一个新句柄;

  ReleaseMutex释放由线程拥有的一个互斥体的控制权。

  具体实现代码如下:  

 constructor TUniqueAppInstance.Create(AUniqueAppStr: string);
begin
inherited Create;
FMutHandle := OpenMutex(MUTEX_ALL_ACCESS, False, PChar(AUniqueAppStr));
// 互斥对象已建立,说明已有实例存在
if FMutHandle <> then
raise Exception.Create('当前应用程序已经运行')
else
FMutHandle := CreateMutex(nil, False, PChar(AUniqueAppStr));
end;

API说明

  HANDLE CreateMutex(

    LPSECURITY_ATTRIBUTES  lpMutexAttributes,   // 指向安全属性的指针
    BOOL  bInitialOwner,   // 初始化互斥对象的所有者
    LPCTSTR  lpName   // 指向互斥对象名的指针
  );

  

  

04-17 05:30