uses Tlhelp32;
procedure ModuleEnum(processid: Dword;var ProcList: TstringList);
var
ModuleList: Thandle;
pm: TMODULEENTRY32;
begin
ModuleList := CreateToolhelp32Snapshot
(TH32CS_SNAPMODULE, processID);
pm.dwSize := sizeof(TMODULEENTRY32);
if module32first(ModuleList, pm) then
begin
ProcList.Add(pm.szexepath);
while module32next(ModuleList, pm) do
ProcList.Add(pm.szexepath);
end;
closehandle(ModuleList);
end;
按PID枚举模块
最新推荐文章于 2021-04-29 03:58:17 发布