From ea86dcb668c09fc8ea8a575c1493804898e83dff Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sun, 5 May 2013 09:37:00 +0000
Subject: [PATCH]  * parts of #23953 done. Deprecation of old shlobj structures
 that are still in unit windows. However shlobj first needs to honour ifdef
 unicode. It currently     only supports -A and -W variants, and not the
 suffixless aliases.

git-svn-id: trunk@24448 -
---
 rtl/win/wininc/struct.inc | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/rtl/win/wininc/struct.inc b/rtl/win/wininc/struct.inc
index ab7fd849d7..ea29170f83 100644
--- a/rtl/win/wininc/struct.inc
+++ b/rtl/win/wininc/struct.inc
@@ -435,11 +435,11 @@ Const
           lpfn : BFFCALLBACK;
           lParam : LPARAM;
           iImage : longint;
-       end;
-     LPBROWSEINFO = ^BROWSEINFO;
-     _browseinfo = BROWSEINFO;
-     Tbrowseinfo = BROWSEINFO;
-     PBROWSEINFO = ^BROWSEINFO;
+       end deprecated 'Use shlobj version. Will be removed in 2.8'; 
+     LPBROWSEINFO = ^BROWSEINFO deprecated;
+     _browseinfo = BROWSEINFO deprecated;
+     Tbrowseinfo = BROWSEINFO deprecated;
+     PBROWSEINFO = ^BROWSEINFO deprecated;
 
      FILETIME = record
           dwLowDateTime : DWORD;
@@ -747,11 +747,11 @@ Const
           nShow : longint;
           dwHotKey : DWORD;
           hIcon : HANDLE;
-       end;
-     LPCMINVOKECOMMANDINFO = ^CMINVOKECOMMANDINFO;
-     _CMInvokeCommandInfo = CMINVOKECOMMANDINFO;
-     TCMInvokeCommandInfo = CMINVOKECOMMANDINFO;
-     PCMInvokeCommandInfo = ^CMINVOKECOMMANDINFO;
+       end deprecated 'Use shlobj version. Will be removed in 2.8';
+     LPCMINVOKECOMMANDINFO = ^CMINVOKECOMMANDINFO deprecated;
+     _CMInvokeCommandInfo = CMINVOKECOMMANDINFO deprecated;
+     TCMInvokeCommandInfo = CMINVOKECOMMANDINFO deprecated;
+     PCMInvokeCommandInfo = ^CMINVOKECOMMANDINFO deprecated;
 
      COLORADJUSTMENT = record
           caSize : WORD;