Winamp controller

[alexteam]

мда...

Добавлено через 13 минут
скрипт управляющий плагином...

procedure init;
begin
end;

procedure free;
begin
end;

procedure SendCommand(command:integer);
begin
  WinampCommand(command);
  pck := '';
end;

var
ChatCommand : string;

begin
if FromClient and (pck[1] = #$38) then
begin
  ChatCommand := lowercase(reads(2));
  if ChatCommand = '/next' then SendCommand(440048); //next
  if ChatCommand = '/prev' then SendCommand(440044); //prev
  if ChatCommand = '/play' then SendCommand(440045); //play
  if ChatCommand = '/pause' then SendCommand(440046);//pause
end;
end.