|
#1
|
||||
|
||||
листбокс
привет у меня сново вопрос присоеденил 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; //установить указатель на первую строку |
#2
|
|||
|
|||
Рпавильно не показывает, т.к. у тебя получается абсолютно бредовая маска для поиска. Тут надо искать файлы по маске *.*, а потом руками проверять файл на соответсвие нужному набору масок (с помощью функции 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); // не забываем освобождать ресурсы ... |