PID von Elternprozess ermitteln

[DeddyH]

Ohne es jetzt ausprobiert zu haben, wie wäre es denn so?

Delphi-Quellcode:

function GetParentPID:Cardinal;
var
  crtpid : Cardinal;
  bContinue : Boolean;
  hSnapshot : THANDLE;
  procentry : PROCESSENTRY32A;
begin
  Result := 0;
  procentry.dwSize := sizeof(PROCESSENTRY32) ;
  hSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if hSnapshot <> INVALID_HANDLE_VALUE then
    try
      crtpid := GetCurrentProcessId();
      bContinue := Process32FirstA(hSnapShot, procentry);
      while bContinue do
        begin
          if crtpid = procentry.th32ProcessID then
            Result := procentry.th32ParentProcessID;
          bContinue := (Result = 0) and Process32NextA(hSnapShot, procentry);
        end;
    finally
      CloseHandle(hSnapshot);
    end;
end;