窗口_句柄取进程路径

牛X的孩子

.版本 2

.子程序 窗口_句柄取进程路径, 文本型, 公开, 返回进程全路径名；
.参数 窗口句柄, 整数型
.局部变量 进程ID, 整数型
.局部变量 进程信息a, 精易_进程信息
.局部变量 进程文件名, 文本型
.局部变量 结果, 整数型
.局部变量 进程快照, 整数型
.局部变量 进程句柄, 整数型
.局部变量 进程信息, 精易_进程信息列表

.如果真 (GetWindowThreadProcessId (窗口句柄, 进程ID) ≠ 0)
    进程信息a.进程ID ＝ 进程ID
    进程文件名 ＝ 取空白文本 (1024)
    结果 ＝ GetModuleFileNameExA (OpenProcess (1040, 0, 进程ID), 0, 进程文件名, 1024)
    .如果真 (结果 ≠ 0)
        进程信息a.进程全路径名 ＝ 到文本 (删首尾空 (进程文件名))
    .如果真结束
    进程快照 ＝ CreateToolhelp32Snapshot (15, 0)
    .如果真 (进程快照 ≠ 0)
        进程信息.dwSize ＝ 296
        进程句柄 ＝ Process32First (进程快照, 进程信息)

        .判断循环首 (进程句柄 ≠ 0)
            .如果真 (进程信息.进程ID ＝ 进程ID)
                进程信息a.进程名 ＝ 到文本 (进程信息.进程名称)
                跳出循环 ()
            .如果真结束
            进程句柄 ＝ Process32Next (进程快照, 进程信息)
        .判断循环尾 ()
        CloseHandle (进程快照)
    .如果真结束

.如果真结束
返回 (进程信息a.进程全路径名)
---------------------------------------------------------------------------------------↑原代码↑-------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------↓现代码↓-------------------------------------------------------------------------------------------
.版本 2

.子程序 窗口_句柄取进程路径, 文本型
.参数 窗口句柄, 整数型
.局部变量 进程ID, 整数型
.局部变量 进程文件名, 文本型

.如果真 (GetWindowThreadProcessId (窗口句柄, 进程ID) ≠ 0)
    进程文件名 ＝ 取空白文本 (1024)
    .如果真 (GetModuleFileNameExA (OpenProcess (1040, 0, 进程ID), 0, 进程文件名, 1024) ≠ 0)
        返回 (进程文件名)
    .如果真结束

.如果真结束
返回 (“”)


我都不知道取个路径，写那么一堆东西干什么

王宝泽

取进程路径

h_xonly

给力！！！！！！！！！！！

pjianjian

还是看图片方便啊

牛X的孩子

自己沙发