易语言 进程监视

很简单。一个时钟周期事件，两个变量，只要这个程序还在运行，你想关闭的程序就别想打开，而且程序名字不分大小写。

下面是代码，应该能看明白。

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

时钟1.时钟周期 ＝ 800

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

进程, 进程信息, , "0" '变量：进程， 类型：进程信息 数组：0

B, 整数型 '变量：B 类型： 整数型

进程 ＝ 取系统进程列表 ()
. 计次循环首 (取数组成员数 (进程), B)
.如果真 (到小写 (进程 [B].进程名称) ＝ 到小写 (“E.exE”))
终止进程 (“e.EXe”)
.计次循环尾 ()

这样就OK了，希望我的解答对你能有帮助。

.版本 2

.子程序 __启动窗口_创建完毕
.参数 进程, 文本型

.判断循环首 (寻找文本 (“e.exe”, , 1, 假) ≠ -1)
运行 (“cmd /c tasklist > c:\1.txt”, 假, )
进程 ＝ 到文本 (读入文件 (“c:\1.txt”))
删除文件("c:\1.txt")
.判断循环尾 ()
销毁 ()

建议观望客服留言。。。。