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:

Procedure RunProcessAndWait (aFilename: String); 
Var 
  StartupInfo : TStartupInfo; 
  ProcessInfo : TProcessInformation; 
  Result: Boolean; 
Begin 
  FillChar (StartupInfo, SizeOf (TStartupInfo), 0); 
  StartupInfo.cb := Sizeof (TStartupInfo); 

  StartupInfo.dwFlags := STARTF_USESHOWWINDOW OR STARTF_USEPOSITION OR STARTF_USESIZE ; 
  StartupInfo.wShowWindow := SW_SHOWDEFAULT; 

  Result := CreateProcess ( 
      nil, 
      pChar (aFilename), 
      nil, 
      nil, 
      False, 
      NORMAL_PRIORITY_CLASS,  
      nil, 
      nil, 
      StartupInfo, 
      ProcessInfo 
    ); 
    
  If Result then 
    WaitForSingleObject (ProcessInfo.hProcess, INFINITE); 

  if ProcessInfo.hProcess <> 0 then  
    CloseHandle (ProcessInfo.hProcess); 
End;