Глюк при запуске приложений через ShellListView

Code:

{©Drkb v.3}

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;