[Blackster]

привет у меня сново вопрос присоеденил OptimFROG.dll к проге но вот вопрос как сделать так чтобы плейлист паказывал не только МР3 треки а и waw/avi/wma ...
в том дело что я пользуюсь таким кодом , он не роказывает, никаких треков ни каких форматов, в чём моя ошибка заранее благодарен

Код:

1 2 3 4 5 6 7 8 9 10

ListBox1.Clear; //сформировать список файлов if FindFirst(Path + '*.mp3,*.wav,*.avi', faAnyFile, SearchRec) = 0 then  begin   ListBox1.Items.Add(SearchRec.Name);   while (FindNext(SearchRec) = 0) do    ListBox1.Items.Add(SearchRec.Name);  end; If ListBox1.Items.Count > 0 Then   ListBox1.ItemIndex := 0; //установить указатель на первую строку

[lmikle]

Рпавильно не показывает, т.к. у тебя получается абсолютно бредовая маска для поиска. Тут надо искать файлы по маске *.*, а потом руками проверять файл на соответсвие нужному набору масок (с помощью функции MatchesMask из модуля Masks).

примерно так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var  iFound : Integer;  F : TSearchRec; begin  iFound := FindFirst(Path + '*.*', faAnyFile, F);  While iFound = 0 Do   begin     If (F.Attr And faDirectory) = 0 Then // Исключаем папки       If MatchesMask(F.Name,'*.mp3') Or          MatchesMask(F.Name,'*.wav') Or          MatchesMask(F.Name,'*.avi') Then ListBox1.Items.Add(Path + F.Name); // Не забываем добавлять полный путь, а то потом хрен файл найдешь     iFound := FindNext(F);   end;  FindClose(F); // не забываем освобождать ресурсы  ...