Blinking Num LED

Hi! I want to make the Num Led blinking. How do I switch
Num on/off ?

Regards
ItsMe
ItsMeAsked:
Who is Participating?
 
ZifNabConnect With a Mentor Commented:
ok.
0
 
williams2Commented:
What Num LED?
0
 
ItsMeAuthor Commented:
The lamp on the keyboard which is turned on/off when you press the "Num" key.
0
Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

 
ZifNabCommented:
Hi ItsMe,

try these :

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;

Regards, Zif.

0
 
williams2Commented:
I guess that should answer your question :-)
0
 
ItsMeAuthor Commented:
That doesn't work but I've found out that it works when I send a Keyboard Event Message.

0
 
ItsMeAuthor Commented:
Uuups, I wanted to accept it. :-) Please send a comment as answer so that I can accept it.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.