[Руководство] Получение Handle окна с помощью наведения курсора

[Тигрь]

Этот небольшой пример сделал специально для Zhyk.ru по просьбе форумчанина.

Для того что бы получить хэндл окна с помощью наведения мыши нам понадобится всего лишь парочка WInApi функций. Опишу их прототипы:

function WindowFromPoint(Point: TPoint): HWND; stdcall;

Функция WindowFromPoint извлекает дескриптор окна, которое содержит заданную точку. В качестве входного параметра принимает значение с типом TPoint который является структурой содержащей x и y координаты:

  TPoint = record
    X: Longint;
    Y: Longint;
  end;

Вторая функция которая нам понадобится это GetCursorPos, которая извлекает позицию курсора, в экранных координатах.

function GetCursorPos(var lpPoint: TPoint): BOOL; stdcall;

В качестве входного параметра принимает указатель на структуру TPoint, которая получает экранные координаты курсора.

Ну а дальше дело за малым, кидаем на форму TPanel, в кол-ве 1 штуки. Выделяем TPanel мышкой и в инспекторе объектов переходим в закладку событий, два раза кликаем в поле MouseUp, делфи создаст обработчик отжатия клавиши мыши для TPanel.

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin

end;

В нем то и нужно получить координаты курсора с помощью GetCursorPos, а затем получить хэндл окна по этим координатам с помощью WindowFromPoint.

Я реализовал это следующим образом:

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  CursorPoint: TPoint; // Запись, содержит координаты по X и Y
  hWin: THandle; // Хендл окна под курсором
  Buffer: array [0 .. 255] of Char; // Буфер в который будем записывать имя класса
begin
  GetCursorPos(CursorPoint); // Получаем координаты курсора
  hWin := WindowFromPoint(CursorPoint); // Получаем хендл окна под курсором
  GetClassName(hWin, Buffer, 255); // Получаем имя класса, первый параметр это Хендл нужного окна, второй - буфер куда записываеться имя класса, третий - максимальная длинны буфера
  Panel1.Caption := Buffer; // Показываем класс окна
  Screen.Cursor := crDefault;
end;

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

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Panel1.Caption := 'Down';
  Screen.Cursor := crCross;
end;

[Ссылки могут видеть только зарегистрированные пользователи. ]

Автор Тигрь, при копировании указывать копирайты.

[NebesaBag]

Благодарю.
Подскажите пожалуйста, мне необходимо делать клики в игровом клиенте.
Наводил вашей программой на игровое окно и по 1 элементу удалял и вышла такая цепочка, может вам нужно знать её, чтобы помочь мне.
NativeWindowClass >> WebViewHost >> CefBrowserWindow >> TChromium >> TForm1

Клики предполагал делать таким образом

  SendMessage(hWin,WM_LBUTTONDOWN,MK_LBUTTON,CursorPoint.X);
  SendMessage(hWin,WM_LBUTTONUP,MK_LBUTTON, CursorPoint.Y);

Таким кодом например наводил на чекбокс, сворачивал прогу и оно в свернутой проге чекало, а вот в NativeWindowClass не работает.
P.S. игра на flash

[Тигрь]

Цитата: Сообщение от NebesaBag Благодарю. Подскажите пожалуйста, мне необходимо делать клики в игровом клиенте. Наводил вашей программой на игровое окно и по 1 элементу удалял и вышла такая цепочка, может вам нужно знать её, чтобы помочь мне. NativeWindowClass >> WebViewHost >> CefBrowserWindow >> TChromium >> TForm1 Клики предполагал делать таким образом SendMessage(hWin,WM_LBUTTONDOWN,MK_LBUTTON,CursorPoint.X); SendMessage(hWin,WM_LBUTTONUP,MK_LBUTTON, CursorPoint.Y); Таким кодом например наводил на чекбокс, сворачивал прогу и оно в свернутой проге чекало, а вот в NativeWindowClass не работает. P.S. игра на flash

flash вообще вряд ли будет обрабатывать клики через сенд меседж. Попробуй юзать эту функцию для имитации мыши [Ссылки могут видеть только зарегистрированные пользователи. ]

[metraz]

Цитата: Сообщение от Тигрь flash вообще вряд ли будет обрабатывать клики через сенд меседж

Тут вы не правы. Он вполне адекватно воспринимает команды sendmessage

[NebesaBag]

Простите за наглость, не могли бы набросать пару вариантов кода, который я буду пробовать применить?

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

  P := ScreenToClient(P);
 SendMessage(hWnd, WM_LBUTTONDOWN, MK_LBUTTON, Longint(PointToSmallPoint(P)));
 SendMessage(hWnd, WM_LBUTTONUP, MK_LBUTTON, Longint(PointToSmallPoint(P)));

[DreamTheater]

Насколько я помню, нужно использовать функцию [Ссылки могут видеть только зарегистрированные пользователи. ] как для сендмессаджа, так и для keybd_event

[RenatPro]

Думаю так проще получить Handle под курсором выложу для колекции!

Цитата: procedure TForm1. В Таймер или в цикл сунте (Sender: TObject); var Wnd:HWnd; begin Wnd := WindowFromPoint(Mouse.CursorPos); end;