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

Previous  Top  Next

    
 

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

 

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

 

Code:

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);

 

©Drkb::01499

http://delphiworld.narod.ru/

DelphiWorld 6.0