Cita:
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