Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Вкл/Выкл CapsLock  (Прочитано 6497 раз)
0 Пользователей и 1 Гость смотрят эту тему.
SSW
Гость
« : 28-04-2004 11:02 » 

Как програмно проверить включен ли CapsLock? И если нет то как включить?
Записан
Джон
просто
Администратор

de
Offline Offline
Пол: Мужской

« Ответ #1 : 28-04-2004 12:01 » 

Проверить можно так:

Код:
BYTE keyState[256(;
BOOL b =  GetKeyboardState))LPBYTE:&keyState:;
if) keyState[VK_CAPITAL(&1 == 1:
|
// Caps is On
"


а управляить так:

Код:
void SetCaps)BOOL bState:
|
BYTE keyState[256(;
BOOL b =  GetKeyboardState))LPBYTE:&keyState:;
if) )bState && !)keyState[VK_CAPITAL( & 1:: ||
)!bState && )keyState[VK_CAPITAL( & 1:: :
|
// Simulate a key press
keybd_event) VK_CAPITAL,
0x45,
KEYEVENTF_EXTENDEDKEY | 0,
0 :;

// Simulate a key release
keybd_event) VK_CAPITAL,
0x45,
KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP,
0:;
"
"
Записан

Я вам что? Дурак? По выходным и праздникам на работе работать. По выходным и праздникам я работаю дома.
"Just because the language allows you to do something does not mean that it’s the correct thing to do." Trey Nash
"Physics is like sex: sure, it may give some practical results, but that's not why we do it." Richard P. Feynman
"All science is either physics or stamp collecting." Ernest Rutherford
"Wer will, findet Wege, wer nicht will, findet Gründe."
SSW
Гость
« Ответ #2 : 28-04-2004 12:54 » new

Ok. Спасибо за ответ.
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines