Process Pfad unter XP ermitteln

[Luckie]

Mit einem Module-Snapshot kommt man an den Exe-Pfad unter NT-basierenden Systemen ran.

Delphi-Quellcode:

    hSnapModule := CreateToolHelp32SnapShot(TH32CS_SNAPMODULE, pe32.th32ProcessID);
    if hSnapModule <> 0 then
    begin
      cntM := 0;
      ZeroMemory(@me32, sizeof(me32));
      me32.dwSize := sizeof(TModuleEntry32);
      if Module32First(hSnapModule, me32) = TRUE then
      begin
        FDetailsSingleProc.Path := me32.szExePath;
        while Module32Next(hSnapModule, me32) = TRUE do
        begin
          setlength(FDetailsSingleProc.Modules, cntM+1);
          FDetailsSingleProc.Modules[cntM] := me32.szExePath;
          Inc(cntM);
        end;
        FDetailsSingleProc.cntModules := cntM;
      end;
    end;

Ein Ausschnitt aus meiner SysInfo.