Состояние NumLock

[Andrev]

Только не надо отсылать в поиск - был я там. Все решения выдают либо НАЖАТИЕ NumLock, либо, вроде бы, его состояние, но эти вторые почему-то не работают - постоянно выдают True. Примерно то же самое дело обстоит с поиском по Яндексу.

[CORBA]

Cостаяние NUmLock, находится в байте по адресу BIOS 0040:0017, в 5 бите, если он 1 то намлок включён, 0 - выключен.
ЗЫ
Думаю есть ещё способы, наверняка есть API функция.

[GSerg]

Код: Выделить всё

Option Explicit

Private Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer

Private Const VK_NUMLOCK As Long = &H90

Private Sub Form_Load()
  MsgBox GetKeyState(VK_NUMLOCK) And 1%
End Sub

[Andrev]

Хе, уважаемый GSerg... Сам-то пробовал свой код? Выдает единицу что при включенном нумлоке, что при выключенном.

[GSerg]

Сам пробовал свой код. Выдаёт 1 при включенном и 0 при выключенном.

[tyomitch]

На всякий случай проверил код GSerg-а: работает корректно.
Причём у него Win98, а у меня Win2000. Другими словами, его код должен работать всюду.

[Andrev]

У меня двухтысячные винды, плюс второй сервис-пак, плюс несколько заплаток. И у меня код GSerg'а выдает единицу вне зависимости от того, включен numlock или нет.
Да! И еще... У меня в реестре ключ HKEY_USERS\.DEFAULT\Control Panel\Keyboard\InitialKeyboardIndicators (включать numlock при загрузке windows) установлен в 2. Может, из-за этого? Так ведь ворд и прочие эксели выдают реальное состояние нумлока... Как быть? Куды бечь?