Как программно включить или выключить NumLock

Хотите получить много $$$$$, все очень просто, от вас практически ничего не требуется, прсто нажмите клавишу Shift и удерживая ее - клавишу 4.

var
  abKeyState: array [0..255] of byte;
begin
  GetKeyboardState( Addr( abKeyState[ 0 ] ) );
  abKeyState[ VK_NUMLOCK ] := abKeyState[ VK_NUMLOCK ] or $01;
  SetKeyboardState( Addr( abKeyState[ 0 ] ) );
end;