Программирование на Delphi и не только

procedure SetLock(N: Byte; State: Boolean);
var
  KeyState: TKeyboardState;
  c: Byte;
begin
  case N of
    0: c := VK_NUMLOCK;
    1: c := VK_CAPITAL;
    2: c := VK_SCROLL;
  end;
  GetKeyboardState(KeyState);
  if (State and (not((KeyState[c] and 1) = 1)) or ((not State) and ((KeyState[c] and 1) = 1))) then
    //key press
    keybd_event(c, $45, (KEYEVENTF_EXTENDEDKEY or 0), 0);
    //key release
    keybd_event( c, $45, (KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP), 0);
  end;

//возвращает указатель на нужный модуль
function getModule(which: integer): PwinampVisModule; cdecl;
begin
  case which of
    0: result := @mod1;
    else result := nil
  end;
end;

//передача заголовка плагина Winamp'у
function winampVisGetHeader: PwinampVisHeader; cdecl;
begin
  result := @hdr;
end;

//эта процедура вызывается при нажатии на кнопку "Конфигурация"
procedure config( this_mod: PwinampVisModule ); cdecl;
begin
  MessageBox(this_mod.hwndParent, 'Автор Иван Ширко (ishyrko@gmail.com)'+#13+' http://delphiblog.ru', 'Лампочки на клавиатуре', MB_OK)
end;

//инициализация плагина, если всё нормально, то должны вернуть 0
function init( this_mod: PwinampVisModule ): integer; cdecl;
begin
  result:=0;
end;

//именно эта функция заставляет лампочки мигать
function render(this_mod: PwinampVisModule): integer; cdecl;
begin
  //в зависимости от уровня звука гасим\зажигаем
  //соответствующие лампочки
  if (this_mod.spectrumData[0,1] > 40) then
    SetLock(0, True)
  else
    SetLock(0, False);
  if (this_mod.spectrumData[0,5] > 40) then