怎样用TreeView显示系统的驱动器列表和文件夹

好长时间没来了，回个帖子！
首先你获取系统盘符的程序写好了吗？这里我不介绍了。
for i := 0 to Count - 1 do (此Count 为盘符个数)
begiin
    ParentNode := TreeView.Items.AddObject(nil, **, **) 方法添加盘符
    获取该盘符下的文件夹循环插入
    for i := 0 to Count - 1 do  (此Count 为该盘符下的根目录的文件夹个数）
    begin
        TreeView.Items.AddObject(ParentNode, **, **) 添加文件夹
    end;
end;
不过上述方法不是太好，最好把这个写成单独的一个函数方法调用！先查看该盘符或文件夹下是否有孩子！
有则继续调用该方法画树，没有则循环！

listView事件同理！
上面你可能不是太能理解，漫漫琢磨吧，因为时间的缘故，没时间在这里了！

何必这么费劲呢，直接用 TShellTreeView 和 TShellListView 搭配就可以了