Получение параметров элемента управления при воздействии на него

[chandrasecar]

Каким образом можно получить координаты объекта (элемента управления), его высоту, длину и тип, на который было произведено воздействие мышкой? При этом объект (элемент управления) располагается вне приложения, например кнопка "пуск" у виндоуса или др. элементы в окнах программ "МС офис" и пр..
Щелчок мыши перехватываю сл. образом:

protected
  procedure TForm1.WndProc (var Msg: TMessage); override;

****************

procedure TForm1.WndProc (var Msg: TMessage);
begin
  if (Msg.Msg = MWM_LBUTTONDOWN) then
    ShowMessage('Нажата левая кнопка мыши');
  // и т.д. со всеми нажатиями
end;

В этой процедуре мне и нужно получать перечисленные параметры.

[JTG]

Глобальный мышиный хук + WindowFromPoint. По дескриптору окна можно получить всё остальное.

[chandrasecar]

Глобальный хук в моей ситуации не поможет. Не нужно чтобы мышь перехватывалась, нужно только чтобы программа скрытно реагировала на нажатие мыши где угодно. В моей ситуации подходит только тот блок кода который я привел (может есть и лучше, но он работает). А вот с WindowFromPoint не все понятно. Я нажимаю на кнопку в программе Ворд 2007, WindowFromPoint считывает HWND окна Ворда; и как с этим узнать абсолютные координаты этой кнопочки, ее ширину и высоту?

[D@rkD@iver]

ну по HWND можно найти все это

[chandrasecar]

Как я понял WindowFromPoint возвращает не Handle окна, а элемента воздействия: потому что я нажимаю внутри одного окна на разные элементы и он возвращает разные значения Handle. Как теперь по Handle можно определить абсолютные координаты элемента управления, ширину и высоту?

[spamer]

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Wnd: HWND;                   // Hahdle найденного окна
  Pos: TPoint;                 // Позиция курсора
  Rect: TRect;                 // Координаты окна
  buff: array[0..255] of char; // Буфер
  WndText: string;             // Текст окна
  NameClass: string;           // Класс окна
begin
   // Получаем позицию курсора
   GetCursorPos( Pos );
   // Получаем Handle окна под курсором
   Wnd := WindowFromPoint( Pos );
   GetWindowRect( Wnd, Rect );
   GetWindowText( Wnd, buff, SizeOf( buff ) );
   WndText := StrPas( buff );
   GetClassName( Wnd, buff, SizeOf( buff ) );
   NameClass := StrPas( buff );

   // Выводим координаты курсора
   LabelPosX.Caption := 'X: ' + IntToStr( Pos.X );
   LabelPosY.Caption := 'Y: ' + IntToStr( Pos.Y );

   LabelHandle.Caption := 'Handle: ' + IntToStr( Wnd );
   LabelName.Caption := 'Name: ' + WndText;
   LabelClass.Caption := 'Class: ' + NameClass;
   LabelLeft.Caption := 'Left = ' + IntToStr( Rect.Left );
   LabelTop.Caption := 'Top = ' + IntToStr( Rect.Top );
   LabelWidth.Caption := 'Width = ' + IntToStr( Rect.Right - Rect.Left );
   LabelHeight.Caption := 'Height = ' + IntToStr( Rect.Bottom - Rect.Top );

   // Получаем Handle родительского окна
   Wnd := GetParent( Wnd );
   GetWindowRect( Wnd, Rect );
   GetWindowText( Wnd, buff, SizeOf( buff ) );
   WndText := StrPas( buff );
   GetClassName( Wnd, buff, SizeOf( buff ) );
   NameClass := StrPas( buff );

   LabelParentHandle.Caption := 'ParentHandle: ' + IntToStr( Wnd );
   LabelParentName.Caption := 'ParentName: ' + WndText;
   LabelParentClass.Caption := 'ParentClass: ' + NameClass;
   LabelParentLeft.Caption := 'ParentLeft = ' + IntToStr( Rect.Left );
   LabelParentTop.Caption := 'ParentTop = ' + IntToStr( Rect.Top );
   LabelParentWidth.Caption := 'ParentWidth = ' + IntToStr( Rect.Right - Rect.Left );
   LabelParentHeight.Caption := 'ParentHeight = ' + IntToStr( Rect.Bottom - Rect.Top );
end;

Остальное читаем вот тут ==> Читать

[chandrasecar]

Огромнейшее спасибо!