Home » Tipps & Tricks » System » Tastatur und Maus » Status der Tastatur-LEDs ermitteln

Status der Tastatur-LEDs ermitteln

Dieser Artikel zeigt, wie Sie den Status der Tastatur-LEDs ermitteln.Zunächst wird ein Array vom Typ TKeyboardState über die Funktion GetKeyboardState gefüllt. Über die VirtualKeys kann der Status der Tastatur-LEDs ermittelt werden:

procedure TForm1.Button1Click(Sender: TObject);
var
  KeyboardState: TKeyboardState;
begin
  GetKeyboardState(KeyboardState);
  if KeyboardState[VK_CAPITAL]=1 then
    Showmessage('CapsLock ist aktiviert')
  else
    Showmessage('CapsLock ist deaktiviert');
end;

Die Namen der anderen Konstanten für die Tastatur-LEDs lauten:

• VK_NUMLOCK: NUM-Lock-Taste
• VK_CAPITAL: Feststell-Taste
• VK_SCROLL: Scroll-Taste