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;

Туры в доминикану

Туристический гольф-портал. Информация о странах, полезные советы.

icstrvl.ru
Производство бейджей

Прайс-лист на услуги полиграфии. Портал пластиковых карт.

printlazer.ru

Просмотров: 3975

Обсудить на форуме