Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Мышь и курсор » Кликнуть левой кнопкой мыши в указанных координатах

Кликнуть левой кнопкой мыши в указанных координатах

Автор:

procedure ClickXY(x,y: word);
begin
  {Преобразуем x и y к аболютным координатам курсора мышки}
  x := Round(x * (65535 / Screen.Width));
  y := Round(y * (65535 / Screen.Height));

 {Переместим курсор мыши}
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, x, y, 0, 0);
 {Имитируем нажатие левой кнопки мыши}
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
 {Имитируем отпускание левой кнопки мыши}
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, x, y, 0, 0);
end;