Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Blinking Num LED

Posted on 1998-12-18
7
Medium Priority
?
399 Views
Last Modified: 2010-04-04
Hi! I want to make the Num Led blinking. How do I switch
Num on/off ?

Regards
ItsMe
0
Comment
Question by:ItsMe
  • 3
  • 2
  • 2
7 Comments
 
LVL 3

Expert Comment

by:williams2
ID: 1351754
What Num LED?
0
 

Author Comment

by:ItsMe
ID: 1351755
The lamp on the keyboard which is turned on/off when you press the "Num" key.
0
 
LVL 8

Expert Comment

by:ZifNab
ID: 1351756
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
Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

 
LVL 3

Expert Comment

by:williams2
ID: 1351757
I guess that should answer your question :-)
0
 

Author Comment

by:ItsMe
ID: 1351758
That doesn't work but I've found out that it works when I send a Keyboard Event Message.

0
 

Author Comment

by:ItsMe
ID: 1351759
Uuups, I wanted to accept it. :-) Please send a comment as answer so that I can accept it.
0
 
LVL 8

Accepted Solution

by:
ZifNab earned 30 total points
ID: 1351760
ok.
0

Featured Post

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.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
Video by: ITPro.TV
In this episode Don builds upon the troubleshooting techniques by demonstrating how to properly monitor a vSphere deployment to detect problems before they occur. He begins the show using tools found within the vSphere suite as ends the show demonst…
Loops Section Overview
Suggested Courses

971 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question