Alle Verzeichnisse in TTreeView - schnellere Lösung?

[Sicho]

Hallo,

ich will in einem Programm alle Verzeichnisse eines Drives in einem TTreeView anzeigen lassen. Als ich im Internet nach einer Lösung gesucht habe (da ich noch nie vorher mit TTreeView gearbeitet habe), fand' ich folgenden, funktionierenden Code bei dsdt.info

Delphi-Quellcode:

procedure GetDirs(const ADirectory: string; var Tree: TTreeView; Start: TTreeNode);

  function SlashSep(const Path, S: string): string;
  begin
   if AnsiLastChar(Path)^ <> '\' then
     Result := Path + '\' + S    else
     Result := Path + S;
  end;

var SearchRec: TSearchRec;
   NewNode: TTreeNode;

begin
  if FindFirst(SlashSep(ADirectory, '*.*'), faAnyFile, SearchRec) = 0 then begin
    try
      repeat
        if ((SearchRec.Attr and faDirectory) <> 0) then begin
          if ((SearchRec.Name <> '.') and (SearchRec.Name <> '..')) then begin
            NewNode:=Tree.Items.AddChild(Start, SearchRec.Name);
            GetDirs(SlashSep(ADirectory, SearchRec.Name), Tree, NewNode);
          end;
        end;
      until FindNext(SearchRec) <> 0;
    finally
      SysUtils.FindClose(SearchRec);
    end;
  end;
end;

Aufgerufen wird die Funktion dann wie folgt:

Delphi-Quellcode:

TreeView1.Items.BeginUpdate;
  GetDirs('f:\', TreeView1, nil);
  TreeView1.AlphaSort;
  TreeView1.Items.EndUpdate;

An und für sich funktioniert das auch, nur ist es sehr sehr langsam. Deswegen suche ich nun einen Weg, das ganze zu beschleunigen, ohne jetzt aber unbedingt all zu viel umstellen zu müssen.

Kann mir da jemand auf die Sprünge helfen?