急，将指定的目录下的文件夹加入到treeview控件（分不够再加）

Question

要求：将指定的目录下的所有文件夹作为Treeview的第一级目录，文件夹下的所有文件夹作为下一级目录，目录下面的文件作为最后一级目录。如何实现！最好有原码！
分不够再加

Answer 1

试试DELPHI本身的自带的ShellTreeView1?

Answer 2

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;

Answer 3

if Directory[Length(Directory)] <> ' then Directory := Directory + ';
是怎样改