delphi – 暂停子进程

我正在使用creatprocess api创建子进程.我创建了一个jobobject并将此子进程分配给jobobject.
??现在,如果我杀死我的父进程,子进程也会终止.但是如果我挂起父进程,子进程不会挂起并继续执行.
??当父进程被暂停时,是否有任何选项可以暂停子进程？

我用于创建流程的Delphi代码

Function ExecuteProcess(EXE : String) : THandle;

Var
SI      : TStartupInfo;
PI      : TProcessInformation;
Begin
  Result := INVALID_HANDLE_VALUE;
  FillChar(SI,SizeOf(SI),0);
  SI.cb := SizeOf(SI);
  If 
    CreateProcess(nil,PChar('.'+EXE),nil,False,CREATE_SUSPENDED,SI,PI) Then 
   Begin
    ResumeThread(PI.hThread);
    CloseHandle(PI.hThread);
    Result := PI.hProcess;
   End
  Else ShowMessage('CreateProcess failed: '+
                   SysErrorMessage(GetLastError));
End;