Alle Dateien eines Ordners anzeigen (auch unterordner)

[DelphiDeveloper]

Delphi-Quellcode:

procedure GetAllFiles(mask: string); 
var Search: TSearchrec; 
  verz: string; 
  such: string; 

begin 
  such := ExtractFileName(mask); 
  verz := ExtractFilepath(mask); 
  if verz[length(verz)] <> '\' then verz := verz + '\'; 
{ alle Dateien suchen } 
  if FindFirst(mask, $23, Search) = 0 then 
  repeat 
      Form1.listbox1.items.add(verz + Search.Name); 

  until FindNext(Search) <> 0; 
  { Unterverzeichnisse durchsuchen } 
  if FindFirst(verz + '*.*', fadirectory, Search) = 0 then 
   begin; 
    repeat 
      if ((search.attr and fadirectory) = fadirectory) and (search.name[1] <> '.') then 
        GetAllFiles(verz + Search.Name + '\' + such); 
    until FindNext(Search) <> 0; 

  end; 
  Findclose(Search); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
   GetAllFiles('C:\myDelphiProg\*.pas'); 
end;