Как получить хендл окна на котором стоит курсор?

[DeMONiZ]

Задача такова: зная позицию курсора на экране (x,y) нужно определить хендл того элемента над которым(на котором) стоит курсор.
Как это реализовать? Получить кординату курсора это просто а вот по ним вычислить хендл.......

[alibek]

WindowFromPoint

[Хакер]

WindowFromPoint.

[DeMONiZ]

Спасибо сделал! а клик по хендлу как организовать?

[iGrok]

Спасибо сделал! а клик по хендлу как организовать?

В смысле, клик? Нажатие на кнопку? Нажатие на форму? Или что?

Клик по кординатам делается mouse_event.
Клик по окну.. Ну наверное SendMessage WM_MOUSEDOWN, WM_MOUSEUP, WM_CLICK...

[alibek]

а клик по хендлу как организовать?

В этом предложении отсутствует смысл.

[awl100Alex]

Код: Выделить всё

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const BM_CLICK = &HF5

Private Sub Command1_Click()
Call SendMessage(Найденный_Хэндл, BM_CLICK, 0, ByVal 0)
End Sub

[DeMONiZ]

Допустим есть программа на ней кнопка я получаю хендл этой кнопки и организовываю клик по кнопке с этим хендлом.......если это конечно возможно.

[DeMONiZ]

awl100Alex спасибо! То что нужно!

[arvitaly]

BM_CLICK он вроде именно для кнопок типа Button, для других элементов другие сообщения

[awl100Alex]

BM_CLICK он вроде именно для кнопок типа Button, для других элементов другие сообщения

Так о Button речь и шла.

Если надо другим элементам левый клик передать, то можно так...

Код: Выделить всё

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202

Private Sub Command1_Click()
'Посылаем левый CLICK другим объектам...
Call SendMessage(Найденный_Хэндл, WM_LBUTTONDOWN, 0, ByVal 0)
Call SendMessage(Найденный_Хэндл, WM_LBUTTONUP, 0, ByVal 0)
End Sub