Como localizar arquivos...

Procure no site do clube delphi que existe uma aplicação que foi feita para realizar pequisa de arquivos e fazer uma certa conversão.

O problema é que a bagaça é só para assinante, sacou?

var
Search: TSearchRec;
Done: Boolean;
Lista: TStringList;
begin

Lista := TStringList.Create;
Done := FindFirst(´C:\*.txt´, [b:208ed56a42]faArchive[/b:208ed56a42], Search) <> 0;

while not Done do
begin
Lista.Add(´C:\´ + Search.Name);
Done := FindNext(Search) <> 0;
end;

FindClose(Search);

end;


Procure no help do delphi sobre [b:208ed56a42]faArchive[/b:208ed56a42] e ele te mostrará algumas outras funcionalidades, como listar também os diretórios, etc...