易语言禁止程序重复运行模块

panda92 · 发表于 2020-4-13 17:30:40

学习下，谢谢分享

li1506989516 · 发表于 2019-10-14 14:36:19

不服来源码

li1506989516 · 发表于 2019-10-14 14:36:06

假的只提示信息款没真结束

haijian · 发表于 2019-8-13 21:52:55

6666666666666666666666

萌萌兔 · 发表于 2019-6-27 10:10:55

.版本 2
.支持库 eAPI

.局部变量数量, 整数型
.局部变量进程, 进程信息, , "0"
.局部变量 i, 整数型

进程＝取系统进程列表 ()
.计次循环首 (取数组成员数 (进程), i)
.如果真 (i ＞ 1)
      .如果真 (进程 [i].进程名称＝取执行文件名 ())
         数量＝数量＋ 1
      .如果真结束

.如果真结束

.计次循环尾 ()
.如果真 (数量 ≥ 2)
信息框 (“小小进程防火墙已经在运行，没必要在重复运行。”, 64, “小小进程防火墙信息：”, )
结束 ()
.如果真结束

萌萌兔 · 发表于 2019-6-27 10:08:55

本帖最后由 631029009 于 2019-6-27 10:10 编辑

.版本 2
.支持库 eAPI
.局部变量数量, 整数型
.局部变量进程, 进程信息, , "0"
.局部变量 i, 整数型
进程＝取系统进程列表 ()
.计次循环首 (取数组成员数 (进程), i)
.如果真 (i ＞ 1)
      .如果真 (进程 .进程名称＝取执行文件名 ())
         数量＝数量＋ 1
      .如果真结束
.如果真结束
.计次循环尾 ()
.如果真 (数量 ≥ 2)
信息框 (“小小进程防火墙已经在运行，没必要在重复运行。”, 64, “小小进程防火墙信息：”, )
结束 ()
.如果真结束

566784 · 发表于 2019-6-19 03:21:28

你这什么模块啊。提示了不能运行后点击完了确定还是可以运行的

学易未精 · 发表于 2019-5-1 10:05:47

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

欲战禁止重复运行程序 ()

win7 64位系统中运行是可以的啊，为什么说是假的？

学易未精 · 发表于 2019-5-1 10:02:39

1666604749 发表于 2019-5-1 09:57
假的啊用不了

15年的了。。。。。。。。。。。。

1666604749 · 发表于 2019-5-1 09:57:33

假的啊用不了

		自动登录	找回密码
密码			注册

[易语言成品模块] 易语言禁止程序重复运行模块