Глюк при запуске приложений через 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
Взято из https://forum.sources.ru