Получить заголовок окна

[xshStasX]

Надо получить заголовок окна Главной программы и ее окна в котором токо чтоб был осуществлен ввод с клавиатуры.
При этом нам известной Хендл компонента окна программы в который токо что был осуществлен ввод с клавиатуры .
А еще лутше если можна будет получить весь список Классов и ханделов компонентов текучего окна.

[Smertnik]

Я как-то сталкивался с похожей проблемой, вообщем вот че можно сделать:
1. Раз в компонент на форме осуществлялся ввод, то форма полюбому активна, тада:

...
var
   H: HWND;
   Zagolovok:array[0..255] of Char;
...
begin
   H:= GetActiveWindow // - узнаем текущее активное окно
   GetWindowText(H, Zagolovok, SizeOf(Zagolovok)); //- считываем заголовок

2. Получили заголовок окна... требуется получить все хендлы компонентов и их классы, сделаем цикл:

var
   Wnd: HWND;
   Buff:array[0..255] of Char;
begin
  H:=GetActiveWindow;
  Wnd:= GetWindow(H, gw_child);
  While Wnd <> 0 then begin
  If (GetParent(Wnd) = H) then begin
      GetClassName(Wnd,Buff,SizeOf(Buff));
      ListBox1.Items.Add(StrPas(buff)); // добавляем в список классов
  end;
  Wnd:= GetWindow(H, gw_HWNDNext);
  end;

В ListBox1 будут выведены классы всех child окон....