Hier ist die Prozedur die die Verzeichnisse ausliest. Jetzt ist die Frage, ob ich hier auch die Dateien schon suche oder ob ich dafür ne eigene Prozedur schreibe, die nur beim Klick auf den ausgegebenen Ordner ausgeführt wird.
Delphi-Quellcode:
procedure TForm2.HoleVerzeichnisse(const Pfad: String; var Tree: TTreeView;var ListView: TListView; Start: TTreeNode);
var
SR: TSearchRec;
begin
if FindFirst(Pfad + '\*.*', faAnyFile, SR) = 0 then
repeat
Application.ProcessMessages;
if (SR.Attr AND faDirectory = faDirectory) AND (SR.Name[1] <> '.')
AND (SR.Name[1] <> '_') then
begin
baum := Tree.Items.Addchild(Start, SR.Name);
baum.ImageIndex := 1;
baum.StateIndex := 2;
HoleVerzeichnisse(Pfad + '\' + SR.Name, Tree, ListView, Baum);
end;
until (FindNext(SR) <> 0);
SysUtils.FindClose(SR);
end;