全局原子 禁止重复运行/多开 简单 实用 效果好

.版本 2
.支持库 spec

.程序集 窗口程序集1
.程序集变量 atom, 整数型

.子程序 __启动窗口_创建完毕
.局部变量 x, 文本型

.如果真 (是否为调试版 ())
    调试输出 (“编译后才行”)
    结束 ()
.如果真结束
x ＝ “f0sd9890f 8g098h07fg0h)$(*%()^&*$&80450uij pg”  ' 什么都行
.如果真 (查找全局原子 (x) ≠ 0)
    信息框 (“不能这样”, 0, )
    结束 ()
.如果真结束
atom ＝ 添加全局原子 (x)


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

删除全局原子 (atom)

GlobalAddAtomA

GlobalFindAtomA

GlobalDeleteAtom

@发Q