Tastaturstatus abfrage (z.B. VK_NUMMLOCK)

[Luckie]

Delphi-Quellcode:

var 
  KeyboardState: TKeyboardState; 
begin 
  GetKeyboardState(KeyboardState); 
  if KeyboardState[VK_NUMLOCK]=1 then 
    Label1.Caption:='An' 
  else 
    Label1.Caption:='Aus'; 
end;

Autor: FuckRacism