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:
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
