Delphi5: Scroll-Lock-Taste blinken lassen

Computer: Software & Programmierung Programmierung allgemein
#1

der titel sagt eigentlich schon genug, oder? :smile:

also, wie krieg ich dies lämpchen an und aus??? (meinetwegen auch die caps-, oder numlock-Taste)

danke
Thomas

#2

frag mich zwar, was das soll, doch schalte mit folgendem Code den entsprechenden Modus und damit das LED ein bzw. aus. Das ganze in einem TTimer-Event.

Var
KeyState : TKeyboardState;
begin
GetKeyboardState(KeyState);
if (KeyState[VK_NUMLOCK] = 0) then
KeyState[VK_NUMLOCK] := 1
else
KeyState[VK_NUMLOCK] := 0;
SetKeyboardState(KeyState);
end;