Как програмно переключить состояние клавиш Num Lock, Caps Lock, Scroll Lock?

Материал из DRKB

Как програмно переключить состояние клавиш Num Lock, Caps Lock, Scroll Lock?[править | править код]

var 
  KS: TKeyboardState; 
begin
  GetKeyboardState(KS); 
  KS[020] := KS[020] XOR 1; // Caps Lock
  KS[144] := KS[144] XOR 1; // Num Lock
  KS[145] := KS[145] XOR 1; // Scroll Lock
  SetKeyboardState(KS); 
end;


Source: Взято из http://forum.sources.ru
ID: 01492



  • Во-первых, предложенный способ работает только под 9x (лично проверил)...
  • Во-вторых, для понятности лучше вместо цифр подставить нормальные константы...
  • В-третьих, тут еще способ и для NT...

Способ для 9x (на NT не работает):

var
  KeyState: TKeyboardState;
begin
  GetKeyboardState(KeyState);
  KeyState[VK_SCROLL] := KeyState[VK_SCROLL] xor 1;
  KeyState[VK_CAPITAL] := KeyState[VK_CAPITAL] xor 1;
  KeyState[VK_NUMLOCK] := KeyState[VK_NUMLOCK] xor 1;
  SetKeyboardState(KeyState);
end;


Способ для NT (на 9x не работает):

begin
  keybd_event(VK_SCROLL, 0, KEYEVENTF_EXTENDEDKEY, 0);
  keybd_event(VK_SCROLL, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

  keybd_event(VK_CAPITAL, 0, KEYEVENTF_EXTENDEDKEY, 0);
  keybd_event(VK_CAPITAL, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

  keybd_event(VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY, 0);
  keybd_event(VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;


т.е. в программе надо будет сделать проверку на версию Windows, и потом уже вызывать одну из этих функций, либо же можно их обе вызывать - одна да сработает...


Author: p0s0l
ID: 01493



Как программно включить или выключить NumLock

var
  abKeyState: array [0..255] of byte;
begin
  GetKeyboardState(Addr(abKeyState[0]));
  abKeyState[VK_NUMLOCK] := abKeyState[VK_NUMLOCK] or $01;
  SetKeyboardState(Addr(abKeyState[0]));
end;


Source: http://delphiworld.narod.ru/
ID: 01494



procedure TMyForm.Button1Click(Sender: TObject);
var
  KeyState: TKeyboardState;
begin
  GetKeyboardState(KeyState);
  if (KeyState[VK_NUMLOCK] = 0) then
    KeyState[VK_NUMLOCK] := 1
  else
    KeyState[VK_NUMLOCK] := 0;
  SetKeyboardState(KeyState);
end;


Для Caps Lock замените VK_NUMLOCK на VK_CAPITAL.


Source: http://delphiworld.narod.ru/
ID: 01495



type
   TKeyType = (ktCapsLock, ktNumLock, ktScrollLock);

procedure SetLedState(KeyCode: TKeyType; bOn: Boolean);
var
  KBState: TKeyboardState;
  Code: Byte;
begin
  case KeyCode of
    ktScrollLock: Code := VK_SCROLL;
    ktCapsLock: Code := VK_CAPITAL;
    ktNumLock: Code := VK_NUMLOCK;
  end;
  GetKeyboardState(KBState);
  if (Win32Platform = VER_PLATFORM_WIN32_NT) then
  begin
    if Boolean(KBState[Code]) <> bOn then
    begin
      keybd_event(Code,
                  MapVirtualKey(Code, 0),
                  KEYEVENTF_EXTENDEDKEY,
                  0);
       keybd_event(Code,
                  MapVirtualKey(Code, 0),
                  KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,
                  0);
    end;
  end
  else
  begin
    KBState[Code] := Ord(bOn);
    SetKeyboardState(KBState);
  end;
end;

// Example Call: 
// Beispielaufruf: 

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetLedState(ktCapsLock, True);  // CapsLock on 
  SetLedState(ktNumLock, True);  // NumLock on 
  SetLedState(ktScrollLock, True);  // ScrollLock on 
end;


Source: Взято с сайта: http://www.swissdelphicenter.ch
ID: 01496