易语言互斥体防多开源代码

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 事件对象句柄, 整数型

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

.如果真 (打开事件对象 (2031619, 假, 标志文本) ≠ 0)
    返回 (真)
.如果真结束
事件对象句柄 ＝ 创建事件对象 (0, 假, 假, 标志文本)
返回 (假)

.子程序 __启动窗口_创建完毕

.如果真 (程序是否已运行 (“禁止多次运行”) ＝ 真)
    信息框 (“程序已经运行！”, 0, , )
    销毁 ()
.如果真结束


.子程序 __启动窗口_将被销毁

关闭事件对象 (事件对象句柄)

@upring