RSS订阅 | 匿名投稿
您的位置:网站首页 > 进程 > 正文

Delphi 获取当前进程的父进程

作者:admin 来源: 日期:2015/12/14 22:37:04 人气: 标签:

有时候,我们创建了一个子进程,我们需要知道自己所隶属的父进程的ID。有几个办法,一个是调用微软未公开的 NtQueryInformationProcess 函数,另一个就是下面提供的一个函数,利用了公开的函数,运行需要包含 tlhelp32 单元。


 function GetParentProcessId: Cardinal;
  var
    hSnapshot: THandle;
    AEntry: TProcessEntry32;
  begin
    Result := 0;
    hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    if hSnapshot <> INVALID_HANDLE_VALUE then
    begin
      try
        AEntry.dwSize := sizeof(TProcessEntry32);
        if Process32First(hSnapshot, AEntry) then
        begin
          repeat
            if AEntry.th32ProcessID = GetCurrentProcessId then
            begin
              Result := AEntry.th32ParentProcessID;
              break;
            end;
          until not Process32Next(hSnapshot, AEntry);
        end;
      finally
        CloseHandle(hSnapshot);
      end;
    end;
  end;

 

这个函数直接会返回当前的父进程的ID,如果找不到,返回0.

当然,根据上面的原因,你很容易就可以写出枚举所有子进程的函数了,这里就不再缀述了,大家可以根据自己的想法写写看。


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料