Есть парочка вариантов...взято с проекта DelphiWorld6...
Цитата:
Получаем заголовок чужого компонента, который под мышью
--------------------------------------------------------------------------------
procedure TForm1.Timer1Timer(Sender: TObject);
var
s: string;
h: HWND;
begin
h := WindowFromPoint(Mouse.CursorPos);
SetLength(s, SendMessage(h, WM_GETTEXTLENGTH, 0, 0)+1);
SendMessage(h, WM_GETTEXT, length(s), Integer(PChar(s)));
SetLength(s, lStrLen(PChar(s)));
Label1.Caption := s;
end;
Некрасиво то, что вся эта ерунда висит на таймере...
еще...
Цитата:
Классы главных форм популярных программ
--------------------------------------------------------------------------------
Every window is a member of a window class. When you use API functions suchs as FindWindow, ShowWindow,..., you need the classname as parameter to specify the window class name.
Below are some class names of common applications that are included in Windows.