Как сделать это? |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Как сделать это? |
pascal |
Сообщение
#1
|
Гость |
Как заставить мигать индикаторы на клавиатуре?
|
AlaRic |
Сообщение
#2
|
... Группа: Пользователи Сообщений: 1 347 Пол: Мужской Репутация: 3 |
Блин знал ведь когда то ....ничо вспомним!
|
Clane |
Сообщение
#3
|
Гость |
Код 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 - |
mj |
Сообщение
#4
|
Adminь Группа: Пользователи Сообщений: 803 Пол: Мужской Реальное имя: Евгений Репутация: 5 |
Цитата 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; В XP работает, но в пределах одного приложения и лампочки не мигают :'( |
Tosha |
Сообщение
#5
|
Группа: Пользователи Сообщений: 3 Репутация: 0 |
А тоже самое но для обычного Паскаля?
|
mj |
Сообщение
#6
|
Adminь Группа: Пользователи Сообщений: 803 Пол: Мужской Реальное имя: Евгений Репутация: 5 |
Из личного архива:
Mem[$0040:$0017] 7 - Insert (включено) 6 - CapsLock (включено) 5 - NumLock (включено) 4 - ScrollLock (включено) 3 - Alt (нажата) 2 - Ctrl (нажата) 1 - LeftShift (нажата) 0 - RightShift (нажата) Mem[$0040:$0018] 7 - Insert (нажата) 6 - CapsLock (нажата) 5 - NumLock (нажата) 4 - ScrollLock (нажата) 3 - Ctrl-NumLock (включено) Это расшифровки битовых значений адресов памяти DOS. Опять же предупреждаю, что в WinXP всё это действует в пределах одного процесса и не влияет на действительные показания индекаторов. |
CJ |
Сообщение
#7
|
Пионер Группа: Пользователи Сообщений: 84 Пол: Мужской Репутация: 2 |
просто!
-------------------- * Origin: "It's MY LIFE!!! © Jhon Bon Jovi"
|
Текстовая версия | 4.05.2024 17:00 |