防止程序多开，API实现 CreateMutexA 进程互斥体

anysot

废话不多说
防止双开方法很多，笨方法是枚举进程列表，然后判断路径是否相同，这个方法如果复制一份源文件就能双开了，没啥用处。

我这里是用Windows api 的OpenMutex和CreatMutex来判断、创建进程互斥体 从而达到防止双开的目的。互斥体的标识 为了达到唯一 建议最好自己生成guid来作为程序的标识，防止和其他程序冲突，每个程序必须唯一标识。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

如果 (进程互斥 (“3A6F7D6C-32C4-4840-A075-7E665499EBF6”))
' 不存互斥体 创建进程

' 存在互斥体 销毁进程
_启动窗口.销毁 ()

子程序名	返回值类型	公开	备 注
进程互斥	逻辑型		创建进程互斥体，防止多开
参数名	类 型	参考	可空	数组	备 注
互斥体标识	文本型				唯一标识 最好生成Guid

变量名	类 型	静态	数组	备 注
打开结果	整数型
lpMutexAttributes	SECURITY_ATTRIBUTES
返回结果	逻辑型			假 表示互斥体存在 真 表示不存在互斥体且成功创建互斥体

' 返回结果
返回结果 ＝ 假
' 打开 互斥体 查询是否已经存在互斥体
打开结果 ＝ OpenMutexA (2031617, 真, 互斥体标识)
如果真 (打开结果 ＝ 0)
' 不存在 启动程序 创建 互斥
打开结果 ＝ CreateMutex (lpMutexAttributes, 真, 互斥体标识)
如果真 (打开结果 ≠ 0)
返回结果 ＝ 真

返回 (返回结果)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .如果 (进程互斥 (“3A6F7D6C-32C4-4840-A075-7E665499EBF6”))<br />     ' 不存互斥体 创建进程<br /> <br /> .否则<br />     ' 存在互斥体 销毁进程<br />     _启动窗口.销毁 ()<br /> .如果结束<br /> <br /> <br /> .子程序 进程互斥, 逻辑型, 公开, 创建进程互斥体，防止多开<br /> .参数 互斥体标识, 文本型, , 唯一标识 最好生成Guid<br /> .局部变量 打开结果, 整数型<br /> .局部变量 lpMutexAttributes, SECURITY_ATTRIBUTES<br /> .局部变量 返回结果, 逻辑型, , , 假 表示互斥体存在 真 表示不存在互斥体且成功创建互斥体<br /> <br /> ' 返回结果<br /> 返回结果 ＝ 假<br /> ' 打开 互斥体 查询是否已经存在互斥体<br /> 打开结果 ＝ OpenMutexA (2031617, 真, 互斥体标识)<br /> .如果真 (打开结果 ＝ 0)<br />     ' 不存在 启动程序 创建 互斥<br />     打开结果 ＝ CreateMutex (lpMutexAttributes, 真, 互斥体标识)<br />     .如果真 (打开结果 ≠ 0)<br />         返回结果 ＝ 真<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (返回结果)

DLL：

  

DLL命令名	返回值类型	公开	备 注
OpenMutexA	整数型
DLL库文件名:
Kernel32
在DLL库中对应命令名:
OpenMutexA
参数名	类 型	传址	数组	备 注
desiredAccess	整数型
bInherit	逻辑型
lpName	文本型

DLL命令名	返回值类型	公开	备 注
CreateMutex	整数型
DLL库文件名:
Kernel32
在DLL库中对应命令名:
CreateMutexA
参数名	类 型	传址	数组	备 注
lpMutexAttributes	SECURITY_ATTRIBUTES
initialOwner	逻辑型
uniqueName	文本型

.版本 2<br /> <br /> .DLL命令 OpenMutexA, 整数型, "Kernel32", "OpenMutexA", 公开<br />     .参数 desiredAccess, 整数型<br />     .参数 bInherit, 逻辑型<br />     .参数 lpName, 文本型<br /> <br /> .DLL命令 CreateMutex, 整数型, "Kernel32", "CreateMutexA"<br />     .参数 lpMutexAttributes, SECURITY_ATTRIBUTES<br />     .参数 initialOwner, 逻辑型<br />     .参数 uniqueName, 文本型

数据类型：

  

数据类型名	公开	备 注
SECURITY_ATTRIBUTES		安全性结构;
成员名	类 型	传址	数组	备 注
nLength	整数型
lpSecurityDescriptor	整数型
bInheritHandle	整数型

.版本 2<br /> <br /> .数据类型 SECURITY_ATTRIBUTES, , 安全性结构;<br />     .成员 nLength, 整数型<br />     .成员 lpSecurityDescriptor, 整数型<br />     .成员 bInheritHandle, 整数型

范例：可以自己下载
进程互斥体_防止双开.zip (1.84 KB, 下载次数: 438)

2017-4-9 09:30 上传

点击文件名下载附件
下载积分: 精币 -2 枚

ck66

给力的方法 感谢分享

绝版Ren物

多谢分享，下载看看学习一下

okfyx21

多谢分享,给力的方法

指尖流淌

多谢分享,给力的方法

dawei2099

下载学习一下

y2j423633

收藏了,感谢分享

2446789312

还是不明白

qcljj

收藏了,感谢分享

h2995527

刚好需要,热乎着