Как включать/выключать лампочки на numlock, capslock
|
|
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 на все что душе угодно. |