{©Drkb v.3(2007): www.drkb.ru}

procedure TCustomShellListView.DblClick;

begin

 if FAutoNavigate and (Selected <> nil) then

  with Folders[Selected.Index] do

  if IsFolder then

  SetPathFromID(AbsoluteID)

  else

  ShellExecute(Handle, nil, PChar(PathName), nil,

  PChar(ExtractFilePath(PathName)), 0);

 inherited DblClick;

end;

на вот такую:

procedure TCustomShellListView.DblClick;

begin

 if FAutoNavigate and (Selected <> nil) then

  with Folders[Selected.Index] do

  if IsFolder then

  SetPathFromID(AbsoluteID)

  else

  ShellExecute(Handle, 'open', PChar(PathName), nil,

  PChar(ExtractFilePath(PathName)), SW_SHOW);

 inherited DblClick;

end;