Saber que aplicacion tiene el foco

[Omega]

Hola, aquí estoy de nuevo dando la lata haber si me pueden ayudar.

La cosa es, ¿Es posible saber con Delphi que aplicación tiene el foco? En caso afirmativo, ¿Como?

Saludos.

[roman]

Posiblemente te sirva GetForegroundWindow de la API de Windows.

// Saludos

[dec]

Hola,

Con la función del API de Windows "GetForegroundWindow()" obtenemos el "Handle" de la ventana en primer plano. A partir de ahí, la verdad es que no estoy muy puesto, pero, por ejemplo, podríamos obtener el título de la ventana con la función "GetWindowText()", que, justamente, necesita el "Handle" de una ventana.

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
var
  h: THandle;
  p: array[0..MAX_PATH] of Char;
begin
  h := GetForegroundWindow();
  if (h <> 0) then begin
    GetWindowText(h, p, SizeOf(p));
    Caption := StrPas(p);
  end;
end;

[Omega]

Muchas gracias a los dos, funciona perfectamente. Ahora haber si puedo hacer lo que yo quiero, bloquear el ALT en una ventana...