TKeyboardState under Windows XP 1

[dredfern]

Sorry the previous message should have read:-
The following code to turn on the NumKey works under previous Windows versions but not under Windows XP. Any suggestions?

procedure TfrmMain.FormCreate(Sender: TObject);
var
numkey: TKeyboardState;
begin
//set Num Lock on
GetKeyboardState(numkey);
numkey[VK_NUMLOCK] := 1;
SetKeyboardState(numkey);
end;

 

[gcaramia]

look here:

http://www.swissdelphicenter.ch/torry/showcode.php?id=926

Giovanni Caramia

 

[gcaramia]

This code changes numlock state on-off/off-on

procedure TForm1.Button1Click(Sender: TObject);
begin
  keybd_event(VK_NUMLOCK, MapVirtualKey(VK_NUMLOCK, 0), KEYEVENTF_EXTENDEDKEY, 0);
  keybd_event(VK_NUMLOCK, MapVirtualKey(VK_NUMLOCK, 0), KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;

Giovanni Caramia

 

[dredfern]

Giovanni,
Thank you, you're piece of code did the trick.

Dave