请问怎么用易语言监视进程？

加一个时间控件

.版本 2

.程序集 窗口程序集1

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

时钟1.时钟周期 ＝ 1

.子程序 程序运行检测, 逻辑型
.参数 程序名, 文本型
.局部变量 进程句柄, 逻辑型
.局部变量 进程快照, 整数型
.局部变量 进程信息, 进程信息32
.局部变量 结果, 逻辑型

进程快照 ＝ CreateToolhelp32Snapshot (15, 0)
.如果真 (进程快照 ＝ 0)
返回 (假)
.如果真结束
进程信息.类型大小 ＝ 296
进程句柄 ＝ Process32First (进程快照, 进程信息)
结果 ＝ 假

.判断循环首 (进程句柄)
.如果真 (寻找文本 (到小写 (到文本 (进程信息.执行文件名)), 到小写 (程序名), , 真) ≠ -1)
结果 ＝ 真
跳出循环 ()
.如果真结束
进程句柄 ＝ Process32Next (进程快照, 进程信息)
.判断循环尾 ()
CloseHandle (进程快照)
返回 (结果)

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

.如果 (程序运行检测 (“1.exe”) ＝ 真)
结束 ()
.否则

.如果结束

以上是在易语言论坛下载的*.E并经过修改

去问易飞扬~
电话02981737763
他最近在西安讲课