Parent Prozess ID ermitteln

[mpth]

das funktioniert wohl nur mit den tool help apis:

Delphi-Quellcode:

...

uses
  tlhelp32;

...

function GetParentProcessID: integer;
var
  h: THandle;
  rec: TProcessEntry32W;
begin
  Result := 0;
  h := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  try
    rec.dwSize := sizeof(rec); // initialisierung
    if Process32FirstW(h, rec) then
    repeat
      if rec.th32ProcessID = GetCurrentProcessID then
      begin
        Result := rec.th32ParentProcessID;
        Break;
      end;
    until not Process32NextW(h, rec);
  finally
    CloseHandle(h);
  end;
end;