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;