Как сделать это? Опции

[pascal]

Как заставить мигать индикаторы на клавиатуре?

[mj]

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)=1))) then
// 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;

В XP работает, но в пределах одного приложения и лампочки не мигают  :'(