БОЛЬШОЙ FAQ ПО DELPHI



Заставить мерцать индикаторы клавиш CapsLock, NumLock и ScrollLock


Негритос сидит перед компом... давит F6 - Enter и поет: "I like to move it, move it."

Представьте себе такую ситуацию: глупый пользователь включает тачку, а тут... светомузыка, индикаторы состояния клавиш то включатся, то погаснут... а если ещё каждую секунду проходит 500 тактов!!! Шутка, конечно злостная, но воспроизводится весьма легко.

Всё основывается на следующем коде:


 var
   KS: TKeyboardState;
 begin
   GetKeyboardState(KS);
   KS[020] := KS[020] xor 1;
   KS[144] := KS[144] xor 1;
   KS[145] := KS[145] xor 1;
   SetKeyboardstate(KS);
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ