禁止重复运行 2.0.EC 易语言

2025-04-16 00:41:06

推荐回答（1个）

回答（1）：

.版本 2
.DLL命令创建事件同步对象, 整数型, , "CreateEventA"
.参数 lpEventAttributes, 整数型
.参数 bManualReset, 逻辑型
.参数 bInitialState, 逻辑型
.参数 lpName, 文本型
.DLL命令打开事件同步对象, 整数型, , "OpenEventA"
.参数 dwDesiredAccess, 整数型
.参数 bInheritHandle, 逻辑型
.参数 lpName, 文本型

.版本 2
.子程序禁止重复运行, 整数型, 公开, OpenEventA CreateEventA
.参数识别符, 文本型, , 例如: "3D72E324-3CE0-459d-813C-A646E5C0F2ED"
.局部变量识别, 整数型
识别＝打开事件同步对象 (2031619, 假, 识别符)
.如果真 (识别 ≠ 0)
返回 (识别)
.如果真结束
创建事件同步对象 (0, 假, 假, 识别符)
返回 (识别)