Buscar por:

Procurando arquivos

Código

Procedure TForm1.DirList( ASource : string; ADirList : TStringList ); 

var 

SearchRec : TSearchRec; 

Result : integer; 

begin 

Result := FindFirst( ASource, faAnyFile, SearchRec ); 

if Result = 0 then 

while (Result = 0) do 

begin 

if (SearchRec.Name+' ')[1] = '.' then 

{ Se pegou nome de SubDiretorio } 

begin 

Result := FindNext( SearchRec ); 

Continue; 

end; 

ADirList.Add( SearchRec.Name ); 

Result := FindNext( SearchRec ); 

end; 

FindClose( SearchRec ); 

ADirList.Sort; 

end; //Utilize a função assim:

procedure TForm1.Button1Click(Sender: TObject); 

var 

contador: Integer; 

lista: TStringlist; 

begin 

lista:= TStringlist.create; 

DirList('C:*.*', lista); 

end;