✅类_跨进程判断（设计初衷 禁止重复运行...）

莫小乐

  

DLL命令名	返回值类型	公开	备 注
CreateEventA_跨进程判断	整数型		博乐助手
DLL库文件名:
在DLL库中对应命令名:
CreateEventA
参数名	类 型	传址	数组	备 注
安全属性	整数型
手动重置	逻辑型
初始状态	逻辑型
事件名称	文本型

DLL命令名	返回值类型	公开	备 注
OpenEventA_跨进程判断	整数型		博乐助手
DLL库文件名:
在DLL库中对应命令名:
OpenEventA
参数名	类 型	传址	数组	备 注
访问权限	整数型
继承句柄	逻辑型
事件名称	文本型

DLL命令名	返回值类型	公开	备 注
CloseHandle_跨进程判断	整数型		博乐助手
DLL库文件名:
在DLL库中对应命令名:
CloseHandle
参数名	类 型	传址	数组	备 注
句柄	整数型

窗口程序集名	保 留	保 留	备 注
类_跨进程判断			不能收发，期初主要是 禁止重复运行用的
变量名	类 型	数组	备 注
私_事件句柄	整数型

子程序名	返回值类型	公开	备 注
_初始化

子程序名	返回值类型	公开	备 注
_销毁

清理 ()

子程序名	返回值类型	公开	备 注
判断	逻辑型		真表示已经运行，假表示还未运行
参数名	类 型	参考	可空	数组	备 注
标志文本	文本型				可以是任何文本，但是最好要长一点以保证和系统中已有其他事件对象的名称不相冲突。

如果真 (OpenEventA_跨进程判断 (2031619, 假, 标志文本) ≠ 0)
返回 (真)
私_事件句柄 ＝ CreateEventA_跨进程判断 (0, 假, 假, 标志文本)
返回 (假)

子程序名	返回值类型	公开	备 注
清理			__启动窗口_将被销毁  应该在这里也放一份！做保底

CloseHandle_跨进程判断 (私_事件句柄)

.版本 2<br /> <br /> .DLL命令 CreateEventA_跨进程判断, 整数型, , "CreateEventA", , 博乐助手<br />     .参数 安全属性, 整数型<br />     .参数 手动重置, 逻辑型<br />     .参数 初始状态, 逻辑型<br />     .参数 事件名称, 文本型<br /> <br /> .DLL命令 OpenEventA_跨进程判断, 整数型, , "OpenEventA", , 博乐助手<br />     .参数 访问权限, 整数型<br />     .参数 继承句柄, 逻辑型<br />     .参数 事件名称, 文本型<br /> <br /> .DLL命令 CloseHandle_跨进程判断, 整数型, , "CloseHandle", , 博乐助手<br />     .参数 句柄, 整数型<br /> <br /> <br /> .版本 2<br /> <br /> .程序集 类_跨进程判断, , , 不能收发，期初主要是 禁止重复运行用的<br /> .程序集变量 私_事件句柄, 整数型<br /> <br /> .子程序 _初始化<br /> <br /> <br /> <br /> .子程序 _销毁<br /> <br /> 清理 ()<br /> <br /> .子程序 判断, 逻辑型, 公开, 真表示已经运行，假表示还未运行<br /> .参数 标志文本, 文本型, , 可以是任何文本，但是最好要长一点以保证和系统中已有其他事件对象的名称不相冲突。<br /> <br /> .如果真 (OpenEventA_跨进程判断 (2031619, 假, 标志文本) ≠ 0)<br />     返回 (真)<br /> .如果真结束<br /> 私_事件句柄 ＝ CreateEventA_跨进程判断 (0, 假, 假, 标志文本)<br /> 返回 (假)<br /> <br /> .子程序 清理, , 公开, __启动窗口_将被销毁  应该在这里也放一份！做保底<br /> <br /> CloseHandle_跨进程判断 (私_事件句柄)

使用方法

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
类_判断重复运行	类_跨进程判断

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

信息框 (类_判断重复运行.判断 (“使用”), 0, , )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 类_判断重复运行, 类_跨进程判断<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 信息框 (类_判断重复运行.判断 (“使用”), 0, , )

游客，如果您要查看本帖隐藏内容请回复

莫小乐

补充一个：文件判断的、禁止双开
子程序

  

子程序名	返回值类型	公开	备 注
程序_禁止双开	逻辑型		博乐助手
参数名	类 型	参考	可空	数组	备 注
路径	文本型				例如 “E:\禁止重复”    “E:\qwekjqne”   等

变量名	类 型	静态	数组	备 注
双开文件号	整数型

如果真 (是否为空 (路径))
路径 ＝ 取运行目录 () ＋ “\禁止双开”
如果 (文件是否存在 (路径))
双开文件号 ＝ 打开文件 (路径, , 4)
写到文件 (路径, { 0 })  ' 写一个文件
置文件属性 (路径, 34)  ' 让这个文件隐藏
双开文件号 ＝ 打开文件 (路径, , 4)  ' 打开这个文件
判断 (双开文件号 ＝ 0)
返回 (真)
返回 (假)

.版本 2<br /> <br /> .版本 2<br /> <br /> .子程序 程序_禁止双开, 逻辑型, , 博乐助手<br /> .参数 路径, 文本型, 可空, 例如 “E:\禁止重复”    “E:\qwekjqne”   等 <br /> .局部变量 双开文件号, 整数型<br /> <br /> .如果真 (是否为空 (路径))<br />     路径 ＝ 取运行目录 () ＋ “\禁止双开”<br /> .如果真结束<br /> .如果 (文件是否存在 (路径))<br />     双开文件号 ＝ 打开文件 (路径, , 4)<br /> .否则<br />     写到文件 (路径, { 0 })  ' 写一个文件<br />     置文件属性 (路径, 34)  ' 让这个文件隐藏<br />     双开文件号 ＝ 打开文件 (路径, , 4)  ' 打开这个文件<br /> .如果结束<br /> .判断开始 (双开文件号 ＝ 0)<br />     返回 (真)<br /> .默认<br />     返回 (假)

易造轮

  

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

DLL命令名	返回值类型	公开	备 注
GetLastError	整数型
DLL库文件名:
kernel32
在DLL库中对应命令名:
GetLastError
参数名	类 型	传址	数组	备 注

子程序名	返回值类型	公开	备 注
程序_禁止重复运行			禁止当前程序多开运行
参数名	类 型	参考	可空	数组	备 注
唯一标识	文本型				尽量输复杂一点的文本！反斜杠字符除外
消息框提示文本	文本型				第二个参数设置为假,该参数则无效

变量名	类 型	静态	数组	备 注
局_互斥体句柄	整数型

如果真 (唯一标识 ＝ “”)
唯一标识 ＝ “917b41c1b5ace220c8b4dcacd5857727”  ' 标识文本，如果有重复的，就不能打开，实现禁止

' 【修复1】使用标准的互斥体(Mutex)来防止多开
局_互斥体句柄 ＝ CreateMutexA (0, 假, 唯一标识)
' 【修复2】183 代表 ERROR_ALREADY_EXISTS，即互斥体已经被其他进程创建
如果真 (GetLastError () ＝ 183)
' 发现重复运行后，及时关闭刚才尝试获取的句柄，防止句柄泄漏
如果真 (局_互斥体句柄 ≠ 0)
CloseHandle (局_互斥体句柄)
如果真 (是否为空 (消息框提示文本))
消息框提示文本 ＝ “重复运行，该进程已打开!”
信息框 (消息框提示文本, #确认钮, “友情提醒:”, )
结束 ()

' 注意：这里不需要 CloseHandle(局_互斥体句柄)，让它跟随当前主进程的生命周期。进程退出时系统会自动回收并释放锁定。

.版本 2<br /> <br /> .DLL命令 CreateMutexA, 整数型, "kernel32", "CreateMutexA", ,<br />     .参数 lpMutexAttributes, 整数型<br />     .参数 bInitialOwner, 逻辑型<br />     .参数 lpName, 文本型<br /> <br /> .DLL命令 GetLastError, 整数型, "kernel32", "GetLastError", ,<br /> <br /> <br /> .子程序 程序_禁止重复运行, , 公开, 禁止当前程序多开运行<br /> .参数 唯一标识, 文本型, 可空, 尽量输复杂一点的文本！反斜杠字符除外<br /> .参数 消息框提示文本, 文本型, 可空, 第二个参数设置为假,该参数则无效<br /> .局部变量 局_互斥体句柄, 整数型<br /> <br /> .如果真 (唯一标识 ＝ “”)<br />     唯一标识 ＝ “917b41c1b5ace220c8b4dcacd5857727”  ' 标识文本，如果有重复的，就不能打开，实现禁止<br /> .如果真结束<br /> <br /> ' 【修复1】使用标准的互斥体(Mutex)来防止多开<br /> 局_互斥体句柄 ＝ CreateMutexA (0, 假, 唯一标识)<br /> ' 【修复2】183 代表 ERROR_ALREADY_EXISTS，即互斥体已经被其他进程创建<br /> .如果真 (GetLastError () ＝ 183)<br />     ' 发现重复运行后，及时关闭刚才尝试获取的句柄，防止句柄泄漏<br />     .如果真 (局_互斥体句柄 ≠ 0)<br />         CloseHandle (局_互斥体句柄)<br />     .如果真结束<br />     .如果真 (是否为空 (消息框提示文本))<br />         消息框提示文本 ＝ “重复运行，该进程已打开!”<br />     .如果真结束<br />     信息框 (消息框提示文本, #确认钮, “友情提醒:”, )<br />     结束 ()<br /> .如果真结束<br /> <br /> ' 注意：这里不需要 CloseHandle(局_互斥体句柄)，让它跟随当前主进程的生命周期。进程退出时系统会自动回收并释放锁定。

夏亿

感谢分享

胖子葛格

感谢大神分享~！

year1970

支持开源，感谢分享

汉族

感谢分享

华庭大哥

感谢分享，很给力！~

lassgo

思路不错，防多开首选，单实例稳如老狗啊

kyo9766

新方式，感谢分享

myl1712

类_跨进程判断（设计初衷 禁止重复运行...

gaoqing

谢谢分享