易语言禁止重复运行源码

.版本 2

.程序集 窗口程序集1, , , ' 本源码来自三叶资源网(www.sanye.cx)

.子程序 __启动窗口_创建完毕
.局部变量 a, 整数型

.如果真 (打开事件同步对象 (2031619, 假, “123”) ≠ 0)
    ' 如果不用还原已最最小化运行窗口删除下面这两行代码
    a ＝ 取数值注册项 (3, “temp”, )
    SendMessage (a, 274, 61728, 0)
    SetWindowPos (a, -1, 0, 0, 0, 0, 3)
    SetWindowPos (a, -2, 0, 0, 0, 0, 3)
    销毁 ()
    返回 ()
.如果真结束
创建事件同步对象 (0, 假, 假, “近在眼前”)
' 如果不用还原已最最小化运行窗口删除下面这行代码
写注册项 (3, “temp”, 取窗口句柄 ())

.子程序 __启动窗口_可否被关闭, 逻辑型

删除注册项 (3, “temp”)

@han1831366579