简单到无法想象的禁止程序多开

系统进程 ＝ 取系统进程列表 ()
程序名称 ＝ 取执行文件名 ()
输出调试文本 (程序名称)
.计次循环首 (取数组成员数 (系统进程), 计次)
.如果真 (程序名称 ＝ 系统进程 [计次].进程名称)
x ＝ x ＋ 1
.如果真结束

.计次循环尾 ()
.如果 (x ＞ 1) ' 程序运行后，进程数已经为1，必须大于1，才能说明有2个进程
_启动窗口.获取焦点 ()
信息框 (“该程序已经运行,无法再次运行!”, 0, )
结束 ()