Question

易语言如何禁止程序双开

做了一个程序透明窗口固定位置的 双开就减小了透明度，求方法禁止双开。前提是必须禁止双开的方法 别的方法没用。

Answer 1

.版本 2
.DLL命令 打开事件对象, 整数型, "kernel32", "OpenEventA"
.参数 访问方法, 整数型
.参数 句柄继承, 逻辑型
.参数 对象名称, 文本型
.DLL命令 创建事件对象, 整数型, "kernel32", "CreateEventA"
.参数 安全特性, 整数型
.参数 重设事件, 逻辑型
.参数 触发状态, 逻辑型
.参数 对象名称, 文本型
-----------------------------------------------------------------------

.版本 2
.支持库 iext
.子程序 _启动窗口_创建完毕
.如果真 (程序是否已运行 (“你的程序名称”))
信息框 (“程序已运行！”, #错误图标, “错误”)
结束 ()
.如果真结束
-------------------------------------------------------------------------
.版本 2
.支持库 iext
.子程序 程序是否已运行, 逻辑型, 公开, 判断是否已经运行，已运行返回真，未运行返回假，若为假，便创建禁止运行.
.参数 文本, 文本型
.如果真 (打开事件对象 (2031619, 假, 文本) ≠ 0)
返回 (真)
.如果真结束
创建事件对象 (0, 假, 假, 文本)
返回 (假)

Answer 2

可以在程序创建的时候进行遍历一次进程，如果没有该程序的进程则创建成功，否则创建失败直接结束，就可以进行简单禁止双开了。