Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

Автор: Rouse_

Взято из https://forum.sources.ru