¿Como esperar a que se ejecute un programa externo sin que termine?

[ecfisa]

Empezado por chuli17

...
Lo que quisiera es que pare despues de ExecuteProcess, asta que la ventana sea visible, nose si me e esplicado bien, aber si alguien me puede tirar alguna ayudilla e intentado varias cosas y nada... Muchas gracias desde ya.

Hola chuli17.

Si no te entendí mal, pareciera que el problema lo tenes en la función ExecuteProcess. Proba escribiéndola de este modo:

Código Delphi [-]
function ExecuteProcess(aName : string): Boolean;
var
  sInfo: TStartupInfo;
  pInfo : TProcessInformation;
begin
  ZeroMemory(@sInfo,SizeOf(TStartupInfo));
  ZeroMemory(@pInfo, SizeOf(TProcessInformation));
  sInfo.cb := SizeOf(TStartupInfo);
  Result:= CreateProcess(nil,PChar(aName),nil,nil,False,
           CREATE_NEW_PROCESS_GROUP+NORMAL_PRIORITY_CLASS,nil,nil,sInfo,pInfo);
  if Result then
    WaitForSingleObject(pInfo.hProcess,INFINITE);
  CloseHandle(pInfo.hProcess);
  CloseHandle(pInfo.hThread);
end;

Un ejemplo de llamada:

Código Delphi [-]
const
   APPNAME = 'C:\JUEGOS\ETC_ETC\GameLauncher.exe';
begin
  if not ExecuteProcess(APPNAME) then
    raise Exception.Create('Error al intentar ejecutar ' + ExtractFileName(APPNAME));  
  // Resto del código...
end;

Saludos.