易语言禁止程序重复运行?

2025-04-12 23:21:19
推荐回答(2个)
回答1:

这边我拿QQ跟你做例子,就是不知道你是不是想实现这种效果。

.版本 2

.支持库 eAPI

.程序集 窗口程序集_启动窗口

.程序集变量 进程列表, 进程信息, , "0"

.程序集变量 进程标识符, 整数型

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


.子程序 _按钮1_被单击

时钟1.时钟周期 = 1000


.子程序 _时钟1_周期事件

.局部变量 i, 整数型

.局部变量 b, 整数型

进程列表 = 取系统进程列表 ()

.计次循环首 (取数组成员数 (进程列表), i)

    .如果真 (进程列表 [i].进程名称 = “QQ.exe”)

        进程标识符 = 进程列表 [i].进程标识符

        跳出循环 ()

    .如果真结束

.计次循环尾 ()

.计次循环首 (取数组成员数 (进程列表), b)

    .如果真 (进程列表 [b].进程名称 = “QQ.exe”)

        .判断开始 (进程标识符 = 进程列表 [b].进程标识符)

        .默认

            终止进程 (进程列表 [b].进程标识符)

        .判断结束

    .如果真结束

.计次循环尾 ()

回答2:

这个应该只能识别进程数量来进行启动了