Aplicación en primer plano

[jordillussa]

Tengo 2 aplicaciones que deben correr a pantalla completa en un mismo PC. Se comunican mediante un socket y mensajes. Uno de los mensajes que se pasan es "Ponte en primer plano".

Cuando la aplicación A está en primer plano y a terminado su trabajo, le envia por socket un mensaje a la aplicación B para que se ponga en primer plano. El tema es que las aplicaciones se pasan bien los mensajes, pero no siempre se ponen en primer plano, a veces se quedan parpadeando en la barra de herramientas, indicando que han recibido algun evento... y hay que clicar encima de la barra de tareas de Windows par que se ponga en primer plano.

Lo he intentado con varias funciones...

Application.BringToFront;

o bien

SetForegroundWindow(Application.Handle);

pero siempre con el mismo resultado, no siempre que ejecutan el comando anterior pasan a primer plano, a veces se quedan simplemente parapadeando en la barra de herramientas.

Alguien sabe un método para poner una aplicacion en primer plano?

Saludos!

[roman]

Hola,

En mi página puedes ver el código de mi unidad uiapp que sirve para evitar que una aplicación se ejecute más de una vez. ¿Por qué te digo esto? Porque parte de la unidad lo que hace es justamente activar la instancia de la aplicación que previamente estuviera en ejecución y tuve el mismo problema que describes. En la función AppWndProc de la unidad mencionada, verás lo que hago para evitar eso y posiblemente sirva en tu caso.

// Saludos

[jordillussa]

lo reviso. Gracias.

[jordillussa]

Roman he incrustado parte de tu código y efectivamente funciona... ahora bien no me queda muy claro lo que hace AttachThreadInput... no será peligroso y me petará la aplicación bajo algunas circunstancias????

Saludos y gracias.

Código Delphi [-]
procedure TTPC_Main.ServerEPassarPrimerPla(Sender: TObject);
var
  FgThreadId  : DWORD; { Hilo de la app. que tenga el foco }
  AppThreadId : DWORD; { Hilo de nuestra aplicación        }
begin
  FgThreadId  := GetWindowThreadProcessId(GetForegroundWindow, nil);
  AppThreadId := GetWindowThreadProcessId(Handle, nil);

  AttachThreadInput(AppThreadId, FgThreadId, true);
  SetForegroundWindow(Handle);
  AttachThreadInput(AppThreadId, FgThreadId, false);

  if IsIconic(Handle) then
    ShowWindow(Handle, SW_RESTORE);
end;

[roman]

Cabalmente no sé por qué funciona. Lo que entiendo es que SetForegroundWindow no funciona bien si la aplicación que la llama no es la aplicación que tiene el foco, como puede ocurrir ocasionalmente. Y hasta donde entiendo, AttachThreadInput hace que la aplicación se comporte como si tuviera el foco, o mejor dicho, lo comparte con la aplicación que lo tenga.

No creo que presente ningún problema colateral, sobre todo porque el foco se despega inmediatamente después de la llamada a SetForegroundWindow.

// Saludos