createmutex

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

匿名 (未验证) 提交于 2019-12-02 23:57:01
使用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