Ejecutar aplicacion externa y que este en primer plano

[roman]

Empezado por delphi.com.ar

Un detalle, en mi código cuando busco la ventana perteneciente al hilo de ejecución, manejo un timeout interno porque sucede que si el equipo no es muy veloz, es posible que el proceso esté creado pero no la ventana.

Tienes razón. Aún en máquinas rápidas si la aplicación que se abre tarda mucho, como Word. No me había percatado porque hacía las pruebas por separado: en un botón mandaba abrir la aplicación y en otro botón la ponía como siempre visible.

Intente modificar GetMainWindow así

Código Delphi [-]
function GetMainWindow(ThreadId: Cardinal): HWnd;
begin
  Result := 0;

  while (Result = 0) do
    EnumThreadWindows(ThreadId, @DoEnum, Integer(Pointer(@Result)));
end;

pero no resulta. Aun cuando se obtiene el identificador de la ventana principal si la llamada a MakeAppTopMost es inmediata no siempre funciona.

Finalmente cambié ExecuteProcess:

Código Delphi [-]
function ExecuteApp(AppPath: String; TimeOut: Integer = 2000): Cardinal;
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;

begin
  FillChar(StartInfo, SizeOf(StartInfo), 0);
  StartInfo.cb := SizeOf(StartInfo);

  if not CreateProcess(
    PChar(AppPath), nil, nil, nil, false, 0, nil, nil, StartInfo, ProcInfo
  )
  then
    RaiseLastOSError;

  Sleep(TimeOut);

  Result := ProcInfo.dwThreadId;
end;

Así, por defecto esperará 2 segundos antes de proseguir pero se le puede cambiar el valor en la llamada.

// Saludos