PID von Elternprozess ermitteln

**Angel4585**

Hallo,

ich hab hier einen Weg gefunden die PID des Parentprozesses zu ermitteln und habe das mal für mich nach Delphi übersetzt.
Original:

http://www.codeproject.com/Articles/...nt-Process-PID

Meine Delphi Version:

zusammenfalten · markieren

Delphi-Quellcode:

			uses Windows, TlHelp32;

function GetParentPID:Cardinal;

var

  crtpid : Cardinal;

  bContinue : Boolean;

  hSnapshot : THANDLE;

  procentry : PROCESSENTRY32A;

begin

  hSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0 );

  bContinue := Process32FirstA( hSnapShot, procentry ) ;

  Result := 0;

  crtpid := GetCurrentProcessId();

  while( bContinue ) do

    begin

    if(crtpid = procentry.th32ProcessID)then

      Result := procentry.th32ParentProcessID;

    procentry.dwSize := sizeof(PROCESSENTRY32) ;

    bContinue := (Result = 0) and Process32NextA( hSnapShot, procentry );

    end;

end;

Ich hab ein bisschen vom Original abgeschnitten, wie das Ermitteln des Prozessnamens, aber das kann jeder nach belieben dazumachen.
Da ich gesehen habe, dass die Frage nach dieser Funktion öfters auftaucht aber ich die Funktion selbst nicht gefunden habe, dachte ich ich teile das hier mal.

Habt ihr noch Anregungen dazu? Wie ich euch kenne bestimmt

PID von Elternprozess ermitteln

PID von Elternprozess ermitteln

Forumregeln