Помогите реализовать плейлист

[IGREK]

написал аудио-видео плеер, все в нем глаз радует, только не знаю, как в нем грамотно плейлист реализовать, подскажите пожалуйста, кто знает.

[mutabor]

http://www.programmersforum.ru/showt...ght=EasyPlayer

[Noor]

поиск Рулит !!!

Если ты делаешь MediaPlayer, то :

Кидай на форму:
1. MediaPlayer (ищи на странице System палитры компонентов)
2. FileListBox (ищи на странице Win 3.1 палитры компонентов)
3. DirectoryListBox (ищи на странице Win 3.1 палитры компонентов)
4. DriveComboBox (ищи на странице Win 3.1 палитры компонентов)
5. FilterComboBox (ищи на странице Win 3.1 палитры компонентов)

Настройки:
1. В свойствах FileList для компонента DirectoryListBox и FilterComboBox установить значение FileListBox.
2. В свойствах DirList для компонента DriveComboBox установить значение DirectoryListBox.

Код:

procedure Form1.FileListBoxDblClick(Sender:TObject);
begin
  with MediaPlayer1 do
  begin
    Close;
    FileName:=FileListBox1.FileName;
    Open;
    Play;
  end;
end;

или

procedure FillFiles(const Path, Ext: string; Lst: TStringList);
var
 sr: TSearchRec;
 FileAttrs: Integer;
begin
 FileAttrs := 0;
 if FindFirst(Path + ext, FileAttrs, sr) = 0 then
 begin
   repeat
     lst.Add( sr.Name);
   until FindNext(sr) <> 0;
   FindClose(sr);
 end;
end;