易语言怎么取进程的路径。比如已知道QQ.exe 要它的文件所在路径。
3个回答
展开全部
.版本 2
.子程序 取程序路径, 文本型, 公开, 取指定进程名的程序启动路径(成功返回路径,失败或进程不存在返回空)
.参数 进程名, 文本型, , 程序进程名
.参数 区分大小写, 逻辑型, 可空, 默认不区分进程名大小写
.局部变量 进程列表, 进程信息_
.局部变量 进程数, 整数型
.局部变量 进程快照, 整数型
.局部变量 临时, 整数型
.局部变量 临时路径, 文本型
.局部变量 临时进程名, 文本型
.局部变量 snap, 整数型
.局部变量 mod, 模块信息型
进程快照 = _创建快照 (15, 0)
.如果真 (进程快照 = 0)
信息框 (“创建进程快照失败”, 0, )
返回 (“”)
.如果真结束
进程数 = 0
进程列表.dwSize = 296
临时 = _第一个 (进程快照, 进程列表)
.判断循环首 (临时 ≠ 0)
进程数 = 进程数 + 1
snap = _创建快照 (8, 进程列表.进程ID)
mod.size = 1024
_第一个模块 (snap, mod)
临时路径 = 取字节集数据 (到字节集 (mod.模块完整路径), 10, )
_关闭对象 (snap)
.如果真 (进程列表.进程ID ≠ 0)
临时进程名 = 到文本 (进程列表.进程名称)
.如果 (区分大小写)
.如果真 (临时进程名 = 进程名)
_关闭对象 (进程快照)
.如果真 (寻找文本 (临时路径, “?”, , 假) > 0)
返回 (“”)
.如果真结束
返回 (临时路径)
.如果真结束
.否则
.如果真 (到小写 (临时进程名) = 到小写 (进程名))
_关闭对象 (进程快照)
.如果真 (寻找文本 (临时路径, “?”, , 假) > 0)
返回 (“”)
.如果真结束
返回 (临时路径)
.如果真结束
.如果结束
.如果真结束
临时 = _下一个 (进程快照, 进程列表)
.判断循环尾 ()
_关闭对象 (进程快照)
返回 (“”)
'--------------------------------------DLL有什么不对说声,内容比较多好像少发了几个......(下面是DLL或者自定义数据)--------------楼主可以下载个超级模块试试,里面有取进程目录的子程序
.版本 2
.数据类型 进程信息_, , 进程信息
.成员 dwSize, 整数型
.成员 cntUsage, 整数型
.成员 进程ID, 整数型
.成员 th32DefaultHeapID, 整数型
.成员 th32ModuleID, 整数型
.成员 cntThreads, 整数型
.成员 th32ParentProcessID, 整数型
.成员 pcPriClassBase, 整数型
.成员 dwFlags, 整数型
.成员 进程名称, 字节型, , "256"
.版本 2
.数据类型 模块信息型, 公开, 进程模块信息
.成员 size, 整数型
.成员 mid, 整数型
.成员 pid, 整数型
.成员 gusage, 整数型
.成员 pusage, 整数型
.成员 base, 整数型
.成员 大小, 整数型
.成员 模块句柄, 整数型
.成员 模块文件名, 字节型, , "256"
.成员 模块完整路径, 字节型, , "256"
.版本 2
.DLL命令 _创建快照, 整数型, , "CreateToolhelp32Snapshot"
.参数 falg, 整数型
.参数 id, 整数型
.子程序 取程序路径, 文本型, 公开, 取指定进程名的程序启动路径(成功返回路径,失败或进程不存在返回空)
.参数 进程名, 文本型, , 程序进程名
.参数 区分大小写, 逻辑型, 可空, 默认不区分进程名大小写
.局部变量 进程列表, 进程信息_
.局部变量 进程数, 整数型
.局部变量 进程快照, 整数型
.局部变量 临时, 整数型
.局部变量 临时路径, 文本型
.局部变量 临时进程名, 文本型
.局部变量 snap, 整数型
.局部变量 mod, 模块信息型
进程快照 = _创建快照 (15, 0)
.如果真 (进程快照 = 0)
信息框 (“创建进程快照失败”, 0, )
返回 (“”)
.如果真结束
进程数 = 0
进程列表.dwSize = 296
临时 = _第一个 (进程快照, 进程列表)
.判断循环首 (临时 ≠ 0)
进程数 = 进程数 + 1
snap = _创建快照 (8, 进程列表.进程ID)
mod.size = 1024
_第一个模块 (snap, mod)
临时路径 = 取字节集数据 (到字节集 (mod.模块完整路径), 10, )
_关闭对象 (snap)
.如果真 (进程列表.进程ID ≠ 0)
临时进程名 = 到文本 (进程列表.进程名称)
.如果 (区分大小写)
.如果真 (临时进程名 = 进程名)
_关闭对象 (进程快照)
.如果真 (寻找文本 (临时路径, “?”, , 假) > 0)
返回 (“”)
.如果真结束
返回 (临时路径)
.如果真结束
.否则
.如果真 (到小写 (临时进程名) = 到小写 (进程名))
_关闭对象 (进程快照)
.如果真 (寻找文本 (临时路径, “?”, , 假) > 0)
返回 (“”)
.如果真结束
返回 (临时路径)
.如果真结束
.如果结束
.如果真结束
临时 = _下一个 (进程快照, 进程列表)
.判断循环尾 ()
_关闭对象 (进程快照)
返回 (“”)
'--------------------------------------DLL有什么不对说声,内容比较多好像少发了几个......(下面是DLL或者自定义数据)--------------楼主可以下载个超级模块试试,里面有取进程目录的子程序
.版本 2
.数据类型 进程信息_, , 进程信息
.成员 dwSize, 整数型
.成员 cntUsage, 整数型
.成员 进程ID, 整数型
.成员 th32DefaultHeapID, 整数型
.成员 th32ModuleID, 整数型
.成员 cntThreads, 整数型
.成员 th32ParentProcessID, 整数型
.成员 pcPriClassBase, 整数型
.成员 dwFlags, 整数型
.成员 进程名称, 字节型, , "256"
.版本 2
.数据类型 模块信息型, 公开, 进程模块信息
.成员 size, 整数型
.成员 mid, 整数型
.成员 pid, 整数型
.成员 gusage, 整数型
.成员 pusage, 整数型
.成员 base, 整数型
.成员 大小, 整数型
.成员 模块句柄, 整数型
.成员 模块文件名, 字节型, , "256"
.成员 模块完整路径, 字节型, , "256"
.版本 2
.DLL命令 _创建快照, 整数型, , "CreateToolhelp32Snapshot"
.参数 falg, 整数型
.参数 id, 整数型
追问
超级模块里面有呀?,有没有简单点的。
追答
这是超级模块6.5破解版,里面有寻找程序目录 楼主可以下载
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询