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

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

.版本 2

.支持库 eAPI

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

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

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

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

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

时钟1.时钟周期 ＝ 1000

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

.局部变量 i, 整数型

.局部变量 b, 整数型

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

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

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

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

      跳出循环 ()

  .如扮磨敏果真结束

.计次循环尾 ()

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

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

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

      .默认

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

      .判断结束

  .如果真结束

.计次循环尾 ()

最简单的方法就是程序启动时检查系统已运行的进程中是否有自己，如果有就提示并终止。

这种方法编写简单，但不够准确，容易误判。

还有一种方法就是设置系统全局的标识符，程序启动时检查标识符是否存在，这更准确一些。

---