[Drozh]

Ищет ТОЛЬКО РОДИТЕЛЬСКОЕ окно!

Код:

var
 Caption, ClassName: String;
 Wnd: HWND;
begin
 Caption := Edit1.Text;
 ClassName := 'Не найдено';

 Wnd := FindWindow(nil, PAnsiChar(Caption));

  if Wnd <> 0 then
  begin
   SetLength(ClassName, 1024);
   SetLength(ClassName, GetClassName(Wnd, PAnsiChar(ClassName), 100));
  end;

 Edit2.Text := ClassName;