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

Материал из DRKB

Глюк при запуске приложений через ShellListView[править | править код]

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

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


Author: Rouse_
Source: Взято из http://forum.sources.ru
ID: 01327