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

  WinampCommand(40045);
end;
procedure Stop;
begin
  WinampCommand(40047);
end;
procedure Pause;
begin
  WinampCommand(40046);
end;
procedure NextTrack;
begin
  WinampCommand(40048);
end;
procedure PrevTrack;
begin
  WinampCommand(40044);
end;
{передвинуть текущую позицию на 5 секунд вперёд}
Procedure FastForward5Sec;
begin
  WinampCommand(40148);
end;
{передвинуть текущую позицию на 5 секунд назад}
Procedure FastRewind5Sec;
begin
  WinampCommand(40144);
end;
//перезагрузить Winamp
Procedure RestartWinamp;
begin
  WinampUser(0, 135);
end;
Procedure CloseWinamp;
begin
  WinampCommand(40001);
end;
Procedure RepeatMode;
begin
  WinampCommand(40022);
end;
Procedure SuffleMode;
begin
  WinampCommand(40023);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  StartWinamp;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Play;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
  Stop;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
  Pause;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
  NextTrack;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
  PrevTrack;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
  CloseWinamp;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
  FastForward5Sec;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
  FastRewind5Sec;
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
  RestartWinamp;
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
  RepeatMode;
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
  SuffleMode;
end;
end.

Страница: 1 2 3 4