shellListView 问题
ShellListView，双击图标不能运行，右键就可以打开，怎么解决呢？？
procedure TForm1.ShellListView1DblClick(Sender: TObject);
begin
if ShellListView1.Selected = nil then
begin
Exit;
end;
ShellExecute(0, 'open', PChar(ShellListView1.SelectedFolder.PathName), nil, nil, SW_SHOWNORMAL);
end;