Aplicación en primer plano

[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