易语言怎么禁止软件双开？

楼上的回答 调用dll命令的，太复杂，我有简单的。

图片看不清楚，可以复制以下内容。

.版本 2

.支持库 eAPI

.子程序 进程是否重复, 逻辑型, 公开, 如果相同的进程名称有2个或以上，则返回 真，1个或以下则返回 假。

.参数 待检测进程, 文本型, , 进程名称，例："QQ.exe"

.局部变量 进程数组, 进程信息, , "0"

.局部变量 n, 整数型

.局部变量 判断重复, 整数型

进程数组 ＝ 取系统进程列表 ()

.计次循环首 (取数组成员数 (进程数组), n)

.如果真 (到小写 (进程数拿枣组 [n].进程名称圆卖) ＝ 到小写 (待检测进程))

判断重复 ＝ 判断重复 ＋ 1

.如果真 (判断重复 ≥ 2)

返回 (真)

.如果真结束

.如果真结束

处理事件 ()

.计次循环尾 ()

返回 (假)

––––––––––

调用子程序例子:

如果真(进程是否重复(“本软件名称.exe”)＝真)

信息框("本程序正在运消腔拆行中，禁止重复运行"，0，，)

返回()

如果真结束

.版本 2

.DLL命令 打开事件对象, 整数型, "kernel32", "OpenEventA"

.参数 访问方法, 整数型

.参数 句柄继承, 逻辑型

.参数 对象名称, 文本型

.DLL命令 创建事件对象, 整数型, "kernel32", "CreateEventA"

.参数 安全特性, 整数型

.参数 重设事件, 逻辑型漏森

.参数 触发状态, 逻辑型

.参数 对象名称, 文本型

-----------------------------------------------------------------------

.版本 2

.支持库 iext

.子程序 _启动州搜弯窗口_创建完毕

.如果真 (程序是否已运行 (“你的程册闷序名称”))

信息框 (“程序已运行！”, #错误图标, “错误”)

结束 ()

.如果真结束

-------------------------------------------------------------------------

.版本 2

.支持库 iext

.子程序 程序是否已运行, 逻辑型, 公开, 判断是否已经运行，已运行返回真，未运行返回假，若为假，便创建禁止运行.

.参数 文本, 文本型

.如果真 (打开事件对象 (2031619, 假, 文本) ≠ 0)

返回 (真)

.如果真结束

创建事件对象 (0, 假, 假, 文本)

返回 (假)

---