ShellTreeview中如何确定一个结点到底是文件还是文件夹

要遍历一个带子文件夹的文件夹下的所有文件
但不知道ShellTreeview中如何确定一个结点到底是文件还是文件夹
请大家帮忙

解决方案 »

  1.   

    procedure TForm1.ShellTreeView1Click(Sender: TObject);
    begin
      if ShellTreeView1.SelectedFolder.IsFolder then
        ShowMessage('选中文件夹')
      else
        ShowMessage('选中文件');
    end;
      

  2.   

    为什么我的Delphi5中找不到SHELLTREEVIEW？
      

  3.   

    Linux2001，你好
    你的方法我试了，还是不行呀
      

  4.   

    to ynduanlian():
    SHELLTREEVIEW是DELPHI6里面新加的
      

  5.   

    我已经找到解决办法了
    if shelltreeview.SelectedFolder.ShellFolder=nil then
       ShowMessage('选中文件')
    else
       ShowMessage('选中文件夹')