按PID枚举模块

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;