criar tocador de mp3

Question

Por favor como eu fa�o para criar um tocador de MP3, mais eu nao queria abrir um open dialog eu quero que ele exiba todos os audio de uma pasta, ou seja, fa�a uma lista como o �Winamp� desde ja eu agrade�o quem poder me ajudar.

Lucas Silva · Answer

Colega,//pbb-player.sourceforge.net/pbbforum/index.phpPlayer muito bom, e com o c�digo livre...D� uma olhada.....

Cebikyn · Answer

E no c�digo citado pelo Lucas (vlw Lucas, pela divulga��o!), encontra-se o trecho que voc� precisa (para listar MP3s de uma pasta):

procedure GetAllFiles(const mask: string);
var
  search   : TSearchRec;
  directory: string;
begin
  directory := ExtractFilePath(mask);

  if FindFirst(mask, $23, search) = 0 then begin
    repeat
      // Aqui s�o manipulados os arquivos encontrados
      AdicionarALista(directory + search.Name);
    until FindNext(search) <> 0;
  end;

  // O resto da procedure trabalha com as sub-pastas,
  // voc� pode remov�-lo, se este recurso n�o for �til ao seu programa:
  if FindFirst(directory + �*.*�, faDirectory, search) = 0 then begin
    repeat
      if((search.Attr and faDirectory)=faDirectory)and(search.Name[1]<>�.�)then
        GetAllFiles(directory + search.Name + �\� + ExtractFileName(mask));
    until FindNext(search) <> 0;
    FindClose(search);
  end;
end;

E para usar a fun��o, usa-se o seguinte (no exemplo, pegaria todos os arquivos MP3 de uma pasta e suas subpastas):

GetAllFiles(�C:\Pasta\Musica\*.mp3�)

Leovj · Answer

muito obrigado pela for�a eu darei uma olhadinha e vou ver se consigo fazer vlw....

F�rum criar tocador de mp3 #233362