[vah-smile]

Итак:

• ПРОИГРАТЬ MPEG-ФАЙЛ В ПРОГРАММЕ: http://www.delphicode.ru/multimedia/mpeg.htm
• Плейлист: http://www.delphisources.ru/forum/sh...light=playlist, http://www.delphisources.ru/forum/sh...light=playlist, http://www.delphisources.ru/forum/sh...light=playlist

Осталось сделать:

• Поддержка полосы прокрутки (с возможностью перемотки трека с помощью мышки)
• Загрузка списка воспроизведения (PlayList).
  При нажатии на кнопку (Button1) открывается диалоговое окно выбора файла. При использовании кода:
  Код:

  ListBox1.Items.LoadFromFile(OpenDialog1.FileName);

  в PlayList (ListBox1) загружается ранее сохраненый список воспроизведения (*.m3u), но медиа-файл (*.mpg, *.mp3) не загружается. Для загрузки медиа-файла использовал:
  Код:

  ListBox1.Items.Add(OpenDialog1.FileName);

  Вопрос: Как это обеденить (тоисть, чтобы в ListBox1 добавлся список воспроизведения и медиафайл)?
  
  У меня пока так:
  Код:

  procedure TForm1.Button1Click(Sender: TObject);
  begin
    if OpenDialog1.Execute then
     begin
  //    ListBox1.Items.LoadFromFile(OpenDialog1.FileName);
      ListBox1.Items.Add(OpenDialog1.FileName);
     end;
  end;