' api_shell.sbp


#ifndef _INC_SHELL
#define _INC_SHELL


'-----------
' Shell API

Declare Function DoEnvironmentSubst Lib "shell32" Alias "DoEnvironmentSubstA" (
	pszString As PSTR,
	cchString As DWord
) As DWord

Declare Sub DragAcceptFiles Lib "shell32" (hWnd As HWND, bAccept As BOOL)
Declare Sub DragFinish Lib "shell32" (hDrop As HDROP)
Declare Function DragQueryFile Lib "shell32" Alias "DragQueryFileA" (hDrop As HDROP, iFile As Long, lpszFile As PSTR, cch As DWord) As DWord
Declare Function DragQueryPoint Lib "shell32" (hDrop As HDROP, ByRef lpPoint As POINTAPI) As Long
Declare Function ExtractAssociatedIcon Lib "shell32" Alias "ExtractAssociatedIconA" (hInst As HINSTANCE, lpIconPath As PSTR, lpiIcon As *Word) As HICON
Declare Function ExtractIcon Lib "shell32" Alias "ExtractIconA" (hInst As HINSTANCE, lpszExeFileName As PCSTR, nIconIndex As Long) As HICON
Declare Function ExtractIconEx Lib "shell32" Alias "ExtractIconExA" (lpszFile As PCSTR, nIconIndex As Long, phiconLarge As *DWord, phiconSmall As *DWord, nIcons As Long) As HICON

Declare Function FindExecutable Lib "shell32" Alias "FindExecutableA" (
	pFile As PCSTR,
	pDirectory As PCSTR,
	pResult As PCSTR
) As Long

Declare Function GUIDFromString Lib "shell32" Alias "GUIDFromStringA" (
	ByVal psz As PCSTR,
	ByRef guid As GUID
) As BOOL

' intshcut.h
Declare Function InetIsOffline Lib "url" (dwFlags As DWord) As BOOL
' intshcut.h
Declare Function MIMEAssociationDialog Lib "url" (
	hwndParent As HWND,
    dwInFlags As DWord,
    pcszFile As PCSTR,
    pcszMIMEContentType As PCSTR,
    pszAppBuf As PSTR,
    ucAppBufLen As DWord
) As HRESULT

Declare Sub SHAddToRecentDocs Lib "shell32" (ByVal uFlags As Long, ByVal pv As VoidPtr)

Const ABM_NEW = &h00000000
Const ABM_REMOVE = &h00000001
Const ABM_QUERYPOS = &h00000002
Const ABM_SETPOS = &h00000003
Const ABM_GETSTATE = &h00000004
Const ABM_GETTASKBARPOS = &h00000005
Const ABM_ACTIVATE = &h00000006
Const ABM_GETAUTOHIDEBAR = &h00000007
Const ABM_SETAUTOHIDEBAR = &h00000008
Const ABM_WINDOWPOSCHANGED = &h0000009
Const ABM_SETSTATE = &h0000000a

Const ABN_STATECHANGE = &h0000000
Const ABN_POSCHANGED = &h0000001
Const ABN_FULLSCREENAPP = &h0000002
Const ABN_WINDOWARRANGE = &h0000003

Const ABS_AUTOHIDE = &h0000001
Const ABS_ALWAYSONTOP = &h0000002

Const ABE_LEFT = 0
Const ABE_TOP = 1
Const ABE_RIGHT = 2
Const ABE_BOTTOM = 3

Type APPBARDATA
	cbSize As DWord
	hWnd As HWND
	uCallbackMessage As DWord
	uEdge As DWord
	rc As RECT
	lParam As LPARAM
End Type

Declare Function SHAppBarMessage Lib "shell32" (dwMessage As DWord, ByRef Data As APPBARDATA) As ULONG_PTR

Const BIF_RETURNONLYFSDIRS =   &H0001
Const BIF_DONTGOBELOWDOMAIN =  &H0002
Const BIF_STATUSTEXT =         &H0004
Const BIF_RETURNFSANCESTORS =  &H0008
Const BIF_EDITBOX =            &H0010
Const BIF_VALIDATE =           &H0020
Const BIF_BROWSEFORCOMPUTER =  &H1000
Const BIF_BROWSEFORPRINTER =   &H2000
Const BIF_BROWSEINCLUDEFILES = &H4000

Typedef BFFCALLBACK = *Function(hwnd As HWND, uMsg As DWord, lParam As LPARAM, lpData As LPARAM) As Long

Type BROWSEINFO
	hwndOwner      As HWND
	pidlRoot       As VoidPtr
	pszDisplayName As PSTR
	lpszTitle      As PCSTR
	ulFlags        As DWord
	lpfn           As BFFCALLBACK
	lParam         As LPARAM
	iImage         As Long
End Type

Type SHITEMID
	cb As Word
	abID[ELM(1)] As Byte
End Type

Type ITEMIDLIST
	mkid As SHITEMID
End Type
Declare Function SHBrowseForFolder Lib "shell32" Alias "SHBrowseForFolderA" (ByRef lpbi As BROWSEINFO) As *ITEMIDLIST

Const SHCNE_RENAMEITEM          = &h00000001
Const SHCNE_CREATE              = &h00000002
Const SHCNE_DELETE              = &h00000004
Const SHCNE_MKDIR               = &h00000008
Const SHCNE_RMDIR               = &h00000010
Const SHCNE_MEDIAINSERTED       = &h00000020
Const SHCNE_MEDIAREMOVED        = &h00000040
Const SHCNE_DRIVEREMOVED        = &h00000080
Const SHCNE_DRIVEADD            = &h00000100
Const SHCNE_NETSHARE            = &h00000200
Const SHCNE_NETUNSHARE          = &h00000400
Const SHCNE_ATTRIBUTES          = &h00000800
Const SHCNE_UPDATEDIR           = &h00001000
Const SHCNE_UPDATEITEM          = &h00002000
Const SHCNE_SERVERDISCONNECT    = &h00004000
Const SHCNE_UPDATEIMAGE         = &h00008000
Const SHCNE_DRIVEADDGUI         = &h00010000
Const SHCNE_RENAMEFOLDER        = &h00020000
Const SHCNE_FREESPACE           = &h00040000

#ifdef __UNDEFINED__ '#if _WIN32_IE >= 0x0400
Const SHCNE_EXTENDED_EVENT      = &h04000000
#endif

Const SHCNE_ASSOCCHANGED        = &h08000000

Const SHCNE_DISKEVENTS          = &h0002381F
Const SHCNE_GLOBALEVENTS        = &h0C0581E0
Const SHCNE_ALLEVENTS           = &h7FFFFFFF
Const SHCNE_INTERRUPT           = &h80000000

#ifdef __UNDEFINED__ '#if _WIN32_IE >= 0x0400
Const SHCNEE_ORDERCHANGED = 2
Const SHCNEE_MSI_CHANGE = 4
Const SHCNEE_MSI_UNINSTALL = 5
#endif

Const SHCNF_IDLIST      = &h0000
Const SHCNF_PATHA       = &h0001
Const SHCNF_PRINTERA    = &h0002
Const SHCNF_DWORD       = &h0003
Const SHCNF_PATHW       = &h0005
Const SHCNF_PRINTERW    = &h0006
Const SHCNF_TYPE        = &h00FF
Const SHCNF_FLUSH       = &h1000
Const SHCNF_FLUSHNOWAIT = &h2000

#ifdef UNICODE
Const SHCNF_PATH     = SHCNF_PATHW
Const SHCNF_PRINTER  = SHCNF_PRINTERW
#else
Const SHCNF_PATH     = SHCNF_PATHA
Const SHCNF_PRINTER  = SHCNF_PRINTERA
#endif

' ShlObj.h
Declare Sub SHChangeNotify Lib "shell32" (wEventId As Long, uFlags As DWord, dwItem1 As VoidPtr, dwItem2 As VoidPtr)

' ShellApi.h
Declare Function ShellAbout Lib "shell32" Alias "ShellAboutA" (hWnd As HWND, szApp As PCSTR, szOtherStuff As PCSTR, hIcon As HICON) As Long

Const SE_ERR_FNF =             2
Const SE_ERR_PNF =             3
Const SE_ERR_ACCESSDENIED =    5
Const SE_ERR_OOM =             8
Const SE_ERR_DLLNOTFOUND =     32
Const SE_ERR_SHARE =           26
Const SE_ERR_ASSOCINCOMPLETE = 27
Const SE_ERR_DDETIMEOUT =      28
Const SE_ERR_DDEFAIL =         29
Const SE_ERR_DDEBUSY =         30
Const SE_ERR_NOASSOC =         31
' ShellApi.h
Declare Function ShellExecute Lib "shell32" Alias "ShellExecuteA" (hWnd As HWND, lpOperation As PCSTR, lpFile As PCSTR, lpParameters As PCSTR, lpDirectory As PCSTR, nShowCmd As Long) As HINSTANCE

Const FO_MOVE =   &H0001
Const FO_COPY =   &H0002
Const FO_DELETE = &H0003
Const FO_RENAME = &H0004
Const FOF_MULTIDESTFILES =        &H0001
Const FOF_CONFIRMMOUSE =          &H0002
Const FOF_SILENT =                &H0004
Const FOF_RENAMEONCOLLISION =     &H0008
Const FOF_NOCONFIRMATION =        &H0010
Const FOF_WANTMAPPINGHANDLE =     &H0020
Const FOF_ALLOWUNDO =             &H0040
Const FOF_FILESONLY =             &H0080
Const FOF_SIMPLEPROGRESS =        &H0100
Const FOF_NOCONFIRMMKDIR =        &H0200
Const FOF_NOERRORUI =             &H0400
Const FOF_NOCOPYSECURITYATTRIBS = &H0800
Type SHFILEOPSTRUCT
	hWnd As HWND
	wFunc As DWord
	pFrom As PCSTR
	pTo As PCSTR
	fFlags As Word
	fAnyOperationsAborted As BOOL
	hNameMappings As VoidPtr
	lpszProgressTitle As PCSTR
End Type
' ShellApi.h
Declare Function SHFileOperation Lib "shell32" Alias "SHFileOperationA" (ByRef lpFileOp As SHFILEOPSTRUCT) As Long

' ShellApi.h
Declare Sub SHFreeNameMappings Lib "shell32" (hNameMappings As HANDLE)

'SHGetDataFromIDList

Declare Function SHGetPathFromIDList Lib "shell32" Alias "SHGetPathFromIDListA" (pidl As *ITEMIDLIST, pszPath As PSTR) As Long

#endif '_INC_SHELL