9

My application (main.exe) is executing a Child process (child.exe) using ShellExecuteEx.

But when I close or kill (via Process-Explorer) main.exe the child process remains active.

How to gracefully handle that, when main.exe terminates child.exe terminates also?

3
  • Get the main executable to send a message to the child executable when the main executable closes. Jan 11, 2012 at 15:55
  • 1
    not when then main executable gets killed
    – ZigiZ
    Jan 11, 2012 at 16:15
  • 1
    Jobs appears to be a graceful solution. Also, you can inherit parent process handle and wait for it be be signaled upon termination.
    – OnTheFly
    Jan 11, 2012 at 16:44

3 Answers 3

15

You need to use jobs. Main executable should create a job object, then you'll need to set JOB_OBJECT_LIMIT_KILL_ON_JOB_CLOSE flag to your job object.

uses
  JobsApi;
//...
var
  jLimit: TJobObjectExtendedLimitInformation;

  hJob := CreateJobObject(nil, PChar('JobName');
  if hJob <> 0 then
  begin
    jLimit.BasicLimitInformation.LimitFlags := JOB_OBJECT_LIMIT_KILL_ON_JOB_CLOSE;
      SetInformationJobObject(hJob, JobObjectExtendedLimitInformation, @jLimit,
        SizeOf(TJobObjectExtendedLimitInformation));
  end; 

Then you need to execute another process with CreateProcess function where dwCreationFlags must be set to CREATE_BREAKAWAY_FROM_JOB. If this function succeeds call AssignProcessToJobObject.

function ExecuteProcess(const EXE : String; const AParams: string = ''; AJob: Boolean = True): THandle;
var
  SI : TStartupInfo;
  PI : TProcessInformation;
  AFlag: Cardinal;
begin
  Result := INVALID_HANDLE_VALUE;
  FillChar(SI,SizeOf(SI),0);
  SI.cb := SizeOf(SI);

  if AJob then
    AFlag := CREATE_BREAKAWAY_FROM_JOB
  else
    AFlag := 0;


  if CreateProcess(
     nil,
     PChar(EXE + ' ' + AParams),
     nil,
     nil,
     False,
     AFlag,
     nil,
     nil,
     SI,
     PI
     ) then
  begin
   { close thread handle }
    CloseHandle(PI.hThread);
    Result := PI.hProcess;
  end;
end;
//...
  hApp := ExecuteProcess('PathToExecutable');

  if hApp <> INVALID_HANDLE_VALUE then
  begin
     AssignProcessToJobObject(hJob, hApp);
  end;

When all of this done all the child processes will be automatically terminated even if the main executable has been killed. You can get the JobsApi unit here. Note: I've not tested it with Delphi 7.

EDIT: Here you can download working demo project.

8
  • I have tested your code. I used the CreateJobObject on my Form create. added a Button for ExecuteProcess. the child process runs ok, AssignProcessToJobObject returns True. but when I close my parent application the child process remains alive.
    – ZigiZ
    Jan 14, 2012 at 15:03
  • @zigi70 Probably you are doing something wrong. We are using this technique successfully in our multi-modular software. I've edited my answer and included my working demo project source code link.
    – Linas
    Jan 15, 2012 at 18:04
  • I have uploaded my project here. would you be so kind to take a look.
    – ZigiZ
    Jan 15, 2012 at 21:00
  • Tested your project with D7/Delphi 2009. running on XP SP3. same result... notepad.exe remains. (at first I thought it was the full path issue which I did not provide in my application)
    – ZigiZ
    Jan 15, 2012 at 21:20
  • 2
    you wont believe if I tell you what causing this: Process Explorer . is the one to blame! :-P
    – ZigiZ
    Jan 16, 2012 at 0:06
3

Try using Job Objects , check these functions CreateJobObject and AssignProcessToJobObject.

A job object allows groups of processes to be managed as a unit. Job objects are namable, securable, shareable objects that control attributes of the processes associated with them. Operations performed on a job object affect all processes associated with the job object. Examples include enforcing limits such as working set size and process priority or terminating all processes associated with a job.

0
0

I think, it's very cool code. It's working for me, but I add some changes to be able user to set show window flags for child processes like SW_SHOW/SW_HIDE.

...

function ExecuteProcess(const EXE : String; const AParams: string = '';
  const nCmdShow: Integer = SW_SHOW; AJob: Boolean = True): THandle;
var
  SI : TStartupInfo;
  PI : TProcessInformation;
  AFlag: Cardinal;
begin
  Result := INVALID_HANDLE_VALUE;
  FillChar(SI,SizeOf(SI),0);
  SI.cb := SizeOf(SI);
  SI.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
  SI.wShowWindow := nCmdShow;

  if AJob then
    AFlag := CREATE_BREAKAWAY_FROM_JOB
  else
    AFlag := 0;

...

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Not the answer you're looking for? Browse other questions tagged or ask your own question.