[gelöst] Module eines Prozzeses ermitteln

[angos]

Hi,

danke dir. Habe dort erst nur infos für die Prozesse gefunden. Hab das mit den Modulen nun gefunden und das funktioniert wunderbar.

für andere Suchende: Diese Funktion gibt eine Liste aller Module eines Threads mit der ID cThreadID zurück.

Delphi-Quellcode:

procedure ListProcessModules(cThreadID: Cardinal; var SL: TStringList);
var
  Snapshot: THandle;
  Module: TModuleEntry32;
begin
  Snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, cThreadID);
  if (Snapshot <> 0) and (Snapshot <> INVALID_HANDLE_VALUE) then
  begin
    try
      ZeroMemory(@Module, SizeOf(TModuleEntry32));
      Module.dwSize := SizeOf(TModuleEntry32);
      if Module32First(Snapshot, Module) then
        repeat
          SL.Add(StrPas(Module.szModule));
        until not Module32Next(Snapshot, Module);
    finally
      CloseHandle(Snapshot);
    end;
  end;
end;

Gruß

angos