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 io.backend kernel literals math windows
   5 windows.com windows.com.syntax windows.kernel32 windows.messages
   6 windows.ole32 windows.types ;
   7 IN: windows.shell32
   8
   9 CONSTANT: CSIDL_DESKTOP 0x00
  10 CONSTANT: CSIDL_INTERNET 0x01
  11 CONSTANT: CSIDL_PROGRAMS 0x02
  12 CONSTANT: CSIDL_CONTROLS 0x03
  13 CONSTANT: CSIDL_PRINTERS 0x04
  14 CONSTANT: CSIDL_PERSONAL 0x05
  15 CONSTANT: CSIDL_FAVORITES 0x06
  16 CONSTANT: CSIDL_STARTUP 0x07
  17 CONSTANT: CSIDL_RECENT 0x08
  18 CONSTANT: CSIDL_SENDTO 0x09
  19 CONSTANT: CSIDL_BITBUCKET 0x0a
  20 CONSTANT: CSIDL_STARTMENU 0x0b
  21 CONSTANT: CSIDL_MYDOCUMENTS 0x0c
  22 CONSTANT: CSIDL_MYMUSIC 0x0d
  23 CONSTANT: CSIDL_MYVIDEO 0x0e
  24 CONSTANT: CSIDL_DESKTOPDIRECTORY 0x10
  25 CONSTANT: CSIDL_DRIVES 0x11
  26 CONSTANT: CSIDL_NETWORK 0x12
  27 CONSTANT: CSIDL_NETHOOD 0x13
  28 CONSTANT: CSIDL_FONTS 0x14
  29 CONSTANT: CSIDL_TEMPLATES 0x15
  30 CONSTANT: CSIDL_COMMON_STARTMENU 0x16
  31 CONSTANT: CSIDL_COMMON_PROGRAMS 0x17
  32 CONSTANT: CSIDL_COMMON_STARTUP 0x18
  33 CONSTANT: CSIDL_COMMON_DESKTOPDIRECTORY 0x19
  34 CONSTANT: CSIDL_APPDATA 0x1a
  35 CONSTANT: CSIDL_PRINTHOOD 0x1b
  36 CONSTANT: CSIDL_LOCAL_APPDATA 0x1c
  37 CONSTANT: CSIDL_ALTSTARTUP 0x1d
  38 CONSTANT: CSIDL_COMMON_ALTSTARTUP 0x1e
  39 CONSTANT: CSIDL_COMMON_FAVORITES 0x1f
  40 CONSTANT: CSIDL_INTERNET_CACHE 0x20
  41 CONSTANT: CSIDL_COOKIES 0x21
  42 CONSTANT: CSIDL_HISTORY 0x22
  43 CONSTANT: CSIDL_COMMON_APPDATA 0x23
  44 CONSTANT: CSIDL_WINDOWS 0x24
  45 CONSTANT: CSIDL_SYSTEM 0x25
  46 CONSTANT: CSIDL_PROGRAM_FILES 0x26
  47 CONSTANT: CSIDL_MYPICTURES 0x27
  48 CONSTANT: CSIDL_PROFILE 0x28
  49 CONSTANT: CSIDL_SYSTEMX86 0x29
  50 CONSTANT: CSIDL_PROGRAM_FILESX86 0x2a
  51 CONSTANT: CSIDL_PROGRAM_FILES_COMMON 0x2b
  52 CONSTANT: CSIDL_PROGRAM_FILES_COMMONX86 0x2c
  53 CONSTANT: CSIDL_COMMON_TEMPLATES 0x2d
  54 CONSTANT: CSIDL_COMMON_DOCUMENTS 0x2e
  55 CONSTANT: CSIDL_COMMON_ADMINTOOLS 0x2f
  56 CONSTANT: CSIDL_ADMINTOOLS 0x30
  57 CONSTANT: CSIDL_CONNECTIONS 0x31
  58 CONSTANT: CSIDL_COMMON_MUSIC 0x35
  59 CONSTANT: CSIDL_COMMON_PICTURES 0x36
  60 CONSTANT: CSIDL_COMMON_VIDEO 0x37
  61 CONSTANT: CSIDL_RESOURCES 0x38
  62 CONSTANT: CSIDL_RESOURCES_LOCALIZED 0x39
  63 CONSTANT: CSIDL_COMMON_OEM_LINKS 0x3a
  64 CONSTANT: CSIDL_CDBURN_AREA 0x3b
  65 CONSTANT: CSIDL_COMPUTERSNEARME 0x3d
  66 CONSTANT: CSIDL_PROFILES 0x3e
  67 CONSTANT: CSIDL_FOLDER_MASK 0xff
  68 CONSTANT: CSIDL_FLAG_PER_USER_INIT 0x800
  69 CONSTANT: CSIDL_FLAG_NO_ALIAS 0x1000
  70 CONSTANT: CSIDL_FLAG_DONT_VERIFY 0x4000
  71 CONSTANT: CSIDL_FLAG_CREATE 0x8000
  72 CONSTANT: CSIDL_FLAG_MASK 0xff00
  73
  74 CONSTANT: SHGFP_TYPE_CURRENT 0
  75 CONSTANT: SHGFP_TYPE_DEFAULT 1
  76
  77 LIBRARY: shell32
  78
  79 FUNCTION: HRESULT SHGetFolderPathW ( HWND hwndOwner,
  80                                      int nFolder,
  81                                      HANDLE hToken,
  82                                      DWORD dwReserved,
  83                                      LPTSTR pszPath )
  84 ALIAS: SHGetFolderPath SHGetFolderPathW
  85
  86 FUNCTION: HINSTANCE ShellExecuteW ( HWND hwnd,
  87                                     LPCTSTR lpOperation,
  88                                     LPCTSTR lpFile,
  89                                     LPCTSTR lpParameters,
  90                                     LPCTSTR lpDirectory, INT nShowCmd )
  91 ALIAS: ShellExecute ShellExecuteW
  92
  93 CONSTANT: SHGFI_ICON 0x000000100
  94 CONSTANT: SHGFI_DISPLAYNAME 0x000000200
  95 CONSTANT: SHGFI_TYPENAME 0x000000400
  96 CONSTANT: SHGFI_ATTRIBUTES 0x000000800
  97 CONSTANT: SHGFI_ICONLOCATION 0x000001000
  98 CONSTANT: SHGFI_EXETYPE 0x000002000
  99 CONSTANT: SHGFI_SYSICONINDEX 0x000004000
 100 CONSTANT: SHGFI_LINKOVERLAY 0x000008000
 101 CONSTANT: SHGFI_SELECTED 0x000010000
 102 CONSTANT: SHGFI_ATTR_SPECIFIED 0x000020000
 103 CONSTANT: SHGFI_LARGEICON 0x000000000
 104 CONSTANT: SHGFI_SMALLICON 0x000000001
 105 CONSTANT: SHGFI_OPENICON 0x000000002
 106 CONSTANT: SHGFI_SHELLICONSIZE 0x000000004
 107 CONSTANT: SHGFI_PIDL 0x000000008
 108 CONSTANT: SHGFI_USEFILEATTRIBUTES 0x000000010
 109 CONSTANT: SHGFI_ADDOVERLAYS 0x000000020
 110 CONSTANT: SHGFI_OVERLAYINDEX 0x000000040
 111
 112 STRUCT: SHFILEINFO
 113     { hIcon HICON }
 114     { iIcon int }
 115     { dwAttributes DWORD }
 116     { szDisplayName TCHAR[MAX_PATH] }
 117     { szTypeName TCHAR[80] } ;
 118
 119 FUNCTION: DWORD_PTR SHGetFileInfoW ( LPCTSTR pszPath,
 120                                      DWORD dwFileAttributes,
 121                                      SHFILEINFO *psfi,
 122                                      UINT cbFileInfo,
 123                                      UINT uFlags )
 124
 125 : shell32-file-info ( path -- err struct )
 126     normalize-path
 127     0
 128     SHFILEINFO <struct>
 129     [ dup byte-length SHGFI_EXETYPE SHGetFileInfoW ] keep ;
 130
 131 SINGLETONS:
 132     +dos-executable+
 133     +win32-console-executable+
 134     +win32-vxd-executable+
 135     +win32-os2-executable+
 136     +win32-nt-executable+ ;
 137
 138 MIXIN: windows-executable
 139 INSTANCE: +dos-executable+ windows-executable        ! mz
 140 INSTANCE: +win32-console-executable+ windows-executable
 141 INSTANCE: +win32-vxd-executable+ windows-executable  ! le
 142 INSTANCE: +win32-os2-executable+ windows-executable  ! ne
 143 INSTANCE: +win32-nt-executable+ windows-executable   ! pe
 144
 145 : shell32-directory ( n -- str )
 146     f swap f SHGFP_TYPE_DEFAULT
 147     MAX_UNICODE_PATH ushort <c-array>
 148     [ SHGetFolderPath drop ] keep alien>native-string ;
 149
 150 : desktop ( -- str )
 151     CSIDL_DESKTOPDIRECTORY shell32-directory ;
 152
 153 : my-documents ( -- str )
 154     CSIDL_PERSONAL shell32-directory ;
 155
 156 : application-data ( -- str )
 157     CSIDL_APPDATA shell32-directory ;
 158
 159 : windows-directory ( -- str )
 160     CSIDL_WINDOWS shell32-directory ;
 161
 162 : programs ( -- str )
 163     CSIDL_PROGRAMS shell32-directory ;
 164
 165 : program-files ( -- str )
 166     CSIDL_PROGRAM_FILES shell32-directory ;
 167
 168 : program-files-x86 ( -- str )
 169     CSIDL_PROGRAM_FILESX86 shell32-directory ;
 170
 171 : program-files-common ( -- str )
 172     CSIDL_PROGRAM_FILES_COMMON shell32-directory ;
 173
 174 : program-files-common-x86 ( -- str )
 175     CSIDL_PROGRAM_FILES_COMMONX86 shell32-directory ;
 176
 177
 178 CONSTANT: SHCONTF_FOLDERS 32
 179 CONSTANT: SHCONTF_NONFOLDERS 64
 180 CONSTANT: SHCONTF_INCLUDEHIDDEN 128
 181 CONSTANT: SHCONTF_INIT_ON_FIRST_NEXT 256
 182 CONSTANT: SHCONTF_NETPRINTERSRCH 512
 183 CONSTANT: SHCONTF_SHAREABLE 1024
 184 CONSTANT: SHCONTF_STORAGE 2048
 185
 186 TYPEDEF: DWORD SHCONTF
 187
 188 CONSTANT: SHGDN_NORMAL 0
 189 CONSTANT: SHGDN_INFOLDER 1
 190 CONSTANT: SHGDN_FOREDITING 0x1000
 191 CONSTANT: SHGDN_INCLUDE_NONFILESYS 0x2000
 192 CONSTANT: SHGDN_FORADDRESSBAR 0x4000
 193 CONSTANT: SHGDN_FORPARSING 0x8000
 194
 195 TYPEDEF: DWORD SHGDNF
 196
 197 ALIAS: SFGAO_CANCOPY           DROPEFFECT_COPY
 198 ALIAS: SFGAO_CANMOVE           DROPEFFECT_MOVE
 199 ALIAS: SFGAO_CANLINK           DROPEFFECT_LINK
 200 CONSTANT: SFGAO_CANRENAME         0x00000010
 201 CONSTANT: SFGAO_CANDELETE         0x00000020
 202 CONSTANT: SFGAO_HASPROPSHEET      0x00000040
 203 CONSTANT: SFGAO_DROPTARGET        0x00000100
 204 CONSTANT: SFGAO_CAPABILITYMASK    0x00000177
 205 CONSTANT: SFGAO_LINK              0x00010000
 206 CONSTANT: SFGAO_SHARE             0x00020000
 207 CONSTANT: SFGAO_READONLY          0x00040000
 208 CONSTANT: SFGAO_GHOSTED           0x00080000
 209 CONSTANT: SFGAO_HIDDEN            0x00080000
 210 CONSTANT: SFGAO_DISPLAYATTRMASK   0x000F0000
 211 CONSTANT: SFGAO_FILESYSANCESTOR   0x10000000
 212 CONSTANT: SFGAO_FOLDER            0x20000000
 213 CONSTANT: SFGAO_FILESYSTEM        0x40000000
 214 CONSTANT: SFGAO_HASSUBFOLDER      0x80000000
 215 CONSTANT: SFGAO_CONTENTSMASK      0x80000000
 216 CONSTANT: SFGAO_VALIDATE          0x01000000
 217 CONSTANT: SFGAO_REMOVABLE         0x02000000
 218 CONSTANT: SFGAO_COMPRESSED        0x04000000
 219 CONSTANT: SFGAO_BROWSABLE         0x08000000
 220 CONSTANT: SFGAO_NONENUMERATED     0x00100000
 221 CONSTANT: SFGAO_NEWCONTENT        0x00200000
 222
 223 TYPEDEF: ULONG SFGAOF
 224
 225 STRUCT: DROPFILES
 226     { pFiles DWORD }
 227     { pt POINT }
 228     { fNC BOOL }
 229     { fWide BOOL } ;
 230 TYPEDEF: DROPFILES* LPDROPFILES
 231 TYPEDEF: DROPFILES* LPCDROPFILES
 232
 233 STRUCT: SHITEMID
 234     { cb USHORT }
 235     { abID BYTE[1] } ;
 236 TYPEDEF: SHITEMID* LPSHITEMID
 237 TYPEDEF: SHITEMID* LPCSHITEMID
 238
 239 STRUCT: ITEMIDLIST
 240     { mkid SHITEMID } ;
 241 TYPEDEF: ITEMIDLIST* LPITEMIDLIST
 242 TYPEDEF: ITEMIDLIST* LPCITEMIDLIST
 243 TYPEDEF: ITEMIDLIST ITEMID_CHILD
 244 TYPEDEF: ITEMID_CHILD* PITEMID_CHILD
 245 TYPEDEF: ITEMID_CHILD* PCUITEMID_CHILD
 246
 247 CONSTANT: STRRET_WSTR 0
 248 CONSTANT: STRRET_OFFSET 1
 249 CONSTANT: STRRET_CSTR 2
 250
 251 UNION-STRUCT: STRRET-union
 252     { pOleStr LPWSTR }
 253     { uOffset UINT }
 254     { cStr char[260] } ;
 255 STRUCT: STRRET
 256     { uType int }
 257     { value STRRET-union } ;
 258
 259 COM-INTERFACE: IEnumIDList IUnknown {000214F2-0000-0000-C000-000000000046}
 260     HRESULT Next ( ULONG celt, LPITEMIDLIST* rgelt, ULONG* pceltFetched )
 261     HRESULT Skip ( ULONG celt )
 262     HRESULT Reset ( )
 263     HRESULT Clone ( IEnumIDList** ppenum ) ;
 264
 265 COM-INTERFACE: IShellFolder IUnknown {000214E6-0000-0000-C000-000000000046}
 266     HRESULT ParseDisplayName ( HWND hwndOwner,
 267                                void* pbcReserved,
 268                                LPOLESTR lpszDisplayName,
 269                                ULONG* pchEaten,
 270                                LPITEMIDLIST* ppidl,
 271                                ULONG* pdwAttributes )
 272     HRESULT EnumObjects ( HWND hwndOwner,
 273                           SHCONTF grfFlags,
 274                           IEnumIDList** ppenumIDList )
 275     HRESULT BindToObject ( LPCITEMIDLIST pidl,
 276                            void* pbcReserved,
 277                            REFGUID riid,
 278                            void** ppvOut )
 279     HRESULT BindToStorage ( LPCITEMIDLIST pidl,
 280                             void* pbcReserved,
 281                             REFGUID riid,
 282                             void** ppvObj )
 283     HRESULT CompareIDs ( LPARAM lParam,
 284                          LPCITEMIDLIST pidl1,
 285                          LPCITEMIDLIST pidl2 )
 286     HRESULT CreateViewObject ( HWND hwndOwner,
 287                                REFGUID riid,
 288                                void** ppvOut )
 289     HRESULT GetAttributesOf ( UINT cidl,
 290                               LPCITEMIDLIST* apidl,
 291                               SFGAOF* rgfInOut )
 292     HRESULT GetUIObjectOf ( HWND hwndOwner,
 293                             UINT cidl,
 294                             LPCITEMIDLIST* apidl,
 295                             REFGUID riid,
 296                             UINT* prgfInOut,
 297                             void** ppvOut )
 298     HRESULT GetDisplayNameOf ( LPCITEMIDLIST pidl,
 299                                SHGDNF uFlags,
 300                                STRRET* lpName )
 301     HRESULT SetNameOf ( HWND hwnd,
 302                         LPCITEMIDLIST pidl,
 303                         LPCOLESTR lpszName,
 304                         SHGDNF uFlags,
 305                         LPITEMIDLIST* ppidlOut ) ;
 306
 307 FUNCTION: HRESULT SHGetDesktopFolder ( IShellFolder** ppshf )
 308
 309 FUNCTION: void DragAcceptFiles ( HWND hWnd, BOOL fAccept )
 310
 311 FUNCTION: UINT DragQueryFileW ( HDROP hDrop,
 312                                 UINT iFile,
 313                                 LPWSTR lpszFile,
 314                                 UINT cch )
 315 ALIAS: DragQueryFile DragQueryFileW
 316
 317 FUNCTION: BOOL DragQueryPoint ( HDROP hDrop, POINT* lppt )
 318
 319 FUNCTION: void DragFinish ( HDROP hDrop )
 320
 321 FUNCTION: BOOL IsUserAnAdmin ( )
 322
 323
 324 CONSTANT: NIM_ADD 0
 325 CONSTANT: NIM_MODIFY 1
 326 CONSTANT: NIM_DELETE 2
 327 CONSTANT: NIM_SETFOCUS 3
 328 CONSTANT: NIM_SETVERSION 4
 329
 330 CONSTANT: NIF_MESSAGE 0x1
 331 CONSTANT: NIF_ICON 0x2
 332 CONSTANT: NIF_TIP 0x4
 333 CONSTANT: NIF_STATE 0x8
 334 CONSTANT: NIF_INFO 0x10
 335 CONSTANT: NIF_GUID 0x20
 336 CONSTANT: NIF_REALTIME 0x40
 337 CONSTANT: NIF_SHOWTIP 0x80
 338
 339 CONSTANT: NIIF_NONE 0x0
 340 CONSTANT: NIIF_INFO 0x1
 341 CONSTANT: NIIF_WARNING 0x2
 342 CONSTANT: NIIF_ERROR 0x3
 343 CONSTANT: NIIF_USER 0x4
 344 CONSTANT: NIIF_ICON_MASK 0xF
 345 CONSTANT: NIIF_NOSOUND 0x10
 346
 347 CONSTANT: NIS_HIDDEN 1
 348 CONSTANT: NIS_SHAREDICON 2
 349
 350 CONSTANT: NOTIFYICON_VERSION 3
 351 CONSTANT: NOTIFYICON_VERSION_4 4
 352
 353 ! >= 0x0500
 354 CONSTANT: NIN_SELECT $[ WM_USER 0 + ]
 355 CONSTANT: NIN_KEYSELECT $[ WM_USER 1 + ]
 356 ! >= 0x0501
 357 CONSTANT: NIN_BALLOONSHOW $[ WM_USER 2 + ]
 358 CONSTANT: NIN_BALLOONHIDE $[ WM_USER 3 + ]
 359 CONSTANT: NIN_BALLOONTIMEOUT $[ WM_USER 4 + ]
 360 CONSTANT: NIN_BALLOONUSERCLICK $[ WM_USER 5 + ]
 361
 362 STRUCT: NOTIFYICONDATA
 363     { cbSize DWORD }
 364     { hWnd HWND }
 365     { uID UINT }
 366     { uFlags UINT }
 367     { uCallbackMessage UINT }
 368     { hIcon HICON }
 369     { szTip TCHAR[64] }
 370     { dwState DWORD }
 371     { dwStateMask DWORD }
 372     { szInfo TCHAR[256] }
 373     { uTimeout UINT } ! { uVersion UINT } ! c-union here1
 374     { szInfoTitle TCHAR[64] }
 375     { dwInfoFlags DWORD }
 376     { guidItem GUID }
 377     { hBalloonIcon HICON } ;
 378
 379 TYPEDEF: NOTIFYICONDATA* PNOTIFYICONDATA
 380
 381 FUNCTION: BOOL Shell_NotifyIcon ( DWORD dwMessage, PNOTIFYICONDATA lpdata )