防止程序多开

Mr.伍先生

  

子程序名	返回值类型	公开	备 注
禁止程序重复运行
参数名	类 型	参考	可空	数组	备 注
特征字串	文本型
窗口句柄	整数型				1为空信息框提示；2填入句柄则激活窗口
信息内容	文本型

变量名	类 型	静态	数组	备 注
句柄	整数型
安全结构	SECURITY_ATTRIBUTES

如果真 (信息内容 ＝ “”)
信息内容 ＝ “请勿重复运行程序”
句柄 ＝ CreateMutex (安全结构, 真, 特征字串)
如果真 (WaitForSingleObject (句柄, 100) ＝ 258)
ReleaseMutex (句柄)
CloseHandle (句柄)
如果 (窗口句柄 ＞ 0)
ShowWindow (取数值zc项 (3, 特征字串, ), 1)
信息框 (信息内容, 0, , )
结束 ()
写zc项 (3, 特征字串, 窗口句柄)

.版本 2<br /> <br /> .子程序 禁止程序重复运行, , 公开<br /> .参数 特征字串, 文本型<br /> .参数 窗口句柄, 整数型, 可空, 1为空信息框提示；2填入句柄则激活窗口<br /> .参数 信息内容, 文本型, 可空<br /> .局部变量 句柄, 整数型<br /> .局部变量 安全结构, SECURITY_ATTRIBUTES<br /> <br /> .如果真 (信息内容 ＝ “”)<br />     信息内容 ＝ “请勿重复运行程序”<br /> .如果真结束<br /> 句柄 ＝ CreateMutex (安全结构, 真, 特征字串)<br /> .如果真 (WaitForSingleObject (句柄, 100) ＝ 258)<br />     ReleaseMutex (句柄)<br />     CloseHandle (句柄)<br />     .如果 (窗口句柄 ＞ 0)<br />         ShowWindow (取数值zc项 (3, 特征字串, ), 1)<br />     .否则<br />         信息框 (信息内容, 0, , )<br />     .如果结束<br />     结束 ()<br /> .如果真结束<br /> 写zc项 (3, 特征字串, 窗口句柄)

防止多开.e (3.93 KB, 下载次数: 123)

2019-10-11 15:29 上传

点击文件名下载附件
阅读权限: 10

原始世界

wu6571629

6666666666666666666

jun001

感谢分享

小喇叭呀

阿啥的顶顶顶顶顶顶顶顶顶顶的

点点丶滴滴

666666666666666

神犬小七8526

新技能已get√

552233

支持开源~！感谢分享

twsdc

支持开源~！感谢分享支持开源~！感谢分享支持开源~！感谢分享

遍体鳞伤不够美

支持开源~！感谢分享