|
发表于 2011-8-6 08:37:01
|
显示全部楼层
河北省保定市
[e].版本 2
.子程序 取进程路径, 文本型, 公开, 返回进程全路径名;
.参数 窗口句柄, 整数型
.局部变量 进程ID, 整数型
.局部变量 进程信息a, _进程信息
.局部变量 进程文件名, 文本型
.局部变量 结果, 整数型
.局部变量 进程快照, 整数型
.局部变量 进程句柄, 整数型
.局部变量 进程信息, 进程信息_
.如果真 (取进程线程标识符_ (窗口句柄, 进程ID) ≠ 0)
进程信息a.进程ID = 进程ID
进程文件名 = 取空白文本 (1024)
结果 = 进程取全路径名_ (进程取窗口句柄_ (1040, 0, 进程ID), 0, 进程文件名, 1024)
.如果真 (结果 ≠ 0)
进程信息a.进程全路径名 = 到文本 (删首尾空 (进程文件名))
' 进程信息1.进程名 = 取文件名 (进程信息1.进程全路径名)
.如果真结束
进程快照 = 创建快照_ (15, 0)
.如果真 (进程快照 ≠ 0)
进程信息.dwSize = 296
进程句柄 = 第一个_ (进程快照, 进程信息)
.判断循环首 (进程句柄 ≠ 0)
.如果真 (进程信息.进程ID = 进程ID)
进程信息a.进程名 = 到文本 (进程信息.进程名称)
跳出循环 ()
.如果真结束
进程句柄 = 下一个_ (进程快照, 进程信息)
.判断循环尾 ()
关闭对象_ (进程快照)
.如果真结束
.如果真结束
返回 (进程信息a.进程全路径名)
[/e]
api自己去找,找不到在联系我,{:3_244:} |
|