禁止程序双开只能运行一个

易语言 2020-07-28 17:55:21

禁止程序双开只能运行一个

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

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