1 ! Copyright (C) 2006, 2008 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien alien.c-types alien.strings alien.syntax
4 classes.struct combinators io.encodings.utf16n io.files
5 io.pathnames kernel windows.errors windows.com
6 windows.com.syntax windows.types windows.user32
7 windows.ole32 windows specialized-arrays ;
8 SPECIALIZED-ARRAY: ushort
11 CONSTANT: CSIDL_DESKTOP HEX: 00
12 CONSTANT: CSIDL_INTERNET HEX: 01
13 CONSTANT: CSIDL_PROGRAMS HEX: 02
14 CONSTANT: CSIDL_CONTROLS HEX: 03
15 CONSTANT: CSIDL_PRINTERS HEX: 04
16 CONSTANT: CSIDL_PERSONAL HEX: 05
17 CONSTANT: CSIDL_FAVORITES HEX: 06
18 CONSTANT: CSIDL_STARTUP HEX: 07
19 CONSTANT: CSIDL_RECENT HEX: 08
20 CONSTANT: CSIDL_SENDTO HEX: 09
21 CONSTANT: CSIDL_BITBUCKET HEX: 0a
22 CONSTANT: CSIDL_STARTMENU HEX: 0b
23 CONSTANT: CSIDL_MYDOCUMENTS HEX: 0c
24 CONSTANT: CSIDL_MYMUSIC HEX: 0d
25 CONSTANT: CSIDL_MYVIDEO HEX: 0e
26 CONSTANT: CSIDL_DESKTOPDIRECTORY HEX: 10
27 CONSTANT: CSIDL_DRIVES HEX: 11
28 CONSTANT: CSIDL_NETWORK HEX: 12
29 CONSTANT: CSIDL_NETHOOD HEX: 13
30 CONSTANT: CSIDL_FONTS HEX: 14
31 CONSTANT: CSIDL_TEMPLATES HEX: 15
32 CONSTANT: CSIDL_COMMON_STARTMENU HEX: 16
33 CONSTANT: CSIDL_COMMON_PROGRAMS HEX: 17
34 CONSTANT: CSIDL_COMMON_STARTUP HEX: 18
35 CONSTANT: CSIDL_COMMON_DESKTOPDIRECTORY HEX: 19
36 CONSTANT: CSIDL_APPDATA HEX: 1a
37 CONSTANT: CSIDL_PRINTHOOD HEX: 1b
38 CONSTANT: CSIDL_LOCAL_APPDATA HEX: 1c
39 CONSTANT: CSIDL_ALTSTARTUP HEX: 1d
40 CONSTANT: CSIDL_COMMON_ALTSTARTUP HEX: 1e
41 CONSTANT: CSIDL_COMMON_FAVORITES HEX: 1f
42 CONSTANT: CSIDL_INTERNET_CACHE HEX: 20
43 CONSTANT: CSIDL_COOKIES HEX: 21
44 CONSTANT: CSIDL_HISTORY HEX: 22
45 CONSTANT: CSIDL_COMMON_APPDATA HEX: 23
46 CONSTANT: CSIDL_WINDOWS HEX: 24
47 CONSTANT: CSIDL_SYSTEM HEX: 25
48 CONSTANT: CSIDL_PROGRAM_FILES HEX: 26
49 CONSTANT: CSIDL_MYPICTURES HEX: 27
50 CONSTANT: CSIDL_PROFILE HEX: 28
51 CONSTANT: CSIDL_SYSTEMX86 HEX: 29
52 CONSTANT: CSIDL_PROGRAM_FILESX86 HEX: 2a
53 CONSTANT: CSIDL_PROGRAM_FILES_COMMON HEX: 2b
54 CONSTANT: CSIDL_PROGRAM_FILES_COMMONX86 HEX: 2c
55 CONSTANT: CSIDL_COMMON_TEMPLATES HEX: 2d
56 CONSTANT: CSIDL_COMMON_DOCUMENTS HEX: 2e
57 CONSTANT: CSIDL_COMMON_ADMINTOOLS HEX: 2f
58 CONSTANT: CSIDL_ADMINTOOLS HEX: 30
59 CONSTANT: CSIDL_CONNECTIONS HEX: 31
60 CONSTANT: CSIDL_COMMON_MUSIC HEX: 35
61 CONSTANT: CSIDL_COMMON_PICTURES HEX: 36
62 CONSTANT: CSIDL_COMMON_VIDEO HEX: 37
63 CONSTANT: CSIDL_RESOURCES HEX: 38
64 CONSTANT: CSIDL_RESOURCES_LOCALIZED HEX: 39
65 CONSTANT: CSIDL_COMMON_OEM_LINKS HEX: 3a
66 CONSTANT: CSIDL_CDBURN_AREA HEX: 3b
67 CONSTANT: CSIDL_COMPUTERSNEARME HEX: 3d
68 CONSTANT: CSIDL_PROFILES HEX: 3e
69 CONSTANT: CSIDL_FOLDER_MASK HEX: ff
70 CONSTANT: CSIDL_FLAG_PER_USER_INIT HEX: 800
71 CONSTANT: CSIDL_FLAG_NO_ALIAS HEX: 1000
72 CONSTANT: CSIDL_FLAG_DONT_VERIFY HEX: 4000
73 CONSTANT: CSIDL_FLAG_CREATE HEX: 8000
74 CONSTANT: CSIDL_FLAG_MASK HEX: ff00
77 CONSTANT: ERROR_FILE_NOT_FOUND 2
79 CONSTANT: SHGFP_TYPE_CURRENT 0
80 CONSTANT: SHGFP_TYPE_DEFAULT 1
84 FUNCTION: HRESULT SHGetFolderPathW ( HWND hwndOwner, int nFolder, HANDLE hToken, DWORD dwReserved, LPTSTR pszPath ) ;
85 ALIAS: SHGetFolderPath SHGetFolderPathW
87 FUNCTION: HINSTANCE ShellExecuteW ( HWND hwnd, LPCTSTR lpOperation, LPCTSTR lpFile, LPCTSTR lpParameters, LPCTSTR lpDirectory, INT nShowCmd ) ;
88 ALIAS: ShellExecute ShellExecuteW
90 : open-in-explorer ( dir -- )
91 [ f "open" ] dip (normalize-path) f f SW_SHOWNORMAL ShellExecute drop ;
93 : shell32-directory ( n -- str )
94 f swap f SHGFP_TYPE_DEFAULT
95 MAX_UNICODE_PATH <ushort-array>
96 [ SHGetFolderPath drop ] keep utf16n alien>string ;
99 CSIDL_DESKTOPDIRECTORY shell32-directory ;
101 : my-documents ( -- str )
102 CSIDL_PERSONAL shell32-directory ;
104 : application-data ( -- str )
105 CSIDL_APPDATA shell32-directory ;
107 : windows-directory ( -- str )
108 CSIDL_WINDOWS shell32-directory ;
110 : programs ( -- str )
111 CSIDL_PROGRAMS shell32-directory ;
113 : program-files ( -- str )
114 CSIDL_PROGRAM_FILES shell32-directory ;
116 : program-files-x86 ( -- str )
117 CSIDL_PROGRAM_FILESX86 shell32-directory ;
119 : program-files-common ( -- str )
120 CSIDL_PROGRAM_FILES_COMMON shell32-directory ;
122 : program-files-common-x86 ( -- str )
123 CSIDL_PROGRAM_FILES_COMMONX86 shell32-directory ;
125 CONSTANT: SHCONTF_FOLDERS 32
126 CONSTANT: SHCONTF_NONFOLDERS 64
127 CONSTANT: SHCONTF_INCLUDEHIDDEN 128
128 CONSTANT: SHCONTF_INIT_ON_FIRST_NEXT 256
129 CONSTANT: SHCONTF_NETPRINTERSRCH 512
130 CONSTANT: SHCONTF_SHAREABLE 1024
131 CONSTANT: SHCONTF_STORAGE 2048
133 TYPEDEF: DWORD SHCONTF
135 CONSTANT: SHGDN_NORMAL 0
136 CONSTANT: SHGDN_INFOLDER 1
137 CONSTANT: SHGDN_FOREDITING HEX: 1000
138 CONSTANT: SHGDN_INCLUDE_NONFILESYS HEX: 2000
139 CONSTANT: SHGDN_FORADDRESSBAR HEX: 4000
140 CONSTANT: SHGDN_FORPARSING HEX: 8000
142 TYPEDEF: DWORD SHGDNF
144 ALIAS: SFGAO_CANCOPY DROPEFFECT_COPY
145 ALIAS: SFGAO_CANMOVE DROPEFFECT_MOVE
146 ALIAS: SFGAO_CANLINK DROPEFFECT_LINK
147 CONSTANT: SFGAO_CANRENAME HEX: 00000010
148 CONSTANT: SFGAO_CANDELETE HEX: 00000020
149 CONSTANT: SFGAO_HASPROPSHEET HEX: 00000040
150 CONSTANT: SFGAO_DROPTARGET HEX: 00000100
151 CONSTANT: SFGAO_CAPABILITYMASK HEX: 00000177
152 CONSTANT: SFGAO_LINK HEX: 00010000
153 CONSTANT: SFGAO_SHARE HEX: 00020000
154 CONSTANT: SFGAO_READONLY HEX: 00040000
155 CONSTANT: SFGAO_GHOSTED HEX: 00080000
156 CONSTANT: SFGAO_HIDDEN HEX: 00080000
157 CONSTANT: SFGAO_DISPLAYATTRMASK HEX: 000F0000
158 CONSTANT: SFGAO_FILESYSANCESTOR HEX: 10000000
159 CONSTANT: SFGAO_FOLDER HEX: 20000000
160 CONSTANT: SFGAO_FILESYSTEM HEX: 40000000
161 CONSTANT: SFGAO_HASSUBFOLDER HEX: 80000000
162 CONSTANT: SFGAO_CONTENTSMASK HEX: 80000000
163 CONSTANT: SFGAO_VALIDATE HEX: 01000000
164 CONSTANT: SFGAO_REMOVABLE HEX: 02000000
165 CONSTANT: SFGAO_COMPRESSED HEX: 04000000
166 CONSTANT: SFGAO_BROWSABLE HEX: 08000000
167 CONSTANT: SFGAO_NONENUMERATED HEX: 00100000
168 CONSTANT: SFGAO_NEWCONTENT HEX: 00200000
170 TYPEDEF: ULONG SFGAOF
177 TYPEDEF: DROPFILES* LPDROPFILES
178 TYPEDEF: DROPFILES* LPCDROPFILES
179 TYPEDEF: HANDLE HDROP
184 TYPEDEF: SHITEMID* LPSHITEMID
185 TYPEDEF: SHITEMID* LPCSHITEMID
189 TYPEDEF: ITEMIDLIST* LPITEMIDLIST
190 TYPEDEF: ITEMIDLIST* LPCITEMIDLIST
191 TYPEDEF: ITEMIDLIST ITEMID_CHILD
192 TYPEDEF: ITEMID_CHILD* PITEMID_CHILD
193 TYPEDEF: ITEMID_CHILD* PCUITEMID_CHILD
195 CONSTANT: STRRET_WSTR 0
196 CONSTANT: STRRET_OFFSET 1
197 CONSTANT: STRRET_CSTR 2
199 UNION-STRUCT: STRRET-union
205 { value STRRET-union } ;
207 COM-INTERFACE: IEnumIDList IUnknown {000214F2-0000-0000-C000-000000000046}
208 HRESULT Next ( ULONG celt, LPITEMIDLIST* rgelt, ULONG* pceltFetched )
209 HRESULT Skip ( ULONG celt )
211 HRESULT Clone ( IEnumIDList** ppenum ) ;
213 COM-INTERFACE: IShellFolder IUnknown {000214E6-0000-0000-C000-000000000046}
214 HRESULT ParseDisplayName ( HWND hwndOwner, void* pbcReserved, LPOLESTR lpszDisplayName, ULONG* pchEaten, LPITEMIDLIST* ppidl, ULONG* pdwAttributes )
215 HRESULT EnumObjects ( HWND hwndOwner, SHCONTF grfFlags, IEnumIDList** ppenumIDList )
216 HRESULT BindToObject ( LPCITEMIDLIST pidl, void* pbcReserved, REFGUID riid, void** ppvOut )
217 HRESULT BindToStorage ( LPCITEMIDLIST pidl, void* pbcReserved, REFGUID riid, void** ppvObj )
218 HRESULT CompareIDs ( LPARAM lParam, LPCITEMIDLIST pidl1, LPCITEMIDLIST pidl2 )
219 HRESULT CreateViewObject ( HWND hwndOwner, REFGUID riid, void** ppvOut )
220 HRESULT GetAttributesOf ( UINT cidl, LPCITEMIDLIST* apidl, SFGAOF* rgfInOut )
221 HRESULT GetUIObjectOf ( HWND hwndOwner, UINT cidl, LPCITEMIDLIST* apidl, REFGUID riid, UINT* prgfInOut, void** ppvOut )
222 HRESULT GetDisplayNameOf ( LPCITEMIDLIST pidl, SHGDNF uFlags, STRRET* lpName )
223 HRESULT SetNameOf ( HWND hwnd, LPCITEMIDLIST pidl, LPCOLESTR lpszName, SHGDNF uFlags, LPITEMIDLIST* ppidlOut ) ;
225 FUNCTION: HRESULT SHGetDesktopFolder ( IShellFolder** ppshf ) ;
227 FUNCTION: UINT DragQueryFileW ( HDROP hDrop, UINT iFile, LPWSTR lpszFile, UINT cch ) ;
228 ALIAS: DragQueryFile DragQueryFileW