hab die Komponente schon zig mal gepostet aber mal ne aktuelle Version im Anhang
Aufrufbeispiel um nur Verzeichnisse zu listen
Delphi-Quellcode:
procedure TForm1.fOnAddFile(const Filename: String; var DoAdd: Boolean);
begin
DoAdd := False;
end;
procedure TForm1.Button1Click(Sender: TObject);
var lister: TListDirectory;
destList: TStringlist;
FSize: Cardinal;
begin
destlist := TStringList.Create;
lister := TListDirectory.Create(Self);
lister.OnAddFile := fOnAddFile;
lister.Add('f:\', destlist, fSize);
Memo1.Lines.AddStrings(destlist); //oder was auch immer du mitm ergebnis machen willst
lister.Free;
destlist.Free;
end;