[Bars1992]

Точно не знаю может у плеера есть какието функции по открытию файлов с корневой папки но я бы делал бы так.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

var   searchResult : TSearchRec;   begin   // Пробуем найти правильные файлы в текущем каталоге, соответствующие шаблону *.mp3   if FindFirst('*.mp3', faAnyFile, searchResult) = 0 then   begin     repeat       //searchResult.Name это имя найденого файла. можешь добавлять все       //имена в какой то список ComboBox или чтото на подобе это как       // тебе удобней       Combobox1.lines.add(searchResult.Name);       ShowMessage('Размер файла = '+IntToStr(searchResult.Size));     until FindNext(searchResult) <> 0;       // Должен освободить ресурсы, используемые этими успешными, поисками     FindClose(searchResult);   end; end;

А потом по изменению имени открывать файл с текущей папки

Код:

1 2 3

MediaPlayer1.file:=GetCurrentDir+'\'+FileName; MediaPlayer1.open; MediaPlayer1.play;