das ginge dann ungefähr so:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
KeyboardState: TKeyboardState;
begin
GetKeyboardState(KeyboardState);
KeyboardState[VK_NUMLOCK]:=1;
SetKeyboardState(KeyboardState);
end;
...
if KeyboardState[VK_NUMLOCK]=1 then
Showmessage('NUM ist aktiviert')
else
Showmessage('NUM ist deaktiviert');
VK_NUMLOCK: NumTaste
VK_CAPITAL: Shift
VK_SCROLL: Rollen
ich hab sowas auch mal gemacht. war lustig die lämpchen ham immer geblinkt aber ich glaub unter NT/2000/XP ging des nicht wenn ich mich recht erinnere.