Глюк при запуске приложений через ShellListView

01.01.2007

Для правки данного глюка необходимо изменить следующую процедуру в исходном коде данного компонента:


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;

PS: SW_HIDE = 0

Автор: Rouse_

Взято из https://forum.sources.ru