易语言启动检测存在某个进程,并提示用户是否关闭?

要提示用户结束进程!在线等....
.版本 2
.支持库 eAPI

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量 进程列表, 进程信息, , "0"
.局部变量 计次, 整数型
.局部变量 存在进程, 逻辑型
.局部变量 要判断的程序名, 文本型

加载皮肤 (3)
加载Aero特效 ()
进程列表 = 取系统进程列表 ()
要判断的程序名 = “xunlei.exe” ' 这里的xunlei.exe可以改为你想要判断的程序名
.计次循环首 (取数组成员数 (进程列表), 计次)
.如果 (进程列表 [计次].进程名称 = 要判断的程序名)
存在进程 = 真
跳出循环 ()
.否则
存在进程 = 假
.如果结束

.计次循环尾 ()
.判断开始 (存在进程 = 真)
终止进程 (“xunlei.exe”) ' 如果进程存在,就结束,相反不存在,就不结束
.默认

你那个都没提示,我这个可以结束进程,但他是打开就结束,我想打开然后提示,手动结束

.版本 2
.支持库 eAPI

.局部变量 进程列表, 进程信息, , "0"
.局部变量 计次, 整数型
.局部变量 判断的进程, 文本型
.局部变量 进程存在, 逻辑型
.局部变量 要判断的进程, 文本型

进程列表 = 取系统进程列表 ()
判断的进程 = 要判断的进程
.计次循环首 (取数组成员数 (进程列表), 计次)
.如果 (进程列表 [计次].进程名称 = 判断的进程)
进程存在 = 真
跳出循环 ()
.否则
进程存在 = 假
.如果结束

.计次循环尾 ()
看完这个你应该会明白把追问

你那个都没提示,我这个可以结束进程,但他是打开就结束,我想打开然后提示,手动结束

追答

这是我刚写的代码 你应该能看懂吧 就是这么写的 具体的自己在修改下,把代码放到时钟组建里就可以实现实时监视了
.版本 2
.支持库 eAPI
.支持库 shell

.子程序 _按钮1_被单击
.局部变量 a, 进程信息, , "0"
.局部变量 要结束的进程, 文本型
.局部变量 n1, 整数型
.局部变量 进程存在, 逻辑型

a = 取系统进程列表 ()
.计次循环首 (取数组成员数 (a), n1)
.如果真 (a [n1].进程名称 = 编辑框1.内容)

进程存在 = 真
要结束的进程 = a [n1].进程名称
跳出循环 ()
.如果真结束

.计次循环尾 ()
.如果真 (进程存在 = 真)
.如果 (信息框 (“进程存在请结束,否则立马关机”, #是否钮, ) = #是钮)
终止进程 (要结束的进程)
.否则
关闭系统 (1, 真)

.如果结束

追问

不管进程存不存在,都提示存在?哪里出错了

追答

我没看见你的源码 不知道出了什么问题

温馨提示:答案为网友推荐,仅供参考
第1个回答  2011-10-26
进程是否存在 模块调用
相似回答