Status der Tastatur-LEDs ermitteln |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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
Ähnliche Seiten: