Get the location of special windows folder from PlayBASIC programs.
Related To:
Get Temp Folder of current Windows user (https://www.underwaredesign.com/forums/index.php?topic=2790.0)
[pbcode]
// These constants can be passed into the GetSpecialFolderPath function to locate the required path on this system.
Constant CSIDL_DESKTOP = $0 ;{desktop}
Constant CSIDL_INTERNET = $1 ;Internet Explorer (icon on desktop)
Constant CSIDL_PROGRAMS = $2 ;Start Menu\Programs
Constant CSIDL_CONTROLS = $3 ;My Computer\Control Panel
Constant CSIDL_PRINTERS = $4 ;My Computer\Printers
Constant CSIDL_PERSONAL = $5 ;My Documents
Constant CSIDL_FAVORITES = $6 ;{user}\Favourites
Constant CSIDL_STARTUP = $7 ;Start Menu\Programs\Startup
Constant CSIDL_RECENT = $8 ;{user}\Recent
Constant CSIDL_SENDTO = $9 ;{user}\SendTo
Constant CSIDL_BITBUCKET = $A ;{desktop}\Recycle Bin
Constant CSIDL_STARTMENU = $B ;{user}\Start Menu
Constant CSIDL_DESKTOPDIRECTORY = $10 ;{user}\Desktop
Constant CSIDL_DRIVES = $11 ;My Computer
Constant CSIDL_NETWORK = $12 ;Network Neighbourhood
Constant CSIDL_NETHOOD = $13 ;{user}\nethood
Constant CSIDL_FONTS = $14 ;windows\fonts
Constant CSIDL_TEMPLATES = $15
Constant CSIDL_COMMON_STARTMENU = $16 ;All Users\Start Menu
Constant CSIDL_COMMON_PROGRAMS = $17 ;All Users\Programs
Constant CSIDL_COMMON_STARTUP = $18 ;All Users\Startup
Constant CSIDL_COMMON_DESKTOPDIRECTORY = $19 ;All Users\Desktop
Constant CSIDL_APPDATA = $1A ;{user}\Application Data
Constant CSIDL_PRINTHOOD = $1B ;{user}\PrintHood
Constant CSIDL_LOCAL_APPDATA = $1C ;{user}\Local Settings _
;\Application Data (non roaming)
Constant CSIDL_ALTSTARTUP = $1D ;non localized startup
Constant CSIDL_COMMON_ALTSTARTUP = $1E ;non localized common startup
Constant CSIDL_COMMON_FAVORITES = $1F
Constant CSIDL_INTERNET_CACHE = $20
Constant CSIDL_COOKIES = $21
Constant CSIDL_HISTORY = $22
Constant CSIDL_COMMON_APPDATA = $23 ;All Users\Application Data
Constant CSIDL_WINDOWS = $24 ;GetWindowsDirectory()
Constant CSIDL_SYSTEM = $25 ;GetSystemDirectory()
Constant CSIDL_PROGRAM_FILES = $26 ;C:\Program Files
Constant CSIDL_MYPICTURES = $27 ;C:\Program Files\My Pictures
Constant CSIDL_PROFILE = $28 ;USERPROFILE
Constant CSIDL_SYSTEMX86 = $29 ;x86 system directory on RISC
Constant CSIDL_PROGRAM_FILESX86 = $2A ;x86 C:\Program Files on RISC
Constant CSIDL_PROGRAM_FILES_COMMON = $2B ;C:\Program Files\Common
Constant CSIDL_PROGRAM_FILES_COMMONX86 = $2C ;x86 Program Files\Common on RISC
Constant CSIDL_COMMON_TEMPLATES = $2D ;All Users\Templates
Constant CSIDL_COMMON_DOCUMENTS = $2E ;All Users\Documents
Constant CSIDL_COMMON_ADMINTOOLS = $2F ;All Users\Start Menu\Programs _
;\Administrative Tools
Constant CSIDL_ADMINTOOLS = $30 ;{user}\Start Menu\Programs _
;\Administrative Tools
Constant CSIDL_FLAG_CREATE = $8000& ;combine with CSIDL_ value to force
;create on SHGetSpecialFolderLocation()
Constant CSIDL_FLAG_DONT_VERIFY = $4000 ;combine with CSIDL_ value to force
;create on SHGetSpecialFolderLocation()
Constant CSIDL_FLAG_MASK = $FF00 ;mask for all possible flag values
Constant SHGFP_TYPE_CURRENT = $0 ;current value for user, verify it exists
Constant SHGFP_TYPE_DEFAULT = $1
LinkDll "shell32"
SHGetFolderPath(hWndOwner,nFolder,hToken,dwFlags,pszPath) Alias "SHGetFolderPathA" as integer
EndLinkDll
Function GetSpecialFolderPath(nFolderID)
// Alloc a bank of 1024 bytes for the function to return the path in
Size=1024
ThisBank=newbank(Size)
Ptr=GetBankPtr(thisBank)
Status=SHGetFolderPath(0,nFolderID,0,0,ptr)
if Status=0
// if status is 0 then the function worked
Path$=PeekString(ptr,0) ; peek a null termed string
else
#print "error polling path"
endif
Deletebank ThisBank
EndFunction path$
// Get the location of a Special windows folder
print GetSpecialFolderPath(CSIDL_LOCAL_APPDATA)
print AppDir$
Sync
waitkey
[/pbcode]