From: <ou...@us...> - 2011-08-12 22:39:54
|
Revision: 3571 http://jcl.svn.sourceforge.net/jcl/?rev=3571&view=rev Author: outchy Date: 2011-08-12 22:39:47 +0000 (Fri, 12 Aug 2011) Log Message: ----------- New CSIDL to get the path to the 32-bit directory for program files. Modified Paths: -------------- trunk/jcl/source/prototypes/win32api/ShlObj.int trunk/jcl/source/windows/JclWin32.pas Modified: trunk/jcl/source/prototypes/win32api/ShlObj.int =================================================================== --- trunk/jcl/source/prototypes/win32api/ShlObj.int 2011-08-12 15:13:14 UTC (rev 3570) +++ trunk/jcl/source/prototypes/win32api/ShlObj.int 2011-08-12 22:39:47 UTC (rev 3571) @@ -7,6 +7,7 @@ CSIDL_PROGRAM_FILES = $0026; { C:\Program Files } CSIDL_MYPICTURES = $0027; { C:\Program Files\My Pictures } CSIDL_PROFILE = $0028; { USERPROFILE } + CSIDL_PROGRAM_FILESX86 = $002A; { C:\Program Files (x86)\My Pictures } CSIDL_PROGRAM_FILES_COMMON = $002B; { C:\Program Files\Common } CSIDL_COMMON_TEMPLATES = $002D; { All Users\Templates } CSIDL_COMMON_DOCUMENTS = $002E; { All Users\Documents } Modified: trunk/jcl/source/windows/JclWin32.pas =================================================================== --- trunk/jcl/source/windows/JclWin32.pas 2011-08-12 15:13:14 UTC (rev 3570) +++ trunk/jcl/source/windows/JclWin32.pas 2011-08-12 22:39:47 UTC (rev 3571) @@ -5626,6 +5626,7 @@ CSIDL_PROGRAM_FILES = $0026; { C:\Program Files } CSIDL_MYPICTURES = $0027; { C:\Program Files\My Pictures } CSIDL_PROFILE = $0028; { USERPROFILE } + CSIDL_PROGRAM_FILESX86 = $002A; { C:\Program Files (x86)\My Pictures } CSIDL_PROGRAM_FILES_COMMON = $002B; { C:\Program Files\Common } CSIDL_COMMON_TEMPLATES = $002D; { All Users\Templates } CSIDL_COMMON_DOCUMENTS = $002E; { All Users\Documents } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |