basis/windows/shell32/shell32.factor

   1 ! Copyright (C) 2006, 2008 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien alien.c-types alien.data alien.strings alien.syntax
   4 classes.struct combinators io.files io.pathnames kernel
   5 windows.errors windows.com windows.com.syntax windows.types
   6 windows.user32 windows.ole32 windows specialized-arrays ;
   7 SPECIALIZED-ARRAY: ushort
   8 IN: windows.shell32
   9
  10 CONSTANT: CSIDL_DESKTOP 0x00
  11 CONSTANT: CSIDL_INTERNET 0x01
  12 CONSTANT: CSIDL_PROGRAMS 0x02
  13 CONSTANT: CSIDL_CONTROLS 0x03
  14 CONSTANT: CSIDL_PRINTERS 0x04
  15 CONSTANT: CSIDL_PERSONAL 0x05
  16 CONSTANT: CSIDL_FAVORITES 0x06
  17 CONSTANT: CSIDL_STARTUP 0x07
  18 CONSTANT: CSIDL_RECENT 0x08
  19 CONSTANT: CSIDL_SENDTO 0x09
  20 CONSTANT: CSIDL_BITBUCKET 0x0a
  21 CONSTANT: CSIDL_STARTMENU 0x0b
  22 CONSTANT: CSIDL_MYDOCUMENTS 0x0c
  23 CONSTANT: CSIDL_MYMUSIC 0x0d
  24 CONSTANT: CSIDL_MYVIDEO 0x0e
  25 CONSTANT: CSIDL_DESKTOPDIRECTORY 0x10
  26 CONSTANT: CSIDL_DRIVES 0x11
  27 CONSTANT: CSIDL_NETWORK 0x12
  28 CONSTANT: CSIDL_NETHOOD 0x13
  29 CONSTANT: CSIDL_FONTS 0x14
  30 CONSTANT: CSIDL_TEMPLATES 0x15
  31 CONSTANT: CSIDL_COMMON_STARTMENU 0x16
  32 CONSTANT: CSIDL_COMMON_PROGRAMS 0x17
  33 CONSTANT: CSIDL_COMMON_STARTUP 0x18
  34 CONSTANT: CSIDL_COMMON_DESKTOPDIRECTORY 0x19
  35 CONSTANT: CSIDL_APPDATA 0x1a
  36 CONSTANT: CSIDL_PRINTHOOD 0x1b
  37 CONSTANT: CSIDL_LOCAL_APPDATA 0x1c
  38 CONSTANT: CSIDL_ALTSTARTUP 0x1d
  39 CONSTANT: CSIDL_COMMON_ALTSTARTUP 0x1e
  40 CONSTANT: CSIDL_COMMON_FAVORITES 0x1f
  41 CONSTANT: CSIDL_INTERNET_CACHE 0x20
  42 CONSTANT: CSIDL_COOKIES 0x21
  43 CONSTANT: CSIDL_HISTORY 0x22
  44 CONSTANT: CSIDL_COMMON_APPDATA 0x23
  45 CONSTANT: CSIDL_WINDOWS 0x24
  46 CONSTANT: CSIDL_SYSTEM 0x25
  47 CONSTANT: CSIDL_PROGRAM_FILES 0x26
  48 CONSTANT: CSIDL_MYPICTURES 0x27
  49 CONSTANT: CSIDL_PROFILE 0x28
  50 CONSTANT: CSIDL_SYSTEMX86 0x29
  51 CONSTANT: CSIDL_PROGRAM_FILESX86 0x2a
  52 CONSTANT: CSIDL_PROGRAM_FILES_COMMON 0x2b
  53 CONSTANT: CSIDL_PROGRAM_FILES_COMMONX86 0x2c
  54 CONSTANT: CSIDL_COMMON_TEMPLATES 0x2d
  55 CONSTANT: CSIDL_COMMON_DOCUMENTS 0x2e
  56 CONSTANT: CSIDL_COMMON_ADMINTOOLS 0x2f
  57 CONSTANT: CSIDL_ADMINTOOLS 0x30
  58 CONSTANT: CSIDL_CONNECTIONS 0x31
  59 CONSTANT: CSIDL_COMMON_MUSIC 0x35
  60 CONSTANT: CSIDL_COMMON_PICTURES 0x36
  61 CONSTANT: CSIDL_COMMON_VIDEO 0x37
  62 CONSTANT: CSIDL_RESOURCES 0x38
  63 CONSTANT: CSIDL_RESOURCES_LOCALIZED 0x39
  64 CONSTANT: CSIDL_COMMON_OEM_LINKS 0x3a
  65 CONSTANT: CSIDL_CDBURN_AREA 0x3b
  66 CONSTANT: CSIDL_COMPUTERSNEARME 0x3d
  67 CONSTANT: CSIDL_PROFILES 0x3e
  68 CONSTANT: CSIDL_FOLDER_MASK 0xff
  69 CONSTANT: CSIDL_FLAG_PER_USER_INIT 0x800
  70 CONSTANT: CSIDL_FLAG_NO_ALIAS 0x1000
  71 CONSTANT: CSIDL_FLAG_DONT_VERIFY 0x4000
  72 CONSTANT: CSIDL_FLAG_CREATE 0x8000
  73 CONSTANT: CSIDL_FLAG_MASK 0xff00
  74
  75
  76 CONSTANT: ERROR_FILE_NOT_FOUND 2
  77
  78 CONSTANT: SHGFP_TYPE_CURRENT 0
  79 CONSTANT: SHGFP_TYPE_DEFAULT 1
  80
  81 LIBRARY: shell32
  82
  83 FUNCTION: HRESULT SHGetFolderPathW ( HWND hwndOwner, int nFolder, HANDLE hToken, DWORD dwReserved, LPTSTR pszPath ) ;
  84 ALIAS: SHGetFolderPath SHGetFolderPathW
  85
  86 FUNCTION: HINSTANCE ShellExecuteW ( HWND hwnd, LPCTSTR lpOperation, LPCTSTR lpFile, LPCTSTR lpParameters, LPCTSTR lpDirectory, INT nShowCmd ) ;
  87 ALIAS: ShellExecute ShellExecuteW
  88
  89 : shell32-directory ( n -- str )
  90     f swap f SHGFP_TYPE_DEFAULT
  91     MAX_UNICODE_PATH ushort <c-array>
  92     [ SHGetFolderPath drop ] keep alien>native-string ;
  93
  94 : desktop ( -- str )
  95     CSIDL_DESKTOPDIRECTORY shell32-directory ;
  96
  97 : my-documents ( -- str )
  98     CSIDL_PERSONAL shell32-directory ;
  99
 100 : application-data ( -- str )
 101     CSIDL_APPDATA shell32-directory ;
 102
 103 : windows-directory ( -- str )
 104     CSIDL_WINDOWS shell32-directory ;
 105
 106 : programs ( -- str )
 107     CSIDL_PROGRAMS shell32-directory ;
 108
 109 : program-files ( -- str )
 110     CSIDL_PROGRAM_FILES shell32-directory ;
 111
 112 : program-files-x86 ( -- str )
 113     CSIDL_PROGRAM_FILESX86 shell32-directory ;
 114
 115 : program-files-common ( -- str )
 116     CSIDL_PROGRAM_FILES_COMMON shell32-directory ;
 117
 118 : program-files-common-x86 ( -- str )
 119     CSIDL_PROGRAM_FILES_COMMONX86 shell32-directory ;
 120
 121 CONSTANT: SHCONTF_FOLDERS 32
 122 CONSTANT: SHCONTF_NONFOLDERS 64
 123 CONSTANT: SHCONTF_INCLUDEHIDDEN 128
 124 CONSTANT: SHCONTF_INIT_ON_FIRST_NEXT 256
 125 CONSTANT: SHCONTF_NETPRINTERSRCH 512
 126 CONSTANT: SHCONTF_SHAREABLE 1024
 127 CONSTANT: SHCONTF_STORAGE 2048
 128
 129 TYPEDEF: DWORD SHCONTF
 130
 131 CONSTANT: SHGDN_NORMAL 0
 132 CONSTANT: SHGDN_INFOLDER 1
 133 CONSTANT: SHGDN_FOREDITING 0x1000
 134 CONSTANT: SHGDN_INCLUDE_NONFILESYS 0x2000
 135 CONSTANT: SHGDN_FORADDRESSBAR 0x4000
 136 CONSTANT: SHGDN_FORPARSING 0x8000
 137
 138 TYPEDEF: DWORD SHGDNF
 139
 140 ALIAS: SFGAO_CANCOPY           DROPEFFECT_COPY
 141 ALIAS: SFGAO_CANMOVE           DROPEFFECT_MOVE
 142 ALIAS: SFGAO_CANLINK           DROPEFFECT_LINK
 143 CONSTANT: SFGAO_CANRENAME         0x00000010
 144 CONSTANT: SFGAO_CANDELETE         0x00000020
 145 CONSTANT: SFGAO_HASPROPSHEET      0x00000040
 146 CONSTANT: SFGAO_DROPTARGET        0x00000100
 147 CONSTANT: SFGAO_CAPABILITYMASK    0x00000177
 148 CONSTANT: SFGAO_LINK              0x00010000
 149 CONSTANT: SFGAO_SHARE             0x00020000
 150 CONSTANT: SFGAO_READONLY          0x00040000
 151 CONSTANT: SFGAO_GHOSTED           0x00080000
 152 CONSTANT: SFGAO_HIDDEN            0x00080000
 153 CONSTANT: SFGAO_DISPLAYATTRMASK   0x000F0000
 154 CONSTANT: SFGAO_FILESYSANCESTOR   0x10000000
 155 CONSTANT: SFGAO_FOLDER            0x20000000
 156 CONSTANT: SFGAO_FILESYSTEM        0x40000000
 157 CONSTANT: SFGAO_HASSUBFOLDER      0x80000000
 158 CONSTANT: SFGAO_CONTENTSMASK      0x80000000
 159 CONSTANT: SFGAO_VALIDATE          0x01000000
 160 CONSTANT: SFGAO_REMOVABLE         0x02000000
 161 CONSTANT: SFGAO_COMPRESSED        0x04000000
 162 CONSTANT: SFGAO_BROWSABLE         0x08000000
 163 CONSTANT: SFGAO_NONENUMERATED     0x00100000
 164 CONSTANT: SFGAO_NEWCONTENT        0x00200000
 165
 166 TYPEDEF: ULONG SFGAOF
 167
 168 STRUCT: DROPFILES
 169     { pFiles DWORD }
 170     { pt POINT }
 171     { fNC BOOL }
 172     { fWide BOOL } ;
 173 TYPEDEF: DROPFILES* LPDROPFILES
 174 TYPEDEF: DROPFILES* LPCDROPFILES
 175 TYPEDEF: HANDLE HDROP
 176
 177 STRUCT: SHITEMID
 178     { cb USHORT }
 179     { abID BYTE[1] } ;
 180 TYPEDEF: SHITEMID* LPSHITEMID
 181 TYPEDEF: SHITEMID* LPCSHITEMID
 182
 183 STRUCT: ITEMIDLIST
 184     { mkid SHITEMID } ;
 185 TYPEDEF: ITEMIDLIST* LPITEMIDLIST
 186 TYPEDEF: ITEMIDLIST* LPCITEMIDLIST
 187 TYPEDEF: ITEMIDLIST ITEMID_CHILD
 188 TYPEDEF: ITEMID_CHILD* PITEMID_CHILD
 189 TYPEDEF: ITEMID_CHILD* PCUITEMID_CHILD
 190
 191 CONSTANT: STRRET_WSTR 0
 192 CONSTANT: STRRET_OFFSET 1
 193 CONSTANT: STRRET_CSTR 2
 194
 195 UNION-STRUCT: STRRET-union
 196     { pOleStr LPWSTR }
 197     { uOffset UINT }
 198     { cStr char[260] } ;
 199 STRUCT: STRRET
 200     { uType int }
 201     { value STRRET-union } ;
 202
 203 COM-INTERFACE: IEnumIDList IUnknown {000214F2-0000-0000-C000-000000000046}
 204     HRESULT Next ( ULONG celt, LPITEMIDLIST* rgelt, ULONG* pceltFetched )
 205     HRESULT Skip ( ULONG celt )
 206     HRESULT Reset ( )
 207     HRESULT Clone ( IEnumIDList** ppenum ) ;
 208
 209 COM-INTERFACE: IShellFolder IUnknown {000214E6-0000-0000-C000-000000000046}
 210     HRESULT ParseDisplayName ( HWND hwndOwner, void* pbcReserved, LPOLESTR lpszDisplayName, ULONG* pchEaten, LPITEMIDLIST* ppidl, ULONG* pdwAttributes )
 211     HRESULT EnumObjects ( HWND hwndOwner, SHCONTF grfFlags, IEnumIDList** ppenumIDList )
 212     HRESULT BindToObject ( LPCITEMIDLIST pidl, void* pbcReserved, REFGUID riid, void** ppvOut )
 213     HRESULT BindToStorage ( LPCITEMIDLIST pidl, void* pbcReserved, REFGUID riid, void** ppvObj )
 214     HRESULT CompareIDs ( LPARAM lParam, LPCITEMIDLIST pidl1, LPCITEMIDLIST pidl2 )
 215     HRESULT CreateViewObject ( HWND hwndOwner, REFGUID riid, void** ppvOut )
 216     HRESULT GetAttributesOf ( UINT cidl, LPCITEMIDLIST* apidl, SFGAOF* rgfInOut )
 217     HRESULT GetUIObjectOf ( HWND hwndOwner, UINT cidl, LPCITEMIDLIST* apidl, REFGUID riid, UINT* prgfInOut, void** ppvOut )
 218     HRESULT GetDisplayNameOf ( LPCITEMIDLIST pidl, SHGDNF uFlags, STRRET* lpName )
 219     HRESULT SetNameOf ( HWND hwnd, LPCITEMIDLIST pidl, LPCOLESTR lpszName, SHGDNF uFlags, LPITEMIDLIST* ppidlOut ) ;
 220
 221 FUNCTION: HRESULT SHGetDesktopFolder ( IShellFolder** ppshf ) ;
 222
 223 FUNCTION: UINT DragQueryFileW ( HDROP hDrop, UINT iFile, LPWSTR lpszFile, UINT cch ) ;
 224 ALIAS: DragQueryFile DragQueryFileW
 225
 226 FUNCTION: BOOL IsUserAnAdmin ( ) ;