子プロセスを中断する

Question

私は、creatprocess api.Andで子プロセスを作成しています。私はjobobjectを作成し、この子プロセスをjobobjectに割り当てました。
親プロセスを終了すると、子プロセスも終了します。しかし、親プロセスを中断すると、子プロセスは中断せずに実行を継続します。
親プロセスが中断された場合、子プロセスを中断するオプションはありますか？私は、Windows APIの観点から

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,nil,False,CREATE_SUSPENDED, 
    nil,nil,SI,PI) Then 
    Begin 
    ResumeThread(PI.hThread); 
    CloseHandle(PI.hThread); 
    Result := PI.hProcess; 
    End 
    Else ShowMessage('CreateProcess failed: '+ 
        SysErrorMessage(GetLastError)); 
End; 

Answer 1

をプロセスを作成するために使用している

デルファイコード、プロセスを中断するようなものはありません。 スレッドのみを中断できますが、スレッド間に親子関係はありません。 「子スレッド」がないため、親が中断されたときにそれらを一時停止する自動メカニズムはありません。 （あなたはプロセスは中断を作成することができますが、それはそれが最初に作成されていますとき、一つだけのスレッドがありますので、だ、とそれが中断作成されます。）

を使用すると、子プロセスのすべてのスレッドを中断したい場合は、 enumerate themを実行し、親プロセスのスレッドをサスペンドするのと同じ方法でサスペンドします。

スタックオーバーフローWindows: Atomically suspend an entire process?