TreeView schnell füllen

[LordPsychoter]

Guten Tag,

ich bin noch ein rechter Neuling in Delphi und arbeite zurzeit an einer Art Explorer.
Dazu benutze ich einen TreeView und eine ListView Komponente.

In dem TreeView wird die gesamte Ordner Struktur einer Festplatte eingelesen (siehe Code weiter unten).
Die Festplatte wähle ich per DriveComboBox.
Nun dauert das alles eine halbe ewigkeit.
Also habe ich mir gedacht kann man doch bestimmt zuerst die erste ebene Laden (halt die oberordner in z.B. C und dann bei klicken auf einen Node die darunterliegenden Ordner.
Das dürfte ja schneller gehen.

Ich habe bereits danach gesucht.
Aber erfolg habe ich noch keinen erzielt.

Evtl könnt ihr mir ja helfen.


Code

Delphi-Quellcode:

procedure TForm1.Einlesen        (Tree : TTreeView;
                                  Verzeichnis : String;
                                  Eintrag : TTreeNode;
                                  Mit_Dateien : Boolean);
Var SearchRec   : TSearchRec;
    EintragTemp : TTreeNode;
    verz        : string;
begin
  verz:=Verzeichnis;
  Tree.Items.BeginUpdate;
  verz:=IncludeTrailingPathDelimiter(verz);
  if FindFirst (verz + '*.*', faDirectory , SearchRec) = 0 then begin
    repeat
      if (SearchRec.Attr and faDirectory = faDirectory)
       and (SearchRec.Name[1] <> '.' ) then begin
        if ((SearchRec.Attr and faDirectory) <> 0) then
           Eintrag := Tree.Items.AddChild (Eintrag, SearchRec.Name);
           EintragTemp := Eintrag.Parent;
                          Einlesen (Tree,
                           verz + SearchRec.Name,
                          Eintrag, Mit_Dateien);

           Eintrag := EintragTemp;
      end;
     until FindNext (SearchRec) <> 0;
           FindClose (SearchRec);
  end;
           Tree.Items.EndUpdate;
end;

lg
LordPsychoter

[Bernhard Geyer]

Es gibt doch schon eine fertige Kompo die das macht: TShellTreeView. Falls du die nicht verwenden willst kannst du trotzdem nachschauen was die im Hintergrund macht.

[LordPsychoter]

Danke für die schnelle Antwort.

Nein ich wollte schon den ganz normalen TreeView nehmen.

Edit: Ich glaube ich bin doof.. aber wo kann ich nachschauen wie die TShellTreeView das macht?

[LordPsychoter]

Okay hat sich erledigt.

Ich lade beim erstellen einfach die erste Ebene des im DriveComboBox ausgewählten Laufwerkes.
Und bei OnExpand lade ich die dazugehörigen Unterordner.