delphi 文件或目录转换成 TreeView

//文件或目录转换成 TreeView

procedure DirToTreeView(Tree: TTreeView; Directory: string; Root: TTreeNode; IncludeFiles:
  Boolean);
var
  SearchRec         : TSearchRec;
  ItemTemp          : TTreeNode;
begin
   with Tree.Items do
   try
    BeginUpdate;
     if Directory[Length(Directory)] <> '\' then Directory := Directory + '\';
     if FindFirst(Directory + '*.*', 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
            Root := AddChild(Root, SearchRec.Name);
          ItemTemp := Root.Parent;
          DirToTreeView(Tree, Directory + SearchRec.Name, Root, IncludeFiles);
          Root := ItemTemp;
         end
         else if IncludeFiles then
           if SearchRec.Name[ 1] <> '.' then
            AddChild(Root, SearchRec.Name);
       until FindNext(SearchRec) <> 0;
      FindClose(SearchRec);
     end;
   finally
    EndUpdate;
   end;
end;


procedure TForm1.ToolButton7Click(Sender: TObject);
var
  node:TTreeNode;
begin

    node:=nil;//放在OnCreate下面可以正常
    DirToTreeView(TreeView1, 'Z:\',node,False);
end;

来自为知笔记(Wiz)