--- Merging r26418 into '.':

U    packages/winunits-base/src/shlobj.pp

# revisions: 26418
r26418 | marco | 2014-01-10 23:29:35 +0100 (Fri, 10 Jan 2014) | 2 lines
Changed paths:
   M /trunk/packages/winunits-base/src/shlobj.pp

 * adding some delphi "var" overloads
  http://forum.lazarus.freepascal.org/index.php/topic,23202.0/topicseen.html

git-svn-id: branches/fixes_2_6@26446 -

packages/winunits-base/src/shlobj.pp

@@ -2526,10 +2526,15 @@ Const External_Library = 'shell32';
 
   function SHBrowseForFolderA(lpbi:LPBROWSEINFOA):LPITEMIDLIST;StdCall;external External_library name 'SHBrowseForFolderA';
   function SHBrowseForFolderW(lpbi:LPBROWSEINFOW):LPITEMIDLIST;StdCall;external External_library name 'SHBrowseForFolderW';
+  function SHBrowseForFolderA(var lpbi:BROWSEINFOA):LPITEMIDLIST;StdCall;external External_library name 'SHBrowseForFolderA';
+  function SHBrowseForFolderW(var lpbi:BROWSEINFOW):LPITEMIDLIST;StdCall;external External_library name 'SHBrowseForFolderW';
+
   {$ifdef unicode}
   function SHBrowseForFolder (lpbi:LPBROWSEINFOW):LPITEMIDLIST;StdCall;external External_library name 'SHBrowseForFolderW';
+  function SHBrowseForFolder (var lpbi:BROWSEINFOW):LPITEMIDLIST;StdCall;external External_library name 'SHBrowseForFolderW';
   {$else}
   function SHBrowseForFolder (lpbi:LPBROWSEINFOA):LPITEMIDLIST;StdCall;external External_library name 'SHBrowseForFolderA';
+  function SHBrowseForFolder (var lpbi:BROWSEINFOA):LPITEMIDLIST;StdCall;external External_library name 'SHBrowseForFolderA';
   {$endif}
 
   function SHLoadInProc(const rclsid:Tguid):HRESULT;StdCall;external External_library name 'SHLoadInProc';