1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

procedure TTest.ExecNewProcess(ProgramName : String; Wait: Boolean);
var
  StartInfo : TStartupInfo;
  ProcInfo : TProcessInformation;
  CreateOK : Boolean;
begin


  { fill with known state }
  FillChar(StartInfo,SizeOf(TStartupInfo),#0);
  FillChar(ProcInfo,SizeOf(TProcessInformation),#0);
  StartInfo.cb := SizeOf(TStartupInfo);
  CreateOK := CreateProcess(nil, PChar(ProgramName), nil, nil,False,
              CREATE_NEW_PROCESS_GROUP+NORMAL_PRIORITY_CLASS,
              nil, nil, StartInfo, ProcInfo);
  { check to see if successful }

  If CreateOK
     then begin
          // may or may not be needed. Usually wait for child processes
          If Wait then
             begin
          // WaitForSingleObject(ProcInfo.hProcess, INFINITE);
             end;
          end
     else begin
          ShowMessage('Unable to run '+ProgramName);
          end;

  CloseHandle(ProcInfo.hProcess);
  CloseHandle(ProcInfo.hThread);

end; // procedure TTest.ExecNewProcess();