帮看下提示进程存在代码？

亮亮

.版本 2
.支持库 eAPI
.子程序 __启动窗口_创建完毕
.局部变量 进程列表, 进程信息, , "0"
.局部变量 计次, 整数型
.局部变量 存在进程, 逻辑型
.局部变量 要判断的程序名, 文本型
进程列表 ＝ 取系统进程列表 ()
要判断的程序名 ＝ “QQ.exe”  ' 这里的QQ.exe可以改为你想要判断的程序名
.计次循环首 (取数组成员数 (进程列表), 计次)
    .如果 (进程列表 [计次].进程名称 ＝ 要判断的程序名)
        存在进程 ＝ 真
        跳出循环 ()
    .否则
        存在进程 ＝ 假
    .如果结束
.计次循环尾 ()
.如果 (存在进程 ＝ 真)
    信息框 (“警告！”, #警告图标 ＋ #确认钮, “警告！”)
    终止进程 (要判断的程序名)
.否则


根据大家的源码修改的，还是有个问题。点关闭取消也把进程结束了，没有退出程序？

小明无敌

判断进程是否存在
这么简单
你写那么多...

finemi

经测试没有错，你看下任务管理器里面是否kugou7.exe这个程序一直运行着的

亮亮

ppgzhaishini 发表于 2011-10-27 21:25
经测试没有错，你看下任务管理器里面是否kugou7.exe这个程序一直运行着的

把kugou7.exe关了，打开代码还是会提示

亮亮

珍惜你的美 发表于 2011-10-27 21:14
判断进程是否存在
这么简单
你写那么多...

判断存在，还要提示结束进程。麻烦指出错误{:3_235:}

小明无敌

[e].版本 2
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 a

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

a ＝ “你的进程”
.如果 (进程是否存在 (a))
    信息框 (“请关闭”, 0, )
    终止进程 (a)
.否则
[/e]

.版本 2
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 a

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

a ＝ “你的进程”
.如果 (进程是否存在 (a))
    信息框 (“请关闭”, 0, )
    终止进程 (a)
.否则
一个c j模块

小明无敌

[e].版本 2
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 a

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

a ＝ “你的进程”
.如果 (进程_是否存在 (a))
    信息框 (“请关闭”, 0, )
    终止进程 (a)
.否则
[/e]

.版本 2
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 a

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

a ＝ “你的进程”
.如果 (进程_是否存在 (a))
    信息框 (“请关闭”, 0, )
    终止进程 (a)
.否则

精易模块也可以     

数据压缩

例程.zip (1.15 KB, 下载次数: 11)

2011-10-27 21:45 上传

点击文件名下载附件

finemi

亮亮 发表于 2011-10-27 21:34
判断存在，还要提示结束进程。麻烦指出错误

我测试还真没问题，如果一直没有提示已运行kugou7.exe还好理解，因为酷狗的进程名貌似最新的是KuGoo.exe，但是你是一直提示已运行就费解了

改了下测试无问题，你试试把进程名改成其它的，比如QQ.exe（还有你不会是判断那里写错位了吧截个图看看）
[e].版本 2
.支持库 eAPI

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

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

.计次循环尾 ()
.如果 (存在进程 ＝ 真)
    信息框 (“警告！发现酷狗7正在使用，请退出在使用，否则会失败！ ”, 0, )
.否则
    信息框 (“未发现酷狗！”, 0, )
.如果结束
[/e]

小明无敌

[e].版本 2
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 a, 文本型

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

a ＝ “QQ.exe”
.如果 (进程_是否存在 (a))
    信息框 (“请关闭”, 0, )
    终止进程 (a)
.否则

.如果结束
[/e]

.版本 2
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 a, 文本型

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

a ＝ “QQ.exe”
.如果 (进程_是否存在 (a))
    信息框 (“请关闭”, 0, )
    终止进程 (a)
.否则

.如果结束

这样没问题了
把A的类型变成文本