Vários Arquivos Em Um Listbox

[Vivendo&Aprendendo]

Relacionado com o outro post, como faço para puxar vários arquivos para dentro de um ListBox? assim como o Winamp, Media Player, pois é isso mesmo que estou criando um tocador de midia.

Alexandre

[Churc]

Opa

procedure EnumFiles(szPath, szAllowedExt: String; iAttributes: Integer;
  Buffer: TStrings; bClear, bIncludePath: Boolean); StdCall;
var
  res: TSearchRec;
  szBuff: String;
begin
  if (bClear) then Buffer.Clear;
  szPath := IncludeTrailingBackslash(szPath);
  if (FindFirst(szPath + szAllowedExt, iAttributes, res) = 0) then
  begin
    repeat
      szBuff := res.Name;
      if ((szBuff <> '.') and (szBuff <> '..')) then
      if (bIncludePath) then
      Buffer.Add(szPath + szBuff) else
      Buffer.Add(szBuff);
    until FindNext(res) <> 0;
    FindClose(res);
  end;
end;

Ai se faz exemplo

EnumFiles('CAMINHO', '*.mp3', faanyfile - faDirectory, Listbox1.Strings, False, False);

abraço

[Vivendo&Aprendendo]

Não entendi muito bem o seu código Churc, deixa eu me explicar melhor. Eu estou criando um tocador de audio, isso você entendeu perfeitamente, e quero fazer com que ao selecionar a pasta com as musicas elas sejam colocadas em um listbox e não consegui fazer isso usando o seu código.

poderia me explicar melhor.

grato

alexandre

[Churc]

Opa

A janela que seleciona uma pasta da uma olhada nisto.

Depois você usa o código que passei exemplo

var

szPath: String;

begin

szPath := BrowseDialog('Selecione o diretório...', BIF_RETURNONLYFSDIRS);

Ai se você quiser só adicionar MP3

EnumFiles(szPath, '*.mp3', faanyfile - faDirectory, Listbox1.Strings, False, False);

Se quiser também adicionar WAV

EnumFiles(szPath, '*.wav', faanyfile - faDirectory, Listbox1.Strings, False, False);

Entendeu mais ou menos?

abraço

[Vivendo&Aprendendo]

Ok Churc estou tentando usar os códigos so site que você passou mas tem algumas coisas que não estou entendendo. Tipo:

sTitle:='Choose a ' +
          rgBrowseFor.Items[rgBrowseFor.ItemIndex];

if sFolder <> '' then
    edSelected.text := sFolder
  else
    edSelected.text := 'Nothing selected';

O que seria isso ai?

Eu tenho que usar esses códigos ai ou somente o que você me passou?

Desculpa ai o encomodo, rsrsrs

Alexandre

[Churc]

Opa

sTitle = O que vai aparecer na janela pro cara escolher o diretório

if sFolder <> '' then

edSelected.text := sFolder

else

edSelected.text := 'Nothing selected'

edSelected é um Edit, então se foi selecionado um diretório vai aparecer

neste edit o diretório selecionado, caso contrário vai aparecer 'Nothing selected'

que significa 'Nada foi selecionado'.

O que seria isso ai?

Eu tenho que usar esses códigos ai ou somente o que você me passou?

Desculpa ai o encomodo, rsrsrs

Alexandre

depende o que você quer fazer, mas de qualquer forma peço que você

teste os códigos, você vai entender o que eles fazem e assim vai adaptar conforme

sua necessidade...

abraço

[Vivendo&Aprendendo]

Ok vou testar e posto o resultado....