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

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Заставить мерцать индикаторы клавиш 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);