1 /*<winfolders>
2 <copyright year = 2006>
3 <company = 'Gentee, Inc.' url = 'http://www.gentee.com' email = info@gentee.com >
4 <author = 'Alexey Krivonogov'>
5 <file>
6 </>
7 </>
8 <desc>
9 </>
10 </>*/
11
12 import "kernel32.dll"
13 {
14 // uint GetDiskFreeSpaceExA( uint, uint, uint, uint ) -> GetDiskFreeSpaceEx
15 uint GetSystemDirectoryA( uint, uint ) -> GetSystemDirectory
16 uint GetTempPathA( uint, uint ) -> GetTempPath
17 uint GetWindowsDirectoryA( uint, uint ) -> GetWindowsDirectory
18 }
19
20 import "shell32.dll"
21 {
22 uint SHGetSpecialFolderLocation( uint, uint, uint )
23 uint SHGetPathFromIDListW( uint, uint ) -> SHGetPathFromIDList
24 }
25
26 import "ole32.dll" {
27 uint CoTaskMemAlloc( uint )
28 CoTaskMemFree( uint )
29 }
30
31 define <export>
32 {
33 WINFLD_SIZE = 512 // Reserved size for folders
34 // values for idfolder parameter of the function winfolder
35 WINFLD_WIN = 0xFF00 // Windows directory
36 WINFLD_SYS // System directory
37 WINFLD_TEMP // Temporary directory
38 WINFLD_QLAUNCH // Quick Launch folder
39 WINFLD_SENDTO = 0x0009 // "Sendto" folder
40 WINFLD_MYMUSIC = 0x000D // "My Music" folder
41 WINFLD_MYVIDEO = 0x000E // "My Videos" folder
42 WINFLD_APPDATA = 0x001a // Application Data
43 WINFLD_LOCALAPPDATA = 0x001c // Application Data
44 WINFLD_COMAPPDATA = 0x0023
45 WINFLD_DESKTOP = 0x0010 // Desktop folder
46 WINFLD_COMDESKTOP = 0x0019 // Desktop folder
47 WINFLD_PROGFILES = 0x0026 // Program Files directory
48 WINFLD_MYPICTURES = 0x0027 // "My Pictures" folder
49 WINFLD_COMPROGFILES = 0x002b // Common Program Files directory
50 WINFLD_PROGGROUP = 0x0002 // Start -> Programs folder
51 WINFLD_COMPROGGROUP = 0x0017
52 WINFLD_START = 0x000b // Start menu folde
53 WINFLD_COMSTART = 0x0016
54 WINFLD_STARTUP = 0x0007 // StartUp folder
55 WINFLD_COMSTARTUP = 0x0018
56 WINFLD_FONT = 0x0014 // Fonts folder
57 WINFLD_DOCS = 0x0005 // My Documents folder
58 WINFLD_COMDOCS = 0x002e
59 WINFLD_COMMUSIC = 0x0035 // All Users\My Music
60 WINFLD_COMPICTURES = 0x0036 // All Users\My Pictures
61 WINFLD_COMVIDEO = 0x0037 // All Users\My Video
62 WINFLD_IEFAV = 0x0006 // Internet Explorer Favorite folder
63 WINFLD_COMIEFAV = 0x001f
64 WINFLD_COOKIES = 0x0021
65 WINFLD_HISTORY = 0x0022
66 WINFLD_DRIVES = 0x0011 // My Computer
67 WINFLD_NETWORK = 0x0012 // Network Neighborhood (My Network Places)
68 }
69
70 func str winfolder( uint idfolder, str result )
71 {
72 uint ptr
73 uint qlaunch
74
75 result.clear()
76 result.reserve( $WINFLD_SIZE )
77 ptr = result.ptr()
78
79 if idfolder == $WINFLD_WIN : GetWindowsDirectory( ptr, $WINFLD_SIZE )
80 elif idfolder == $WINFLD_SYS : GetSystemDirectory( ptr, $WINFLD_SIZE )
81 elif idfolder == $WINFLD_TEMP : GetTempPath( $WINFLD_SIZE, ptr )
82 else
83 {
84 uint ids
85
86 if idfolder == $WINFLD_QLAUNCH
87 {
88 idfolder = $WINFLD_APPDATA
89 qlaunch = 1
90 }
91 if !SHGetSpecialFolderLocation( 0, idfolder, &ids )
92 {
93 ustr uptr
94
95 uptr.reserve( 1024 )
96 // ptr = uptr.ptr()
97 SHGetPathFromIDList( ids, uptr.ptr() )
98 uptr.setlenptr()
99 result = uptr
100 CoTaskMemFree( ids )//imalloc_free( ids )
101 }
102 }
103 result.setlenptr().fdelslash()
104 if qlaunch : result.faddname( $"Microsoft\Internet Explorer\Quick Launch" )
105 return result
106 }
107 /*
108 func long getdisksize( str path, uint ptotal )
109 {
110 long result
111
112 if !GetProcAddress( GetModuleHandle( "kernel32.dll".ptr() ),
113 "GetDiskFreeSpaceExA".ptr())
114 {
115 return 0L
116 }
117 GetDiskFreeSpaceEx( path.ptr(), &result, ptotal, 0 )
118
119 return result
120 }
121 */