Programa que carregue todos os arquivos .mp3 de uma determinada pasta

VictorMatheus · 2 de maio de 2010

Boa noite a todos, eu já estou a algum tempo atrás disto, eu estou querendo um programa que carregue todos os arquivos .mp3 de uma determinada pasta estilo no winamp entendem. Eu até achei algo bem interessante.

procedure TFFolders.LocalizarMusica(Local: string; Arquivo : string; ListBox: TListBox);
var
  SearchRec: TSearchRec;
begin
  Local:= Trim(Local);
  if Local[length(Local)] <> '' then
    Local:= Local + '';
    SetCurrentDir(Local);
  if FindFirst(arquivo+'*.mp3', faAnyFile, SearchRec) = 0 then // modifica aqui Ex: para mp3 '*.mp3'
    Repeat
    ListBox.Items.Add(SearchRec.Name);
    Until FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
end;

Porém deste modo ele lista os arquivos apenas das pasta, mas não lista os arquiovs das subpastas.