Сообщество Чайников

Вопрос

Как помигать лампочками на клавиатуре?

Ответ

var
    KeyState : TKeyboardState;
begin
    GetKeyboardState(KeyState);
    KeyState[VK_NUMLOCK] := KeyState[VK_NUMLOCK] xor 1;
    SetKeyboardState(KeyState);
end;

Изменяет состояние индикаторов на обратное…
См. также справочную информацию по VK_NUMLOCK, VK_CAPITAL

WinNT:
        {
        keybd_event( VK_SCROLL, 0x46, KEYEVENTF_EXTENDEDKEY | 0, 0 );
        keybd_event( VK_SCROLL, 0x46, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP,0);
        }

Stas Malinovski