Listar todos arquivos de um Diretório

[™♥♦§Renan1609§♣♠™ 0]

Add um Button e um Memo

 

No Button coloque:

 

var

SR: TSearchRec;

I: integer;

begin

I := FindFirst('C:\*', faAnyFile, SR);

while I = 0 do

begin

Memo1.Lines.Add(sr.Name);

I := FindNext(SR);

end;