Переключение светодиодов дополнительной клавиатуры

[buka_14]

Здравствуйте. Прошу помочь, подсказать, как решить следующую задачу в паскале или Делфи. Написать программу управления контроллером клавиатуры для переключения светодиодов дополнительной клавиатуры. Для переключения использовать клавиши -> <-, обеспечив последовательное переключение светодиодов влево вправо.
Не знаю даже с чего начать, как это реализовать.
Буду рад любым подсказкам.

[Student2007]

вот код, который моргает диодами:

procedure SetState(key:Integer; Value:Boolean);
var
  KeyState:TKeyboardState;
begin
  GetKeyboardState(KeyState);
  KeyState[key]:=Integer(Value);
  SetKeyBoardState(KeyState);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:=TRUE;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Tag:=(Timer1.Tag+1) mod 4;
  SetState(VK_NUMLOCK,TIMER1.Tag = 1);
  SetState(VK_SCROLL,TIMER1.Tag = 2);
  SetState(VK_CAPITAL,TIMER1.Tag = 4);
end;

Переключение соответственно осуществляется таймером. могу переписать под Вашу задачу, если нужно.

Добавлено спустя 10 минут 27 секунд:

кстати с юсби клавиатурой это не работает, на ней надо эмулировать нажатие соответствующих клавиш. при этом будет не только диод загораться, но и изменятся значение клавиш.

[AD]

Эх, была ведь визуализация к винампу, моргающая лампочками )))

[buka_14]

большое спасибо за помощь

Добавлено спустя 24 минуты 56 секунд:

блин, не могу ничего придумать с этими клавишами. Подскажите, пожалуйста.