[Blackster]

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

Код:

 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).

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

Код:

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); // не забываем освобождать ресурсы
 ...