Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

15th
Окт

Программное нажатие клавиш на клавиатуре

Posted by micher under Delphi

Как программно нажать клавишу или клавиши на клавиатуре?

NetSpace

Программное нажатие клавиши



procedure TForm1.SetKey(Key:Integer);

begin

   keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);

   keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY,0);

   keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);

end;

А потом эту функцию вызываешь в программе
Например, нажать ENTER



SetKey(13);

А если вместе в клавишей CTRL, то я делаю так:



//----- открываем диалоговое окно Paint -> CTRL+O ------------------------

      keybd_event(vk_control,0,0,0);

      keybd_event(79,0,0,0);

      keybd_event(79,0,KEYEVENTF_KEYUP,0);

      keybd_event(vk_control,0,KEYEVENTF_KEYUP,0);

      //----- вставляем полное имя файла в окно Paint -> CTRL+V ----------------

      keybd_event(vk_control,0,0,0);

      keybd_event(86,0,0,0);

      keybd_event(86,0,KEYEVENTF_KEYUP,0);

      keybd_event(vk_control,0,KEYEVENTF_KEYUP,0);

тема на форуме