Глюк при запуске приложений через ShellListView |
Previous Top Next |
Для правки данного глюка необходимо изменить следующую процедуру в исходном коде данного компонента:
Code: |
{©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; |
PS: SW_HIDE = 0
Автор: Rouse_
©Drkb::01327
Взято из http://forum.sources.ru