ShellExecute - Warten bis Prog beendet wird funzt nicht

[Tyler]

Hallo,

folgenden Code, zu Teilen aus folgendem Beitrag zusammengebastelt:
http://www.delphipraxis.net/internal...%FChren+warten

funktioniert leider nicht, und zwar wird die FOR-TO-Schleife bis zum Ende durchgelaufen, und nicht auf den Abschluss des Programms gewartet:

Delphi-Quellcode:

procedure Tf_main.bt_startClick(Sender: TObject);
var
  i : Integer;
  Info: TShellExecuteInfo; 
  pInfo: PShellExecuteInfo; 
  exitCode: DWord;
begin
  for i := 0 to inst_Prog - 1 do
  begin


  pInfo := @Info;
  with Info do 
  begin 
    cbSize := SizeOf(Info); 
    fMask  := SEE_MASK_NOCLOSEPROCESS; 
    wnd    := Application.Handle;
    lpVerb := NIL; 
    lpFile := PChar(lab_ProgExe[i].Caption);
    {Parametros al ejecutable} 
    {Executable parameters}
    lpParameters := PChar(lab_ProgParam[i].Caption + #0);
    lpDirectory  := PChar(lab_ProgPfad[i].Caption);
    nShow        := 1;
    hInstApp     := 0; 
  end; 
  ShellExecuteEx(pInfo); 

  repeat 
    exitCode := WaitForSingleObject(Info.hProcess, 500);
    Application.ProcessMessages;
  until (exitCode <> WAIT_TIMEOUT);
  end;

Jemand ne Idee, woran das liegen kann?

Danke im Vorraus


tyler