Пиксели, координаты курсора и т.п.

[AZelensky]

Здравствуйте, уважаемые форумчане. У меня возник такой вопрос: "Как мне получить координаты курсора(желательно пикселя) в определённом окне(конечно же зная "ХЕНДЛ")"?

Вот мои наработки:

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;

[xRamzeSx]

Я когда-то делал так:

procedure TForm1.CtrlA1Click(Sender: TObject);
var
c: Integer;
p: Tpoint;
DC: HDC;
wnd1, wnd2: HWND;
begin
GetCursorPos(p);
wnd1:= WindowFromPoint(p);
if wnd1=0 then
  begin
  showmessage('Ошибка');
  exit;
  end;
windows.ScreenToClient(wnd1,p);

begin
  ptC:=MakeLong(p.x,p.y);
  Label1.Caption:='Curs pos: ';
  Label2.Caption:=''+IntToStr(p.x)+',';
  Label3.Caption:=''+IntToStr(p.y);
end;

end;

Это код для события нажатия Ctrl+A в MainMenu.

[DpolenST]

Может вот это вам поможет?
http://www.programmersclub.ru/%D1%83...C%D0%BC%D1%8B/

[AZelensky]

Спасибо Вам всем большое. У меня ещё назрел вопрос: как можно переместить мышку на пиксель с определённым цветом, например цвет - 1447188