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; GetWindowText(Manejador,Buff,255); ShowMessage(Buff); end;
bien espero te sea de ayuda...
Salu2... desde Colombia.