Блог о программировании, электронике и рыбалке

Прокрутка мыши на Delphi

прокрутка мыши на DelphiМногие из вас, наверное, уже знакомы с самым глубоким в мире сайтом Borjomi thedeepestsite.com. Мне он тоже понравился. Идей гениальная.

Я 15 минут крутил колесико мышки, в надежде увидеть самую нижнюю его часть и написать там заветное "Здесь был source!".

Сразу скажу, что терпения у меня не хватило, поэтому результата я пока не достиг. Плюнул на это дело и решил автоматизировать процесс прокрутки.

Сделать это оказалось очень просто. Достаточно в Delphi кинуть на форму таймер, установить интервал в 100 миллисекунд и прописать в процедуре одну строчку:

Mouse_Event(MOUSEEVENTF_WHEEL, 0, 0, DWORD(-120), 0);

Если вам когда-нибудь понадобится прокрутка вверх, то строка будет выглядеть так:

Mouse_Event(MOUSEEVENTF_WHEEL, 0, 0,120, 0);

Получилась такая вот софтинка:

прокрутка мыши на Delphi

Borjomi.exe (493,0 KiB, 654 hits)

прокрутка мыши на Delphi

прокрутка мыши на Delphi

Свои вопросы оставляйте в комментариях или задавайте их в нашей группе в Телеграм

Geek Electronics
  • keyboard_arrow_downПрокрутка мыши на Delphi
    • Автор:
    • Миниатюра: Прокрутка мыши на Delphi
    • Рубрика: Delphi в примерах
    • Обновлено: 27.12.2017
    • Комментариев: 4
    • Просмотров: 1 860
      • searchПоисковые боты
        Дата Бот
        2018-09-20 01:26:02 Yandex
        2018-09-19 06:10:51 Yandex
        2018-09-18 07:05:56 Bing
        2018-09-17 20:21:43 Yandex
        2018-09-17 20:21:42 Yandex
        2018-09-17 13:24:15 Yandex
        2018-09-17 12:49:53 Yandex
        2018-09-17 12:49:50 Yandex
        2018-09-14 03:20:57 Google
        2018-09-13 18:11:06 Yandex
  • Оцените пожалуйста статью
    1 Star2 Stars3 Stars4 Stars5 Stars
    Loading Загрузка...
  • Поделитесь с друзьями
GeekElectronics

Похожие записи

Комментариев: 4

Добавить комментарий

arrow_upward