父进程创建子进程，子进程如何得到父进程的句柄或PID？

Question

父进程创建子进程，子进程如何得到父进程的句柄或PID？
父进程用CreateProcess(PWideChar('GiverProject.exe'),nil , nil, nil, True, 0, nil, nil, siStartupInfo, piProcInfo)，创建了GiverProject.exe的子进程，而且bInheritHandles继承一项设为True了。
那子进程中如何得到父进程的句柄或PID呢？

Answer 1

可以通过 CreateProcess 的第二个参数，将父进程的pid作为命令行参数传递给子进程， CreateProcess(PChar(giverproject.exe'), PChar(IntToStr(GetCurrentProcessId)), nil, nil, true, 0, nil, nil, siStartupInfo, piProcInfo);
这样子进程启动的时候，就可以用 parentid = StrToIntDef(GetParamStr(1), 0); 来得到父进程的pid了。