Delphi获取PID的父进程文件名

本文整理自网络，侵删。

 
uses
  Psapi,
  Windows,
  tlhelp32,
  SysUtils;
 
function GetParentProcessFileName(PID : DWORD): String;
var                              
  HandleSnapShot      : THandle;
  EntryParentProc     : TProcessEntry32;
  HandleParentProc    : THandle;
  ParentPID           : DWORD;
  ParentProcessFound  : Boolean;
  ParentProcPath      : PChar;
begin
  ParentProcessFound := False;
  HandleSnapShot     := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  GetMem(ParentProcPath, MAX_PATH);
  try
    if HandleSnapShot <> INVALID_HANDLE_VALUE then
    begin
      EntryParentProc.dwSize := SizeOf(EntryParentProc);
      if Process32First(HandleSnapShot, EntryParentProc) then
      begin
        repeat
          if EntryParentProc.th32ProcessID = PID then
          begin
            ParentPID  := EntryParentProc.th32ParentProcessID;
            HandleParentProc  := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, ParentPID);
            ParentProcessFound:= HandleParentProc <> 0;
            if ParentProcessFound then
            begin
                GetModuleFileNameEx(HandleParentProc, 0, PChar(ParentProcPath), MAX_PATH);
                ParentProcPath := PChar(ParentProcPath);
                CloseHandle(HandleParentProc);
            end;
            break;
          end;
        until not Process32Next(HandleSnapShot, EntryParentProc);
      end;
      CloseHandle(HandleSnapShot);
    end;
 
    if ParentProcessFound then
      Result := ParentProcPath
    else
      Result := '';
  finally
      FreeMem(ParentProcPath);
  end;
end;
 

相关阅读 >>

Delphi 中将tmemorystream转换为'string'

Delphi socket connect timeout 套字节链接超时设置

关于Delphi xe5 firemonkey 手机屏幕自适应程序问题

Delphi中的字符串比较(comparestr)

Delphi 设置系统启动文件夹自身开机自动运行

Delphi 判断端口(port)是否被占用

Delphi 如何使用sendmessage发送后台组合键消息(ctrl+xxx)

Delphi 查看指定进程占用端口

Delphi 如何让scrollbox的内容与滚动条一起实时滚动

Delphi 图像旋转90° 反旋转90°

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi获取PID的父进程文件名