[ApplicatiOn]

здравствуйте уважаемые программисты.. нужна помощь...

напишите пожалуйста примерчик получения класса окна по заголовку.

На форме 2 edit'а и 1а кнопочка..

В первом Edit'е вводим заголовок окна.

Жмём на кнопочку.

Во второй Edit посылается класс окна.

очень нужна ваша помощь. заранее спасибо...

[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;

[ApplicatiOn]

Спасибо парень, то что надо!

[mak-karpov]

GetClassName