Как включать/выключать лампочки на numlock, capslock

Written on 29 Октября 2007. Posted in [Delphi] Система. Клавиатура

procedure SetNumLock(bState:Boolean);
var

KeyState : TKeyboardState;

begin

GetKeyboardState(KeyState);

if ( (bState) and (not ((KeyState[VK_NUMLOCK] and 1)=1) ) or

( (not (bState)) and ((KeyState[VK_NUMLOCK] and 1)=// Simulate a key press

keybd_event(VK_NUMLOCK, $45, (KEYEVENTF_EXTENDEDKEY or 0), 0);

// Simulate a key release

keybd_event( VK_NUMLOCK, $45, (KEYEVENTF_EXTENDEDKEY or

KEYEVENTF_KEYUP), 0);
end;

Заменяйте VK_NUMLOCK на все что душе угодно.