[diegofhernando]

Hola... con este código obtienes el handle de la ventana activa y su respectivo caption:

Código Delphi [-]
var
Manejador: THandle;
Buff: array[0..255] of Char;
begin
       Manejador:= GetForegroundWindow; //obtener la ventana activa
       GetWindowText(Manejador,Buff,255); // obtenemos el caption
       ShowMessage(Buff); // aki mostramos el resultado
end;

bien espero te sea de ayuda...

Salu2... desde Colombia.