ID des Parent-Prozesses ermitteln

**Matze**

Hier stellt Luckie eine Möglichkeit vor, die ID des Parent-Prozesses zu ermitteln.

Eine kleine Erklärung, für diejenigen, die nicht wissen, was man sich darunter vorzustellen hat:
Wird euer Programm beispielsweise von einer anderen Anwendung gestartet, so bekommt ihr mit der folgenden Funktion die ID des Prozesses, der zur Anwendung gehöhrt, die euer Programm aufgerufen hat.

zusammenfalten · markieren

Delphi-Quellcode:

			uses

  tlhelp32;

function GetParentID(ID: DWORD; var IDParent: DWORD): DWORD;

var

  hSnapShot: THandle;

  pe32: TProcessEntry32;

begin

  hSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

  if hSnapShot <> 0 then

  begin

    pe32.dwSize := sizeof(TProcessEntry32);

    if Process32First(hSnapShot, pe32) then

    begin

      repeat

        if pe32.th32ProcessID = GetCurrentProcessId then

        begin

          IDParent := pe32.th32ParentProcessID;

          break;

        end;

      until Process32Next(hSnapShot, pe32) = False;

    end;

    CloseHandle(hSnapShot);

  end;

  result := GetLastError;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

  ParentID: DWORD;

  dwReturn: DWORD;

begin

  dwReturn := GetParentID(GetCurrentProcessId, ParentID);

  if dwReturn = 0 then

    ShowMessage(IntToStr(ParentID))

  else

    ShowMessage(SysErrorMessage(dwReturn));

end;

Weitere Suchbegriffe: Process, Prozess

ID des Parent-Prozesses ermitteln

ID des Parent-Prozesses ermitteln

Forumregeln