Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Add a comment to an Icetips ArticlePlease add your comments to this article.
Please note that you must provide both a name and a valid email address in order
for us to publish your comment. Comments are moderated and are not visible until they have been approved. Spam is never approved!
Back to article list Search Articles Add Comment Printer friendly Direct link Windows API: SHGetFolderLocation - 1 2002-08-06 -- Mark Sarson Newsgroups: comp.lang.clarion
Here are the equates and module definition.
HTH
Mark Sarson
Equates
SHITEMID GROUP,TYPE
cb USHORT
abID BYTE
END
ITEMIDLIST GROUP,TYPE
mkid LIKE(SHITEMID)
END
CSIDL_DESKTOP EQUATE(0H) !{desktop}
CSIDL_INTERNET EQUATE(1H) !Internet Explorer (icon on desktop)
CSIDL_PROGRAMS EQUATE(2H) !Start Menu\Programs
CSIDL_CONTROLS EQUATE(3H) !My Computer\Control Panel
CSIDL_PRINTERS EQUATE(4H) !My Computer\Printers
CSIDL_PERSONAL EQUATE(5H) !My Documents
CSIDL_FAVORITES EQUATE(6H) !{user name}\Favorites
CSIDL_STARTUP EQUATE(7H) !Start Menu\Programs\Startup
CSIDL_RECENT EQUATE(8H) !{user name}\Recent
CSIDL_SENDTO EQUATE(9H) !{user name}\SendTo
CSIDL_BITBUCKET EQUATE(0AH) !{desktop}\Recycle Bin
CSIDL_STARTMENU EQUATE(0BH) !{user name}\Start Menu
CSIDL_DESKTOPDIRECTORY EQUATE(10H) !{user name}\Desktop
CSIDL_DRIVES EQUATE(11H) !My Computer
CSIDL_NETWORK EQUATE(12H) !Network Neighborhood
CSIDL_NETHOOD EQUATE(13H) !{user name}\nethood
CSIDL_FONTS EQUATE(14H) !windows\fonts
CSIDL_TEMPLATES EQUATE(15H)
CSIDL_COMMON_STARTMENU EQUATE(16H) !All Users\Start Menu
CSIDL_COMMON_PROGRAMS EQUATE(17H) !All Users\Programs
CSIDL_COMMON_STARTUP EQUATE(18H) !All Users\Startup
CSIDL_COMMON_DESKTOPDIRECTORY EQUATE(19H)!All Users\Desktop
CSIDL_APPDATA EQUATE(1AH) !{user name}\Application Data
CSIDL_PRINTHOOD EQUATE(1BH) !{user name}\PrintHood
CSIDL_LOCAL_APPDATA EQUATE(1CH) !{user name}\Local
Settings\Application Data (non roaming)
CSIDL_ALTSTARTUP EQUATE(1DH) !non localized startup
CSIDL_COMMON_ALTSTARTUP EQUATE(1EH) !non localized common startup
CSIDL_COMMON_FAVORITES EQUATE(1FH)
CSIDL_INTERNET_CACHE EQUATE(20H)
CSIDL_COOKIES EQUATE(21H)
CSIDL_HISTORY EQUATE(22H)
CSIDL_COMMON_APPDATA EQUATE(23H) !All Users\Application Data
CSIDL_WINDOWS EQUATE(24H) !GetWindowsDirectory()
CSIDL_SYSTEM EQUATE(25H) !GetSystemDirectory()
CSIDL_PROGRAM_FILES EQUATE(26H) !C:\Program Files
CSIDL_MYPICTURES EQUATE(27H) !C:\Program Files\My Pictures
CSIDL_PROFILE EQUATE(28H) !USERPROFILE
CSIDL_SYSTEMX86 EQUATE(29H) !x86 system directory on RISC
CSIDL_PROGRAM_FILESX86 EQUATE(2AH) !x86 C:\Program Files on RISC
CSIDL_PROGRAM_FILES_COMMON EQUATE(2BH) !C:\Program Files\Common
CSIDL_PROGRAM_FILES_COMMONX86 EQUATE(2CH) !x86 Program Files\Common on RISC
CSIDL_COMMON_TEMPLATES EQUATE(2DH) !All Users\Templates
CSIDL_COMMON_DOCUMENTS EQUATE(2EH) !All Users\Documents
CSIDL_COMMON_ADMINTOOLS EQUATE(2FH) !All Users\Start
Menu\Programs\Administrative Tools
CSIDL_ADMINTOOLS EQUATE(30H) !{user name}\Start
Menu\Programs\Administrative Tools
CSIDL_FLAG_CREATE EQUATE(8000H) !combine with CSIDL_ value to force create on
SHGetSpecialFolderLocation()
CSIDL_FLAG_DONT_VERIFY EQUATE(4000H) !combine with CSIDL_ value to
force create on SHGetSpecialFolderLocation()
CSIDL_FLAG_MASK EQUATE(0FF00H) !mask for all possible flag
values
SHGFP_TYPE_CURRENT EQUATE(0) !current value for user, verify
it exists
SHGFP_TYPE_DEFAULT EQUATE(1)
MAX_LENGTH EQUATE(260)
S_OK EQUATE(0)
S_FALSE EQUATE(1)
Definition
MODULE('shfolder')
SHGetFolderPath(Long,Long,Long,Long,*CSTRING),Long,PASCAL,RAW,NAME('SHGetFol
derPathA')
END
an example of calling the above is as follows. It retrieves the my documents
folder
If SHGetFolderPath(0{prop:handle}, CSIDL_PERSONAL, 0, SHGFP_TYPE_CURRENT,
sPath) = S_OK Then
! blah blah
End
"Roel S.F. Abspoel"
Today is November 23, 2024, 2:18 am This article has been viewed 35461 times. Google search has resulted in 463 hits on this article since January 25, 2004.
|
|