Глюк при запуске приложений через 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