Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 400
  • Last Modified:

Blinking Num LED

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

Regards
ItsMe
0
ItsMe
Asked:
ItsMe
  • 3
  • 2
  • 2
1 Solution
 
williams2Commented:
What Num LED?
0
 
ItsMeAuthor Commented:
The lamp on the keyboard which is turned on/off when you press the "Num" key.
0
 
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
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
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
 
ZifNabCommented:
ok.
0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

  • 3
  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now