Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: Проверить NumLock,ScrollLock
Показать сообщение отдельно

Аватара для CyberDaemon

DOOMer


Сообщения: 3254
Благодарности: 438

Профиль | Отправить PM | Цитировать


Попробуй

VAR KS : TKeyboardState;
...
GetKeyboardState(KS);
IF Odd(KS[VK_SCROLL]) THEN {ScrollLock включен}

-------
"640 K ought to be enough for anybody" Bill Gates, 1981


Отправлено: 15:25, 16-09-2003 | #2

Название темы: Проверить NumLock,ScrollLock