.如果真 (0 ＝ 进程ID)
进程ID ＝ 取自进程ID ()
.如果真结束
模块快照句柄 ＝ 创建系统快照 (8, 进程ID)
.如果真 (模块快照句柄 ＝ -1)
返回 (路径)
.如果真结束
模块信息.占用字节 ＝ 1024
模块信息指针 ＝ 取模块信息 (模块快照句柄, 模块信息)
.如果真 (0 ≠ 模块信息指针)
路径 ＝ 到文本 (模块信息.模块路径)
.如果真结束
关闭系统快照 (模块快照句柄)
进程句柄 ＝ 打开进程_ (1024 ＋ 16, 0, 进程 [i].进程标识符)
数据 ＝ 取空白字节集 (40)
API_GetProcessMemoryInfo (进程句柄, 数据, 40)
API_CloseHandle (进程句柄)
命令.OpenProcess (进程 [i].进程标识符)
命令.GetProcessImagePathAndCommandLine (命令行)
超级列表框1.置标题 (位置1, 3, 到文本 (取字节集数据 (取字节集中间 (数据, 13, 4), 3, ) ÷ 1024) ＋ “ K”)
超级列表框1.置标题 (位置1, 1, 到文本 (进程 [i].进程标识符))
命令.Close ()
超级列表框1.置标题 (位置1, 2, 命令行)
上一篇 正则表达式、匹配、搜索例程