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