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;