【温故Delphi】Win32API之CreateMutex

解决问题

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

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

  CreateMutex用于创建一个互斥体;

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

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

  具体实现代码如下:  

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

API说明

  HANDLE CreateMutex(

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

  

  

【温故Delphi】Win32API之CreateMutex,布布扣,bubuko.com

【温故Delphi】Win32API之CreateMutex

上一篇:window.location.href的使用方法


下一篇:wingide 显示中文 及 配色方案