请教关于ShellListView的问题？

Question

在ShellListView中我显示了某个文件夹下的所有子文件夹和文件，我现在想双击打开某个文件，ShellListView的onDblClick事件编写的代码如下：
if FileExists(ShellListView1.SelectedFolder.PathName) then
        ShellExecute(0, 'open', 
PChar(ShellListView1.SelectedFolder.PathName), nil, nil, SW_SHOWNORMAL);但现在的问题是文件是能打开了，但当双击子文件夹时会出错，不知道该如何改写这段代码！还望大家指教，谢谢！

Answer 1

if  ShellListView1.SelCount > 0 then  // 先判断选中的个数
if FileExists(ShellListView1.SelectedFolder.PathName) then
        ShellExecute(0, 'open', 
PChar(ShellListView1.SelectedFolder.PathName), nil, nil, SW_SHOWNORMAL);另外：判断所选的是不是文件也可以这样(上次忘了有这个属性)：
  if not ShellListView1.SelectedFolder.IsFolder then