26.12.2012, 22:21
|
|
.
|
|
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
|
|
В файле mp3.pas
Код:
if FileExists(ChangeFileExt(ExtractFileName(ParamStr(0)), '.m3u')) then
SongClass.LoadSongList(ChangeFileExt(ExtractFileName(ParamStr(0)), '.m3u'));
в файле PlayList.pas
Код:
procedure TSongClass.LoadSongList(PlayList : String);
var
Index : Integer;
begin
ClearSonglist;
ParsingSongList(PlayList);
if fSongList.Count = 0 then
Exit;
FillSongList;
Randomize;
repeat
// здесь выбирается номер трека для запуска.
Index := Random(fParent.Items.Count);
until FileExists(TSongListData(fSongList.Objects[Index]).OpenFile);
FileName := TSongListData(fSongList.Objects[Index]).OpenFile;
PlaySongList(Index);
end;
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
|