cb = 8
cbNeeded = 96
判断循环首 (cb ≤ cbNeeded
)
cb = cb × 2
重定义数组 (ProcessIDs, 假, cb ÷ 4
)
lret =
枚举进程_ (ProcessIDs
[1
], cb, cbNeeded
)
判断循环尾 ()NumElements = cbNeeded ÷ 4
变量循环首 (1, NumElements, 1, i
)
hProcess =
打开进程_ (位或 ( #PROCESS_QUERY_INFORMATION, #PROCESS_VM_READ ), 0, ProcessIDs
[i
])
如果真 (hProcess ≠ 0
)

lret =
枚举进程模块_ (hProcess, Modules
[1
], 255, cbNeeded2
)

如果真 (lret ≠ 0
)


ModuleName =
取空白文本 (255
)


nSize = 255



lret =
取模块文件名扩展_ (hProcess, Modules
[1
], ModuleName, 255
)


_启动窗口1.列表框10.
加入项目 (ModuleName,
)




变量循环尾 ()关闭内核对象_ (hProcess
)_启动窗口1.标签10.标题 =
“当前可获取进程路径:” +
到文本 (_启动窗口1.列表框10.
取项目数 ())
_枚举进程文件路径 ()变量名 | 类 型 | 静态 | 数组 | 备 注 |
cb | 整数型 | | |
cbNeeded | 整数型 | | |
NumElements | 整数型 | | |
ProcessIDs | 整数型 | | 0 |
cbNeeded2 | 整数型 | | |
NumElements2 | 整数型 | | |
Modules | 整数型 | | 255 |
lret | 整数型 | | |
ModuleName | 文本型 | | |
nSize | 整数型 | | |
hProcess | 整数型 | | |
i | 整数型 | | |
cb = 8
cbNeeded = 96
判断循环首 (cb ≤ cbNeeded
)
cb = cb × 2
重定义数组 (ProcessIDs, 假, cb ÷ 4
)
lret =
枚举进程_ (ProcessIDs
[1
], cb, cbNeeded
)
判断循环尾 ()NumElements = cbNeeded ÷ 4
变量循环首 (1, NumElements, 1, i
)
hProcess =
打开进程_ (位或 ( #PROCESS_QUERY_INFORMATION, #PROCESS_VM_READ ), 0, ProcessIDs
[i
])
如果真 (hProcess ≠ 0
)

lret =
枚举进程模块_ (hProcess, Modules
[1
], 255, cbNeeded2
)

如果真 (lret ≠ 0
)


ModuleName =
取空白文本 (255
)


nSize = 255



lret =
取模块文件名扩展_ (hProcess, Modules
[1
], ModuleName, 255
)


_启动窗口1.列表框10.
加入项目 (ModuleName,
)




变量循环尾 ()关闭内核对象_ (hProcess
)_启动窗口1.标签10.标题 =
“当前可获取进程路径:” +
到文本 (_启动窗口1.列表框10.
取项目数 ())