Исправление глюка ShellListView (запуск программ)

Исправление глюка 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;

Эта запись была добавлена в Пятница, 2 мая, 2008 - 6:07 В разделы ShellListView, Компоненты. Вы можете подписаться на получение новых комментариев RSS 2.0 feed. Both comments and pings are currently closed.