! Copyright (C) 2006, 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.c-types alien.strings alien.syntax
-combinators io.encodings.utf16n io.files io.pathnames kernel
-windows windows.com windows.com.syntax windows.user32
-windows.ole32 ;
+USING: alien alien.c-types alien.data alien.strings alien.syntax
+classes.struct io.backend kernel windows windows.com
+windows.com.syntax windows.kernel32 windows.ole32 windows.types ;
IN: windows.shell32
-CONSTANT: CSIDL_DESKTOP HEX: 00
-CONSTANT: CSIDL_INTERNET HEX: 01
-CONSTANT: CSIDL_PROGRAMS HEX: 02
-CONSTANT: CSIDL_CONTROLS HEX: 03
-CONSTANT: CSIDL_PRINTERS HEX: 04
-CONSTANT: CSIDL_PERSONAL HEX: 05
-CONSTANT: CSIDL_FAVORITES HEX: 06
-CONSTANT: CSIDL_STARTUP HEX: 07
-CONSTANT: CSIDL_RECENT HEX: 08
-CONSTANT: CSIDL_SENDTO HEX: 09
-CONSTANT: CSIDL_BITBUCKET HEX: 0a
-CONSTANT: CSIDL_STARTMENU HEX: 0b
-CONSTANT: CSIDL_MYDOCUMENTS HEX: 0c
-CONSTANT: CSIDL_MYMUSIC HEX: 0d
-CONSTANT: CSIDL_MYVIDEO HEX: 0e
-CONSTANT: CSIDL_DESKTOPDIRECTORY HEX: 10
-CONSTANT: CSIDL_DRIVES HEX: 11
-CONSTANT: CSIDL_NETWORK HEX: 12
-CONSTANT: CSIDL_NETHOOD HEX: 13
-CONSTANT: CSIDL_FONTS HEX: 14
-CONSTANT: CSIDL_TEMPLATES HEX: 15
-CONSTANT: CSIDL_COMMON_STARTMENU HEX: 16
-CONSTANT: CSIDL_COMMON_PROGRAMS HEX: 17
-CONSTANT: CSIDL_COMMON_STARTUP HEX: 18
-CONSTANT: CSIDL_COMMON_DESKTOPDIRECTORY HEX: 19
-CONSTANT: CSIDL_APPDATA HEX: 1a
-CONSTANT: CSIDL_PRINTHOOD HEX: 1b
-CONSTANT: CSIDL_LOCAL_APPDATA HEX: 1c
-CONSTANT: CSIDL_ALTSTARTUP HEX: 1d
-CONSTANT: CSIDL_COMMON_ALTSTARTUP HEX: 1e
-CONSTANT: CSIDL_COMMON_FAVORITES HEX: 1f
-CONSTANT: CSIDL_INTERNET_CACHE HEX: 20
-CONSTANT: CSIDL_COOKIES HEX: 21
-CONSTANT: CSIDL_HISTORY HEX: 22
-CONSTANT: CSIDL_COMMON_APPDATA HEX: 23
-CONSTANT: CSIDL_WINDOWS HEX: 24
-CONSTANT: CSIDL_SYSTEM HEX: 25
-CONSTANT: CSIDL_PROGRAM_FILES HEX: 26
-CONSTANT: CSIDL_MYPICTURES HEX: 27
-CONSTANT: CSIDL_PROFILE HEX: 28
-CONSTANT: CSIDL_SYSTEMX86 HEX: 29
-CONSTANT: CSIDL_PROGRAM_FILESX86 HEX: 2a
-CONSTANT: CSIDL_PROGRAM_FILES_COMMON HEX: 2b
-CONSTANT: CSIDL_PROGRAM_FILES_COMMONX86 HEX: 2c
-CONSTANT: CSIDL_COMMON_TEMPLATES HEX: 2d
-CONSTANT: CSIDL_COMMON_DOCUMENTS HEX: 2e
-CONSTANT: CSIDL_COMMON_ADMINTOOLS HEX: 2f
-CONSTANT: CSIDL_ADMINTOOLS HEX: 30
-CONSTANT: CSIDL_CONNECTIONS HEX: 31
-CONSTANT: CSIDL_COMMON_MUSIC HEX: 35
-CONSTANT: CSIDL_COMMON_PICTURES HEX: 36
-CONSTANT: CSIDL_COMMON_VIDEO HEX: 37
-CONSTANT: CSIDL_RESOURCES HEX: 38
-CONSTANT: CSIDL_RESOURCES_LOCALIZED HEX: 39
-CONSTANT: CSIDL_COMMON_OEM_LINKS HEX: 3a
-CONSTANT: CSIDL_CDBURN_AREA HEX: 3b
-CONSTANT: CSIDL_COMPUTERSNEARME HEX: 3d
-CONSTANT: CSIDL_PROFILES HEX: 3e
-CONSTANT: CSIDL_FOLDER_MASK HEX: ff
-CONSTANT: CSIDL_FLAG_PER_USER_INIT HEX: 800
-CONSTANT: CSIDL_FLAG_NO_ALIAS HEX: 1000
-CONSTANT: CSIDL_FLAG_DONT_VERIFY HEX: 4000
-CONSTANT: CSIDL_FLAG_CREATE HEX: 8000
-CONSTANT: CSIDL_FLAG_MASK HEX: ff00
-
-
-CONSTANT: ERROR_FILE_NOT_FOUND 2
+CONSTANT: CSIDL_DESKTOP 0x00
+CONSTANT: CSIDL_INTERNET 0x01
+CONSTANT: CSIDL_PROGRAMS 0x02
+CONSTANT: CSIDL_CONTROLS 0x03
+CONSTANT: CSIDL_PRINTERS 0x04
+CONSTANT: CSIDL_PERSONAL 0x05
+CONSTANT: CSIDL_FAVORITES 0x06
+CONSTANT: CSIDL_STARTUP 0x07
+CONSTANT: CSIDL_RECENT 0x08
+CONSTANT: CSIDL_SENDTO 0x09
+CONSTANT: CSIDL_BITBUCKET 0x0a
+CONSTANT: CSIDL_STARTMENU 0x0b
+CONSTANT: CSIDL_MYDOCUMENTS 0x0c
+CONSTANT: CSIDL_MYMUSIC 0x0d
+CONSTANT: CSIDL_MYVIDEO 0x0e
+CONSTANT: CSIDL_DESKTOPDIRECTORY 0x10
+CONSTANT: CSIDL_DRIVES 0x11
+CONSTANT: CSIDL_NETWORK 0x12
+CONSTANT: CSIDL_NETHOOD 0x13
+CONSTANT: CSIDL_FONTS 0x14
+CONSTANT: CSIDL_TEMPLATES 0x15
+CONSTANT: CSIDL_COMMON_STARTMENU 0x16
+CONSTANT: CSIDL_COMMON_PROGRAMS 0x17
+CONSTANT: CSIDL_COMMON_STARTUP 0x18
+CONSTANT: CSIDL_COMMON_DESKTOPDIRECTORY 0x19
+CONSTANT: CSIDL_APPDATA 0x1a
+CONSTANT: CSIDL_PRINTHOOD 0x1b
+CONSTANT: CSIDL_LOCAL_APPDATA 0x1c
+CONSTANT: CSIDL_ALTSTARTUP 0x1d
+CONSTANT: CSIDL_COMMON_ALTSTARTUP 0x1e
+CONSTANT: CSIDL_COMMON_FAVORITES 0x1f
+CONSTANT: CSIDL_INTERNET_CACHE 0x20
+CONSTANT: CSIDL_COOKIES 0x21
+CONSTANT: CSIDL_HISTORY 0x22
+CONSTANT: CSIDL_COMMON_APPDATA 0x23
+CONSTANT: CSIDL_WINDOWS 0x24
+CONSTANT: CSIDL_SYSTEM 0x25
+CONSTANT: CSIDL_PROGRAM_FILES 0x26
+CONSTANT: CSIDL_MYPICTURES 0x27
+CONSTANT: CSIDL_PROFILE 0x28
+CONSTANT: CSIDL_SYSTEMX86 0x29
+CONSTANT: CSIDL_PROGRAM_FILESX86 0x2a
+CONSTANT: CSIDL_PROGRAM_FILES_COMMON 0x2b
+CONSTANT: CSIDL_PROGRAM_FILES_COMMONX86 0x2c
+CONSTANT: CSIDL_COMMON_TEMPLATES 0x2d
+CONSTANT: CSIDL_COMMON_DOCUMENTS 0x2e
+CONSTANT: CSIDL_COMMON_ADMINTOOLS 0x2f
+CONSTANT: CSIDL_ADMINTOOLS 0x30
+CONSTANT: CSIDL_CONNECTIONS 0x31
+CONSTANT: CSIDL_COMMON_MUSIC 0x35
+CONSTANT: CSIDL_COMMON_PICTURES 0x36
+CONSTANT: CSIDL_COMMON_VIDEO 0x37
+CONSTANT: CSIDL_RESOURCES 0x38
+CONSTANT: CSIDL_RESOURCES_LOCALIZED 0x39
+CONSTANT: CSIDL_COMMON_OEM_LINKS 0x3a
+CONSTANT: CSIDL_CDBURN_AREA 0x3b
+CONSTANT: CSIDL_COMPUTERSNEARME 0x3d
+CONSTANT: CSIDL_PROFILES 0x3e
+CONSTANT: CSIDL_FOLDER_MASK 0xff
+CONSTANT: CSIDL_FLAG_PER_USER_INIT 0x800
+CONSTANT: CSIDL_FLAG_NO_ALIAS 0x1000
+CONSTANT: CSIDL_FLAG_DONT_VERIFY 0x4000
+CONSTANT: CSIDL_FLAG_CREATE 0x8000
+CONSTANT: CSIDL_FLAG_MASK 0xff00
CONSTANT: SHGFP_TYPE_CURRENT 0
CONSTANT: SHGFP_TYPE_DEFAULT 1
LIBRARY: shell32
-FUNCTION: HRESULT SHGetFolderPathW ( HWND hwndOwner, int nFolder, HANDLE hToken, DWORD dwReserved, LPTSTR pszPath ) ;
+FUNCTION: HRESULT SHGetFolderPathW ( HWND hwndOwner,
+ int nFolder,
+ HANDLE hToken,
+ DWORD dwReserved,
+ LPTSTR pszPath )
ALIAS: SHGetFolderPath SHGetFolderPathW
-FUNCTION: HINSTANCE ShellExecuteW ( HWND hwnd, LPCTSTR lpOperation, LPCTSTR lpFile, LPCTSTR lpParameters, LPCTSTR lpDirectory, INT nShowCmd ) ;
+FUNCTION: HINSTANCE ShellExecuteW ( HWND hwnd,
+ LPCTSTR lpOperation,
+ LPCTSTR lpFile,
+ LPCTSTR lpParameters,
+ LPCTSTR lpDirectory, INT nShowCmd )
ALIAS: ShellExecute ShellExecuteW
-: open-in-explorer ( dir -- )
- [ f "open" ] dip (normalize-path) f f SW_SHOWNORMAL ShellExecute drop ;
+CONSTANT: SHGFI_ICON 0x000000100
+CONSTANT: SHGFI_DISPLAYNAME 0x000000200
+CONSTANT: SHGFI_TYPENAME 0x000000400
+CONSTANT: SHGFI_ATTRIBUTES 0x000000800
+CONSTANT: SHGFI_ICONLOCATION 0x000001000
+CONSTANT: SHGFI_EXETYPE 0x000002000
+CONSTANT: SHGFI_SYSICONINDEX 0x000004000
+CONSTANT: SHGFI_LINKOVERLAY 0x000008000
+CONSTANT: SHGFI_SELECTED 0x000010000
+CONSTANT: SHGFI_ATTR_SPECIFIED 0x000020000
+CONSTANT: SHGFI_LARGEICON 0x000000000
+CONSTANT: SHGFI_SMALLICON 0x000000001
+CONSTANT: SHGFI_OPENICON 0x000000002
+CONSTANT: SHGFI_SHELLICONSIZE 0x000000004
+CONSTANT: SHGFI_PIDL 0x000000008
+CONSTANT: SHGFI_USEFILEATTRIBUTES 0x000000010
+CONSTANT: SHGFI_ADDOVERLAYS 0x000000020
+CONSTANT: SHGFI_OVERLAYINDEX 0x000000040
+
+STRUCT: SHFILEINFO
+ { hIcon HICON }
+ { iIcon int }
+ { dwAttributes DWORD }
+ { szDisplayName TCHAR[MAX_PATH] }
+ { szTypeName TCHAR[80] } ;
+
+FUNCTION: DWORD_PTR SHGetFileInfoW ( LPCTSTR pszPath,
+ DWORD dwFileAttributes,
+ SHFILEINFO *psfi,
+ UINT cbFileInfo,
+ UINT uFlags )
+
+: shell32-file-info ( path -- err struct )
+ normalize-path
+ 0
+ SHFILEINFO <struct>
+ [ dup byte-length SHGFI_EXETYPE SHGetFileInfoW ] keep ;
+
+SINGLETONS:
+ +dos-executable+
+ +win32-console-executable+
+ +win32-vxd-executable+
+ +win32-os2-executable+
+ +win32-nt-executable+ ;
+
+MIXIN: windows-executable
+INSTANCE: +dos-executable+ windows-executable ! mz
+INSTANCE: +win32-console-executable+ windows-executable
+INSTANCE: +win32-vxd-executable+ windows-executable ! le
+INSTANCE: +win32-os2-executable+ windows-executable ! ne
+INSTANCE: +win32-nt-executable+ windows-executable ! pe
: shell32-directory ( n -- str )
f swap f SHGFP_TYPE_DEFAULT
- MAX_UNICODE_PATH "ushort" <c-array>
- [ SHGetFolderPath drop ] keep utf16n alien>string ;
+ MAX_UNICODE_PATH ushort <c-array>
+ [ SHGetFolderPath drop ] keep alien>native-string ;
: desktop ( -- str )
CSIDL_DESKTOPDIRECTORY shell32-directory ;
: program-files-common-x86 ( -- str )
CSIDL_PROGRAM_FILES_COMMONX86 shell32-directory ;
+
CONSTANT: SHCONTF_FOLDERS 32
CONSTANT: SHCONTF_NONFOLDERS 64
CONSTANT: SHCONTF_INCLUDEHIDDEN 128
CONSTANT: SHGDN_NORMAL 0
CONSTANT: SHGDN_INFOLDER 1
-CONSTANT: SHGDN_FOREDITING HEX: 1000
-CONSTANT: SHGDN_INCLUDE_NONFILESYS HEX: 2000
-CONSTANT: SHGDN_FORADDRESSBAR HEX: 4000
-CONSTANT: SHGDN_FORPARSING HEX: 8000
+CONSTANT: SHGDN_FOREDITING 0x1000
+CONSTANT: SHGDN_INCLUDE_NONFILESYS 0x2000
+CONSTANT: SHGDN_FORADDRESSBAR 0x4000
+CONSTANT: SHGDN_FORPARSING 0x8000
TYPEDEF: DWORD SHGDNF
ALIAS: SFGAO_CANCOPY DROPEFFECT_COPY
ALIAS: SFGAO_CANMOVE DROPEFFECT_MOVE
ALIAS: SFGAO_CANLINK DROPEFFECT_LINK
-CONSTANT: SFGAO_CANRENAME HEX: 00000010
-CONSTANT: SFGAO_CANDELETE HEX: 00000020
-CONSTANT: SFGAO_HASPROPSHEET HEX: 00000040
-CONSTANT: SFGAO_DROPTARGET HEX: 00000100
-CONSTANT: SFGAO_CAPABILITYMASK HEX: 00000177
-CONSTANT: SFGAO_LINK HEX: 00010000
-CONSTANT: SFGAO_SHARE HEX: 00020000
-CONSTANT: SFGAO_READONLY HEX: 00040000
-CONSTANT: SFGAO_GHOSTED HEX: 00080000
-CONSTANT: SFGAO_HIDDEN HEX: 00080000
-CONSTANT: SFGAO_DISPLAYATTRMASK HEX: 000F0000
-CONSTANT: SFGAO_FILESYSANCESTOR HEX: 10000000
-CONSTANT: SFGAO_FOLDER HEX: 20000000
-CONSTANT: SFGAO_FILESYSTEM HEX: 40000000
-CONSTANT: SFGAO_HASSUBFOLDER HEX: 80000000
-CONSTANT: SFGAO_CONTENTSMASK HEX: 80000000
-CONSTANT: SFGAO_VALIDATE HEX: 01000000
-CONSTANT: SFGAO_REMOVABLE HEX: 02000000
-CONSTANT: SFGAO_COMPRESSED HEX: 04000000
-CONSTANT: SFGAO_BROWSABLE HEX: 08000000
-CONSTANT: SFGAO_NONENUMERATED HEX: 00100000
-CONSTANT: SFGAO_NEWCONTENT HEX: 00200000
+CONSTANT: SFGAO_CANRENAME 0x00000010
+CONSTANT: SFGAO_CANDELETE 0x00000020
+CONSTANT: SFGAO_HASPROPSHEET 0x00000040
+CONSTANT: SFGAO_DROPTARGET 0x00000100
+CONSTANT: SFGAO_CAPABILITYMASK 0x00000177
+CONSTANT: SFGAO_LINK 0x00010000
+CONSTANT: SFGAO_SHARE 0x00020000
+CONSTANT: SFGAO_READONLY 0x00040000
+CONSTANT: SFGAO_GHOSTED 0x00080000
+CONSTANT: SFGAO_HIDDEN 0x00080000
+CONSTANT: SFGAO_DISPLAYATTRMASK 0x000F0000
+CONSTANT: SFGAO_FILESYSANCESTOR 0x10000000
+CONSTANT: SFGAO_FOLDER 0x20000000
+CONSTANT: SFGAO_FILESYSTEM 0x40000000
+CONSTANT: SFGAO_HASSUBFOLDER 0x80000000
+CONSTANT: SFGAO_CONTENTSMASK 0x80000000
+CONSTANT: SFGAO_VALIDATE 0x01000000
+CONSTANT: SFGAO_REMOVABLE 0x02000000
+CONSTANT: SFGAO_COMPRESSED 0x04000000
+CONSTANT: SFGAO_BROWSABLE 0x08000000
+CONSTANT: SFGAO_NONENUMERATED 0x00100000
+CONSTANT: SFGAO_NEWCONTENT 0x00200000
TYPEDEF: ULONG SFGAOF
-C-STRUCT: DROPFILES
- { "DWORD" "pFiles" }
- { "POINT" "pt" }
- { "BOOL" "fNC" }
- { "BOOL" "fWide" } ;
+STRUCT: DROPFILES
+ { pFiles DWORD }
+ { pt POINT }
+ { fNC BOOL }
+ { fWide BOOL } ;
TYPEDEF: DROPFILES* LPDROPFILES
TYPEDEF: DROPFILES* LPCDROPFILES
-TYPEDEF: HANDLE HDROP
-C-STRUCT: SHITEMID
- { "USHORT" "cb" }
- { "BYTE[1]" "abID" } ;
+STRUCT: SHITEMID
+ { cb USHORT }
+ { abID BYTE[1] } ;
TYPEDEF: SHITEMID* LPSHITEMID
TYPEDEF: SHITEMID* LPCSHITEMID
-C-STRUCT: ITEMIDLIST
- { "SHITEMID" "mkid" } ;
+STRUCT: ITEMIDLIST
+ { mkid SHITEMID } ;
TYPEDEF: ITEMIDLIST* LPITEMIDLIST
TYPEDEF: ITEMIDLIST* LPCITEMIDLIST
TYPEDEF: ITEMIDLIST ITEMID_CHILD
TYPEDEF: ITEMID_CHILD* PITEMID_CHILD
TYPEDEF: ITEMID_CHILD* PCUITEMID_CHILD
-: STRRET_WSTR 0 ; inline
-: STRRET_OFFSET 1 ; inline
-: STRRET_CSTR 2 ; inline
+CONSTANT: STRRET_WSTR 0
+CONSTANT: STRRET_OFFSET 1
+CONSTANT: STRRET_CSTR 2
-C-UNION: STRRET-union "LPWSTR" "LPSTR" "UINT" "char[260]" ;
-C-STRUCT: STRRET
- { "int" "uType" }
- { "STRRET-union" "union" } ;
+UNION-STRUCT: STRRET-union
+ { pOleStr LPWSTR }
+ { uOffset UINT }
+ { cStr char[260] } ;
+STRUCT: STRRET
+ { uType int }
+ { value STRRET-union } ;
COM-INTERFACE: IEnumIDList IUnknown {000214F2-0000-0000-C000-000000000046}
HRESULT Next ( ULONG celt, LPITEMIDLIST* rgelt, ULONG* pceltFetched )
HRESULT Clone ( IEnumIDList** ppenum ) ;
COM-INTERFACE: IShellFolder IUnknown {000214E6-0000-0000-C000-000000000046}
- HRESULT ParseDisplayName ( HWND hwndOwner, void* pbcReserved, LPOLESTR lpszDisplayName, ULONG* pchEaten, LPITEMIDLIST* ppidl, ULONG* pdwAttributes )
- HRESULT EnumObjects ( HWND hwndOwner, SHCONTF grfFlags, IEnumIDList** ppenumIDList )
- HRESULT BindToObject ( LPCITEMIDLIST pidl, void* pbcReserved, REFGUID riid, void** ppvOut )
- HRESULT BindToStorage ( LPCITEMIDLIST pidl, void* pbcReserved, REFGUID riid, void** ppvObj )
- HRESULT CompareIDs ( LPARAM lParam, LPCITEMIDLIST pidl1, LPCITEMIDLIST pidl2 )
- HRESULT CreateViewObject ( HWND hwndOwner, REFGUID riid, void** ppvOut )
- HRESULT GetAttributesOf ( UINT cidl, LPCITEMIDLIST* apidl, SFGAOF* rgfInOut )
- HRESULT GetUIObjectOf ( HWND hwndOwner, UINT cidl, LPCITEMIDLIST* apidl, REFGUID riid, UINT* prgfInOut, void** ppvOut )
- HRESULT GetDisplayNameOf ( LPCITEMIDLIST pidl, SHGDNF uFlags, STRRET* lpName )
- HRESULT SetNameOf ( HWND hwnd, LPCITEMIDLIST pidl, LPCOLESTR lpszName, SHGDNF uFlags, LPITEMIDLIST* ppidlOut ) ;
-
-FUNCTION: HRESULT SHGetDesktopFolder ( IShellFolder** ppshf ) ;
-
-FUNCTION: UINT DragQueryFileW ( HDROP hDrop, UINT iFile, LPWSTR lpszFile, UINT cch ) ;
+ HRESULT ParseDisplayName ( HWND hwndOwner,
+ void* pbcReserved,
+ LPOLESTR lpszDisplayName,
+ ULONG* pchEaten,
+ LPITEMIDLIST* ppidl,
+ ULONG* pdwAttributes )
+ HRESULT EnumObjects ( HWND hwndOwner,
+ SHCONTF grfFlags,
+ IEnumIDList** ppenumIDList )
+ HRESULT BindToObject ( LPCITEMIDLIST pidl,
+ void* pbcReserved,
+ REFGUID riid,
+ void** ppvOut )
+ HRESULT BindToStorage ( LPCITEMIDLIST pidl,
+ void* pbcReserved,
+ REFGUID riid,
+ void** ppvObj )
+ HRESULT CompareIDs ( LPARAM lParam,
+ LPCITEMIDLIST pidl1,
+ LPCITEMIDLIST pidl2 )
+ HRESULT CreateViewObject ( HWND hwndOwner,
+ REFGUID riid,
+ void** ppvOut )
+ HRESULT GetAttributesOf ( UINT cidl,
+ LPCITEMIDLIST* apidl,
+ SFGAOF* rgfInOut )
+ HRESULT GetUIObjectOf ( HWND hwndOwner,
+ UINT cidl,
+ LPCITEMIDLIST* apidl,
+ REFGUID riid,
+ UINT* prgfInOut,
+ void** ppvOut )
+ HRESULT GetDisplayNameOf ( LPCITEMIDLIST pidl,
+ SHGDNF uFlags,
+ STRRET* lpName )
+ HRESULT SetNameOf ( HWND hwnd,
+ LPCITEMIDLIST pidl,
+ LPCOLESTR lpszName,
+ SHGDNF uFlags,
+ LPITEMIDLIST* ppidlOut ) ;
+
+FUNCTION: HRESULT SHGetDesktopFolder ( IShellFolder** ppshf )
+
+FUNCTION: void DragAcceptFiles ( HWND hWnd, BOOL fAccept )
+
+FUNCTION: UINT DragQueryFileW ( HDROP hDrop,
+ UINT iFile,
+ LPWSTR lpszFile,
+ UINT cch )
ALIAS: DragQueryFile DragQueryFileW
+
+FUNCTION: BOOL DragQueryPoint ( HDROP hDrop, POINT* lppt )
+
+FUNCTION: void DragFinish ( HDROP hDrop )
+
+FUNCTION: BOOL IsUserAnAdmin ( )