Подписаться на RSS рассылку
Главная » Статьи по 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;

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

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

0   Спам
(25.04.2013)
1. Андрей
Спасибо друг! Мне этот код очень пригодился smile


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта