
11.01.2014, 18:57
|
Прохожий
|
|
Регистрация: 11.01.2014
Сообщения: 2
Версия Delphi: Delphi XE5
Репутация: 10
|
|
Пиксели, координаты курсора и т.п.
Здравствуйте, уважаемые форумчане. У меня возник такой вопрос: "Как мне получить координаты курсора(желательно пикселя) в определённом окне(конечно же зная "ХЕНДЛ")"?
Вот мои наработки:
Код:
setcursorpos(430, 700);
mouse_event(mouseeventf_leftdown, 0, 0, 0, 0);
mouse_event(mouseeventf_leftup, 0, 0, 0, 0);
GetCursorPos(CursorPoint);
hWin := WindowFromPoint(CursorPoint);
descpixel:= getdc(0);
setcursorpos(764, 657);
while (getpixel(descpixel, mouse.CursorPos.X, mouse.CursorPos.Y)) = 4797409 do
begin
keybd_event(ord('D'), 0, 0, 0);
keybd_event(ord('D'), 0, KEYEVENTF_KEYUP, 0);
end;
|