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