Delphi - 互斥对象下实现系统的单例模式

2019-09-04 07:07:36来源:博客园 阅读 ()

Delphi - 互斥对象下实现系统的单例模式

使用CreateMutex函数创建互斥对象

利用Windows系统函数CreateMutex(),找出当前系统是否已经存在指定进程的实例,如果没有则创建一个互斥体。

CreateMutex函数原型如下:

function CreateMutex(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PChar): THandle; 

其中参数:

lpMutexAttributes :SECURITY_ATTRIBUTES 结构类型指针,可以为NULL。

bInitialOwner :是否初始化互斥体。

lpName :互斥体对象的名称,一般是工程的名称。

最终,函数返回一个互斥体句柄。

 

Delphi WinFrm利用互斥对象实现单例模式

单击Project,View Source;

uses 中添加Windows;

Begin和End之间添加如下代码。

 

 

  //*****************************单例模式********************************
  CreateMutex(nil, False, 'Application Name');
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    Application.MessageBox('系统已经开启了,请确认下!', '提示', MB_OK);
    Halt(0);
  end;
    //*****************************单例模式********************************

 


原文链接:https://www.cnblogs.com/jeremywucnblog/p/11450919.html
如有疑问请与原作者联系

标签:IEQ对象thePS函数

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:Delphi - Indy TIdMessage和TIdSMTP实现邮件的发送

下一篇:Delphi - 利用TRzTrayIcon实现WinFrm工程最小会到托盘