![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
![]() |
pascal |
![]()
Сообщение
#1
|
Гость ![]() |
Как заставить мигать индикаторы на клавиатуре?
|
![]() ![]() |
Clane |
![]()
Сообщение
#2
|
Гость ![]() |
Код procedure SetNumLock(bState:Boolean); var KeyState : TKeyboardState; begin GetKeyboardState(KeyState); if ( (bState) and (not ((KeyState[VK_NUMLOCK] and 1)=1) ) or ( (not (bState)) and ((KeyState[VK_NUMLOCK] and 1)=1))) then // Simulate a key press keybd_event(VK_NUMLOCK, $45, (KEYEVENTF_EXTENDEDKEY or 0), 0); // Simulate a key release keybd_event( VK_NUMLOCK, $45, (KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP), 0); end; Сообщение отредактировано: volvo - |
![]() ![]() |
![]() |
Текстовая версия | 16.06.2024 23:48 |