Родительский процесс

[Den7656]

Приветствую вас, интересует вопрос такой:
как можно получить имя (полное с путем) родительского процесса чужой программы, например explorer.exe или winrar, нужно узнать каким процессом он был запущен.
всем ответившим спасибо.

[rpy3uH]

самый просто способ через ToolHelp32. получаем список процессов, находим в этом списке искомый и получаем его PPID.

function GetProcessParentPID(const PID: DWORD): DWORD;
var
  Snapshot: Windows.THandle;    // snapshot of process
  PE: TlHelp32.TProcessEntry32; // structure holding info about a process
  EndOfList: Boolean;           // indicates end of process list reached
begin
  // Assume failure
  Result := '';
  // Get snapshot containing process list
  Snapshot := TlHelp32.CreateToolHelp32SnapShot(TlHelp32.TH32CS_SNAPPROCESS, 0);
  if Snapshot = Windows.THandle(-1) then
    Exit;
  try
    // Look up process in process list
    PE.dwSize := SizeOf(PE);
    EndOfList := not TlHelp32.Process32First(Snapshot, PE);
    while not EndOfList do
    begin
      if PE.th32ProcessID = PID then
      begin
        // Found process: record exe name
        Result := PE.th32ParentProcessID;
        Break;
      end;
      EndOfList := not TlHelp32.Process32Next(Snapshot, PE);
    end;
  finally
    // Free the snapshot
    Windows.CloseHandle(Snapshot);
  end;
end;

также можно через ZwQueryProcessInformation, но через ToolHelp32 предпочтительнее

[Den7656]

Большое спасибо, все получилось