[ FormDesignerId ("152922CC-D332-4D27-BEF0-7D0887461FEF") ]

[ ClassId ("43C02F35-3CE8-4D19-A139-028E05C7EBE5") ]

[ COMControl ]

Public Class ucShellTree

Private Const mVersionStr As String = "Shell Tree Control 2.8 R2"

#Region "README"

#End Region

Private Const dbg_PrintToImmediate As Boolean = False 'This control has very extensive debug information, you may not want

'to see that in your IDE.

Private Const dbg_IncludeDate As Boolean = True 'Prefix all Debug output with the date and time, [yyyy-mm-dd Hh:Mm:Ss]

Private Const dbg_RaiseEvent As Boolean = True 'Raise DebugMessage event

Private Const dbg_MinLevel As Long = 0& 'Only fire debug statement if iLvl >= this value

#Region "ProjectDeclares"

Implements IDropTarget

Implements IOleInPlaceActiveObjectVB

Implements IObjectSafety

Public Event StatusMessage(sMsg As String)

Public Event ItemClick(sName As String, sFullPath As String, bFolder As Boolean, nButton As Long, hItem As LongPtr)

Public Event ItemClickByShellItem(siItem As IShellItem, sName As String, sFullPath As String, bFolder As Boolean, nButton As Long, hItem As LongPtr)

Public Event ItemSelect(sName As String, sFullPath As String, bFolder As Boolean, hItem As LongPtr)

Public Event ItemSelectByShellItem(siItem As IShellItem, sName As String, sFullPath As String, bFolder As Boolean, hItem As LongPtr)

Public Event MultiSelectChange(siaItems As IShellItemArray, sNames() As String, sFullPaths() As String)

Public Event ItemCheck(sName As String, sFullPath As String, bFolder As Boolean, fCheck As Long, hItem As LongPtr)

Public Event ItemExpand(sName As String, sFullPath As String, hItem As LongPtr)

Public Event ItemCollapse(sName As String, sFullPath As String, hItem As LongPtr)

Public Event TreeKeyDown(VKey As Integer)

Public Event ItemRename(sNameOld As String, sNameNew As String, sFullPathOld As String, sFullPathNew As String, bFolder As Boolean, hItem As LongPtr)

Public Event Initialized()

Public Event DropFiles(sFiles() As String, siaFiles As IShellItemArray, doDropped As IDataObject, sDropParent As String, siDropParent As IShellItem, dwDropEffect As DROPEFFECTS, dwKeyState As Long, ptPointX As Long, ptPointY As Long)

Public Event DragStart(sFiles() As String, siaDragged As IShellItemArray, pdoDragged As IDataObject)

Public Event EnterFocus()

Public Event ExitFocus()

Public Event DebugMessage(sMsg As String, iLevel As Integer)

Private m_ScaleX As Single, m_ScaleY As Single

Private bLoadDone As Boolean

Private pDTH As IDropTargetHelper

Private Const CLSID_DragDropHelper = "{4657278A-411B-11D2-839A-00C04FD918D0}"

Private m_hWnd As LongPtr

Private bRegDD As Boolean

Private psfCur As IShellFolder

Private siaSelected As IShellItemArray

Private sSelectedItems() As String

Private siaSIH As IShellItemArray

Private lUDTC As Long, sUDsz As String

Private mTmrProc As LongPtr

Private idTmr As LongPtr

Private mRefreshPaths() As String

Private bIsWinVistaOrGreater As Boolean 'This control will not run on XP or lower

Private bIsWin7OrGreater As Boolean

Private bIsWin8OrGreater As Boolean

Private bIsWin10OrGreater As Boolean

Private bIsWow64 As Boolean

Private lWow64Data As Long

Private hFontTV As LongPtr

Private WithEvents PropFont As StdFont

Private mIFMain As IFont

Private lLoopTrack As Long

Private mBkm As Boolean

Private m_hRoot As LongPtr

Private m_hFav As LongPtr

Private mCustomRoot As String

Private Const mCustomRoot_def As String = ""

Private bCustRt As Boolean

Private bQkAc As Boolean

Private sUserFolder As String

Private sUserDesktop As String

Private Type TVEntry

bFolder As Boolean

bZip As Boolean

bLink As Boolean

bFavorite As Boolean

sFullPath As String

sName As String

sNameFull As String

sParentFull As String

sLinkTarget As String

sInfoTip As String

LinkPIDL As LongPtr

bLinkIsFolder As Boolean

bDropTarget As Boolean

hNode As LongPtr

hParentNode As LongPtr

nIcon As Long

nOverlay As Long

dwAttrib As SFGAO_Flags

Checked As Boolean

Excluded As Boolean

bDisabled As Boolean

bDeleted As Boolean

pidlFQPar As LongPtr

pidlRel As LongPtr

pidlFQ As LongPtr

bIsDefItem As Boolean

Private TVEntries() As TVEntry

Private nCur As Long

Private TVVisMap() As TVEntry

Private nTVVis As Long

Private bFlagRecurseOI As Boolean

Private fRefreshing As Long

Private hTVD As LongPtr

Private ICtxMenu2 As IContextMenu2

Private ICtxMenu3 As IContextMenu3

Private Const wIDSel As Long = 3000&

Private bSetParents As Boolean

Private bFilling As Boolean

Private gPaths() As String

Private nPaths As Long

Private gExPaths() As String

Private nExPaths As Long

Private nItr As LongPtr

Private hSysIL As LongPtr

Private pIML As iImageList

Private g_fDeleting As Boolean

Private fNoExpand As Long

Private sFavPath As String

Private siSelected As IShellItem

Private sSelectedItem As String

Private gCurSelIdx As LongPtr

Private m_hSHNotify As Long

Private Const WM_SHNOTIFY = &H477

Private hLEEdit As LongPtr

Private sOldLEText As String

Private bRNf As Boolean

Private Const sQuickAccess = "shell:::{679f85cb-0220-4080-b29b-5540cc05aab6}"

Private Const sComp = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"

Private Const sLibRoot = "::{031E4825-7B94-4dc3-B131-E946B44C8DD5}\"

Private Const lnLibRoot As Long = 41& 'length

Private ddRightButton As Boolean

Private bNoDrop As Boolean

Private lHover1 As Long, lHover2 As Long

Private bFlagBlockClkExp As Boolean

Private hItemBlocked As LongPtr

Private bBlockExec As Boolean

Private bNavigating As Boolean

Private fLoad As Long

Private sDesktopPath As String

Private m_cbSort As LongPtr

Private m_sAltDrop As String

Private szNavWav As String

Private xHover As Long, yHover As Long

Private bHoverFired As Boolean

Private sFolder As String

Private bAbort As Boolean

Private bNoTarget As Boolean

Private lItemIndex As LongPtr

Private mDragOver As String

Private mDropTipMsg As String

Private mDropTipIns As String

Private mDropTipImg As DROPIMAGETYPE

Private mDefEffect As DROPEFFECTS

Private mAllowedEffects As DROPEFFECTS

Private mDataObj As IDataObject

Private lvDragOverIdx As Long

Private IsComCtl6 As Boolean

Private lParamSort As LongPtr

Private clrBack As stdole.OLE_COLOR

Private clrFore As stdole.OLE_COLOR

Private mCheckboxes As Boolean

Private Const mCheckboxes_def As Boolean = False

Private mExCheckboxes As Boolean

Private Const mExCheckboxes_def As Boolean = False

Private mAutocheck As Boolean

Private Const mAutocheck_def As Boolean = True

Private mExplorerStyle As Boolean

Private Const mExplorerStyle_def As Boolean = True

Private mExpandZip As Boolean

Private Const mExpandZip_def As Boolean = False

Private mShowFiles As Boolean

Private Const mShowFiles_def As Boolean = False

Private mFadeExpandos As Boolean

Private Const mFadeExpandos_def As Boolean = True

Private mShowLines As Boolean

Private Const mShowLines_def As Boolean = False

Private mHasButtons As Boolean

Private Const mHasButtons_def As Boolean = True

Private mSingleExpand As Boolean

Private Const mSingleExpand_def As Boolean = False

Private mMultiSel As Boolean

Private Const mDefMultiSel As Boolean = False

Private mDisableDD As Boolean

Private Const mDefDisableDD As Boolean = False

Private mComputerAsRoot As Boolean

Private Const mComputerAsRoot_def As Boolean = False

Private mFullRowSelect As Boolean

Private Const mFullRowSelect_def As Boolean = True

Private mFilter As String

Private Const mFilter_def As String = "*.*"

Private mIndent As Long

Private Const mDefIndent As Long = 19

Private mFilterFilesOnly As Boolean

Private Const mFilterFilesOnly_def As Boolean = True

Private mInfoTipOnFiles As Boolean

Private Const mInfoTipOnFiles_def As Boolean = True

Private m_TrackSel As Boolean

Private Const m_def_TrackSel As Boolean = True

Private mShowSelAlw As Boolean

Private Const mDefShowSelAlw As Boolean = True

Private mExpandOnLabelClick As Boolean

Private Const mExpandOnLabelClick_def As Boolean = False

Private mNoIndState As Boolean

Private Const mDefNoIndState As Boolean = False

Private mAutoHS As Boolean

Private Const mDefAutoHS As Boolean = True

Private mInfoTipOnFolders As Boolean

Private Const mInfoTipOnFolders_def As Boolean = False

Private mNavSound As Boolean

Private Const mNavSound_def As Boolean = True

Private mFavorites As Boolean

Private Const mFavorites_def As Boolean = True

Private mSHCN As Boolean

Private Const mSHCN_def As Boolean = True

Private mLabelEdit As Boolean

Private Const mLabelEdit_def As Boolean = True

Private mNameColors As Boolean

Private Const mNameColors_def As Boolean = True

Private m_SysClrText As Long

Private mExtOverlay As Boolean

Private Const m_def_ExtOverlay As Boolean = False

Private mAlwaysShowExtVerbs As Boolean

Private Const mDefAlwaysShowExtVerbs As Boolean = False

Private m_EnableShellMenu As Boolean

Private Const m_def_EnableShellMenu As Boolean = True

Private m_Win10QA As Boolean

Private Const m_def_Win10QA As Boolean = True

Private mExpComp As Boolean

Private Const mDefExpComp As Boolean = True

Private mExpLib As Boolean

Private Const mDefExpLib As Boolean = True

Private m_NoWow64 As Boolean

Private Const m_def_NoWow64 As Boolean = False

Public Enum ST_HDN_PREF

STHP_UseExplorer = 0&

STHP_AlwaysShow = 1&

STHP_AlwaysHide = 2&

Private m_HiddenPref As ST_HDN_PREF

Private Const m_def_HiddenPref As Long = 0&

Private mHPInExp As Boolean

Public Enum ST_SPRHDN_PREF

STSHP_UseExplorer = 0&

STSHP_AlwaysShow = 1&

STSHP_AlwaysHide = 2&

Private m_SuperHiddenPref As ST_SPRHDN_PREF

Private Const m_def_SuperHiddenPref As Long = 0&

Private mSHPInExp As Boolean

Public Enum ST_BORDERSTYLE

STBS_None = 0&

STBS_Standard = 1&

STBS_Thick = 2&

STBS_Thicker = 3&

Private mBorder As ST_BORDERSTYLE

Private Const mBorder_def As Long = 1&

Private mInitialPath As String

Private Const mInitialPath_def As String = ""

Private mRootHasCheckbox As Boolean

Private Const mRootHasCheckbox_def As Boolean = False

Private mHScroll As Boolean

Private Const mHScroll_def As Boolean = True

Private lRaiseHover As Long

Private Const m_def_lRaiseHover As Long = 2500&

Private bTopLostFocus As Boolean

Private bHasFocus As Boolean

Private hBmpBack As LongPtr

#End Region

#Region "APIDeclares"

Private Type PAINTSTRUCT

hDC As LongPtr

fErase As Long

rcPaint As RECT

fRestore As Long

fIncUpdate As Long

rgbReserved(32) As Byte

Private Type BITMAP

BMType As Long

BMWidth As Long

BMHeight As Long

BMWidthBytes As Long

BMPlanes As Integer

BMBitsPixel As Integer

BMBits As LongPtr

Private Declare PtrSafe Function BeginPaint Lib "user32" (ByVal hWnd As LongPtr, lpPaint As PAINTSTRUCT) As LongPtr

Private Declare PtrSafe Function EndPaint Lib "user32" (ByVal hWnd As LongPtr, lpPaint As PAINTSTRUCT) As Long

Private Declare PtrSafe Function SelectObject Lib "gdi32" (ByVal hDC As LongPtr, ByVal hObject As LongPtr) As LongPtr

Private Declare PtrSafe Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As LongPtr) As LongPtr

Private Declare PtrSafe Function StretchBlt Lib "gdi32.dll" (ByVal hDC As LongPtr, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As LongPtr, ByVal XSrc As Long, ByVal YSrc As Long, ByVal hSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

Private Declare PtrSafe Function DeleteDC Lib "gdi32" (ByVal hDC As LongPtr) As Long

Private Declare PtrSafe Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As LongPtr, ByVal nCount As Long, lpObject As Any) As Long

Private Declare PtrSafe Function SetBkMode Lib "gdi32" (ByVal hDC As LongPtr, ByVal nBkMode As Long) As Long

Private Declare PtrSafe Function TransparentBlt Lib "msimg32" (ByVal hDestDC As LongPtr, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As LongPtr, ByVal XSrc As Long, ByVal YSrc As Long, ByVal nWidthSrc As Long, ByVal nHeightSrc As Long, ByVal crTransparent As Long) As Long

Private Const TRANSPARENT = 1&

Private Const OPAQUE = 2&

Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)

Private Declare PtrSafe Sub CoTaskMemFree Lib "ole32" (ByVal pv As LongPtr)

Private Declare PtrSafe Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectW" (ByRef lpLogFont As LOGFONT) As LongPtr

Private Declare PtrSafe Function CreatePopupMenu Lib "user32" () As LongPtr

Private Declare PtrSafe Function CreateWindowEx Lib "user32" Alias "CreateWindowExW" (ByVal dwExStyle As Long, ByVal lpClassName As LongPtr, ByVal lpWindowName As LongPtr, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As LongPtr, ByVal hMenu As LongPtr, ByVal hInstance As LongPtr, lpParam As Any) As LongPtr

Private Declare PtrSafe Function DeleteObject Lib "gdi32" (ByVal hObject As LongPtr) As Long

Private Declare PtrSafe Function DestroyIcon Lib "user32.dll" (ByVal hIcon As LongPtr) As Long

Private Declare PtrSafe Function DestroyMenu Lib "user32" (ByVal hMenu As LongPtr) As Long

Private Declare PtrSafe Function DestroyWindow Lib "user32" (ByVal hWnd As LongPtr) As Long

Private Declare PtrSafe Function DispatchMessage Lib "user32" Alias "DispatchMessageW" (ByRef lpMsg As Any) As LongPtr

Private Declare PtrSafe Function DllGetVersion Lib "comctl32" (ByRef pdvi As DLLVERSIONINFO) As Long

Private Declare PtrSafe Function EnableWindow Lib "user32" (ByVal hWnd As LongPtr, ByVal fEnable As Long) As Long

Private Declare PtrSafe Function FindResourceW Lib "kernel32" (ByVal hInstance As LongPtr, ByVal lpName As LongPtr, ByVal lpType As LongPtr) As LongPtr

Private Declare PtrSafe Function FreeLibrary Lib "kernel32" (ByVal hLibModule As LongPtr) As Long

Private Declare PtrSafe Function GetAsyncKeyState Lib "user32.dll" (ByVal VKey As Long) As Integer

Private Declare PtrSafe Function GetClientRect Lib "user32" (ByVal hWnd As LongPtr, lpRect As RECT) As Long

Private Declare PtrSafe Function GetCurrentProcess Lib "kernel32" () As LongPtr

Private Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As Any) As Long

Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hWnd As LongPtr) As LongPtr

Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32" (ByVal hDC As LongPtr, ByVal nIndex As Long) As Long

Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Private Declare PtrSafe Function GetMenuItemCount Lib "user32" (ByVal hMenu As LongPtr) As Long

Private Declare PtrSafe Function GetMenuItemID Lib "user32" (ByVal hMenu As LongPtr, ByVal nPos As Long) As Long

Private Declare PtrSafe Function GetObjectW Lib "gdi32" (ByVal hObject As LongPtr, ByVal nCount As Long, lpObject As Any) As Long

Private Declare PtrSafe Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long

Private Declare PtrSafe Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As SystemMetrics) As Long

Private Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long

Private Declare PtrSafe Function ImageList_ReplaceIcon Lib "comctl32.dll" (ByVal himl As LongPtr, ByVal i As Long, ByVal hIcon As LongPtr) As Long

Private Declare PtrSafe Function InsertMenuItemW Lib "user32" (ByVal hMenu As LongPtr, ByVal uItem As Long, ByVal fByPosition As Boolean, lpmii As MENUITEMINFOW) As Boolean

Private Declare PtrSafe Function IsEqualGUID Lib "ole32" (iid1 As UUID, iid2 As UUID) As Long

Private Declare PtrSafe Function IsWow64Process Lib "kernel32.dll" (ByVal hProcess As LongPtr, ByRef Wow64Process As Long) As Long

Private Declare PtrSafe Function KillTimer Lib "user32" (ByVal hWnd As LongPtr, ByVal uIDEvent As LongPtr) As Long

Private Declare PtrSafe Function LoadCursor Lib "user32" Alias "LoadCursorW" (ByVal hInstance As LongPtr, ByVal lpCursorName As Any) As LongPtr

Private Declare PtrSafe Function LoadLibraryW Lib "kernel32" (ByVal lpLibFileName As LongPtr) As LongPtr

Private Declare PtrSafe Function LoadResource Lib "kernel32" (ByVal hInstance As LongPtr, ByVal hResInfo As LongPtr) As LongPtr

Private Declare PtrSafe Function LockResource Lib "kernel32" (ByVal hResData As LongPtr) As LongPtr

Private Declare PtrSafe Function lstrcpyA Lib "kernel32" (lpString1 As Any, lpString2 As Any) As LongPtr

Private Declare PtrSafe Function lstrlenA Lib "kernel32" (lpString As Any) As Long

Private Declare PtrSafe Function lstrlenW Lib "kernel32" (lpString As Any) As Long

Private Declare PtrSafe Function MessageBoxW Lib "user32.dll" (ByVal hWnd As LongPtr, ByVal lpText As LongPtr, ByVal lpCaption As LongPtr, ByVal wType As Long) As Long

Private Declare PtrSafe Function MulDiv Lib "kernel32" (ByVal nNumber As Long, ByVal nNumerator As Long, ByVal nDenominator As Long) As Long

Private Declare PtrSafe Function OleGetClipboard Lib "ole32" (ppDataObj As IDataObject) As Long

Private Declare PtrSafe Function OleTranslateColor Lib "oleaut32" (ByVal Color As Long, ByVal hpal As LongPtr, ByRef RGBResult As Long) As Long

Private Declare PtrSafe Function PathFileExistsW Lib "shlwapi" (ByVal lpszPath As LongPtr) As Long

Private Declare PtrSafe Function PathIsDirectoryW Lib "shlwapi" (ByVal lpszPath As LongPtr) As Long

Private Declare PtrSafe Function PathMatchSpecW Lib "shlwapi" (ByVal pszFileParam As LongPtr, ByVal pszSpec As LongPtr) As Long

Private Declare PtrSafe Function PathMatchSpecExW Lib "shlwapi" (ByVal pszFile As LongPtr, ByVal pszSpec As LongPtr, ByVal dwFlags As ucst_PMS_Flags) As Long

Private Declare PtrSafe Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As MSG, ByVal hWnd As LongPtr, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long

Private Declare PtrSafe Function PlaySound Lib "winmm.dll" Alias "PlaySoundW" (ByVal lpszName As LongPtr, ByVal hModule As LongPtr, ByVal dwFlags As ucst_SND_FLAGS) As Long

Private Declare PtrSafe Function PSFormatPropertyValue Lib "propsys.dll" (ByVal pps As LongPtr, ByVal ppd As LongPtr, ByVal pdff As PROPDESC_FORMAT_FLAGS, ppszDisplay As LongPtr) As Long

Private Declare PtrSafe Function RedrawWindow Lib "user32" (ByVal hWnd As LongPtr, ByVal lprcUpdate As LongPtr, ByVal hrgnUpdate As LongPtr, ByVal fuRedraw As Long) As Long

Private Declare PtrSafe Function RegisterClipboardFormatW Lib "user32" (ByVal lpszFormat As LongPtr) As Long

Private Declare PtrSafe Function RegisterDragDrop Lib "ole32" (ByVal hWnd As LongPtr, ByVal DropTarget As IDropTarget) As Long

Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hWnd As LongPtr, ByVal hDC As LongPtr) As Long

Private Declare PtrSafe Function RevokeDragDrop Lib "ole32" (ByVal hWnd As LongPtr) As Long

Private Declare PtrSafe Function ScreenToClient Lib "user32" (ByVal hWnd As LongPtr, lpPoint As Any) As Long ' lpPoint As POINT) As Long

Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr

Private Declare PtrSafe Function SendMessageW Lib "user32" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr

Private Declare PtrSafe Function SetCursor Lib "user32" (ByVal hCursor As LongPtr) As LongPtr

Private Declare PtrSafe Function SetFocusAPI Lib "user32" Alias "SetFocus" (ByVal hWnd As LongPtr) As LongPtr

Private Declare PtrSafe Function SetTimer Lib "user32" (ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr

Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hWnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal X As Long, ByVal Y As Long, ByVal CX As Long, ByVal cy As Long, ByVal wFlags As ucst_SWP_Flags) As Long

Private Declare PtrSafe Function SetWindowTheme Lib "uxtheme" (ByVal hWnd As LongPtr, ByVal pszSubAppName As LongPtr, ByVal pszSubIdList As LongPtr) As Long

Private Declare PtrSafe Function SHDoDragDrop Lib "Shell32" (ByVal hWnd As LongPtr, ByVal pdtobj As LongPtr, ByVal pdsrc As LongPtr, ByVal dwEffect As Long, pdwEffect As Long) As Long

Private Declare PtrSafe Function SHFileOperationW Lib "Shell32" (lpFileOp As SHFILEOPSTRUCT) As Long

Private Declare PtrSafe Function SHGetFileInfo Lib "shell32" Alias "SHGetFileInfoA" (ByVal pszPath As Any, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As ucst_SHGFI_flags) As LongPtr

Private Declare PtrSafe Function SHGetFolderLocation Lib "shell32.dll" (ByVal hWndOwner As LongPtr, ByVal nFolder As Long, ByVal hToken As LongPtr, ByVal dwReserved As Long, ppidl As LongPtr) As Long

Private Declare PtrSafe Function SHGetImageList Lib "shell32.dll" (ByVal iImageList As ucst_ShellImageListFlags, ByRef riid As UUID, ByRef ppv As Any) As Long

Private Declare PtrSafe Function SHGetKnownFolderIDList Lib "Shell32" (rfid As Any, ByVal dwFlags As Long, ByVal hToken As LongPtr, pidl As LongPtr) As Long

Private Declare PtrSafe Sub SHGetSetSettings Lib "shell32.dll" (ByRef lpss As SHELLSTATE, ByVal dwMask As SFS_MASK, Optional ByVal bSet As Long)

Private Declare PtrSafe Function SHGetSettings Lib "Shell32" (lpsfs As Integer, ByVal dwMask As SFS_MASK) As Long

Private Declare PtrSafe Function StrCmpLogicalW Lib "shlwapi" (ByVal lpStr1 As LongPtr, ByVal lpStr2 As LongPtr) As Long

Private Declare PtrSafe Function SysReAllocString Lib "oleaut32.dll" (ByVal pBSTR As LongPtr, Optional ByVal pszStrPtr As LongPtr) As Long

Private Declare PtrSafe Function TrackPopupMenu Lib "user32" (ByVal hMenu As LongPtr, ByVal wFlags As ucst_TPM_wFlags, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hwnd As LongPtr, lpRC As Any) As Long

Private Declare PtrSafe Function TranslateMessage Lib "user32" (ByRef lpMsg As Any) As Long

Private Declare PtrSafe Function UpdateWindow Lib "user32" (ByVal hWnd As LongPtr) As Long

Private Declare PtrSafe Function Wow64DisableWow64FsRedirection Lib "kernel32" (pOldVal As Long) As Long

Private Declare PtrSafe Function Wow64RevertWow64FsRedirection Lib "kernel32" (pOldVal As Long) As Long

#If Win64 Then

Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongPtrW" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr

Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongPtrW" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr

#Else

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongW" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongW" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

#End If

Private Declare PtrSafe Function DefSubclassProc Lib "comctl32.dll" Alias "#413" (ByVal hWnd As LongPtr, ByVal uMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr

Private Declare PtrSafe Function SetWindowSubclass Lib "comctl32.dll" Alias "#410" (ByVal hWnd As LongPtr, ByVal pfnSubclass As LongPtr, ByVal uIdSubclass As LongPtr, Optional ByVal dwRefData As LongPtr) As Long

Private Declare PtrSafe Function RemoveWindowSubclass Lib "comctl32.dll" Alias "#412" (ByVal hWnd As LongPtr, ByVal pfnSubclass As LongPtr, ByVal uIdSubclass As LongPtr) As Long

Private Type MSG

hWnd As LongPtr

message As Long

wParam As LongPtr

lParam As LongPtr

Time As Long

PT As POINT

Private Const PM_NOREMOVE As Long = 0&

Private Const PM_REMOVE As Long = 1&

Private Const CLR_NONE = &HFFFFFFFF

Private Const RDW_UPDATENOW As Long = &H100

Private Const RDW_INVALIDATE As Long = &H1

Private Const RDW_ERASE As Long = &H4

Private Const RDW_ALLCHILDREN As Long = &H80

Private Type VS_FIXEDFILEINFO

dwSignature As Long

dwStrucVersionl As Integer ' e.g. = &h0000 = 0

dwStrucVersionh As Integer ' e.g. = &h0042 = .42

dwFileVersionMSl As Integer ' e.g. = &h0003 = 3

dwFileVersionMSh As Integer ' e.g. = &h0075 = .75

dwFileVersionLSl As Integer ' e.g. = &h0000 = 0

dwFileVersionLSh As Integer ' e.g. = &h0031 = .31

dwProductVersionMSl As Integer ' e.g. = &h0003 = 3

dwProductVersionMSh As Integer ' e.g. = &h0010 = .1

dwProductVersionLSl As Integer ' e.g. = &h0000 = 0

dwProductVersionLSh As Integer ' e.g. = &h0031 = .31

dwFileFlagsMask As Long ' = &h3F for version "0.42"

dwFileFlags As Long ' e.g. VFF_DEBUG Or VFF_PRERELEASE

dwFileOS As Long ' e.g. VOS_DOS_WINDOWS16

dwFileType As Long ' e.g. VFT_DRIVER

dwFileSubtype As Long ' e.g. VFT2_DRV_KEYBOARD

dwFileDateMS As Long ' e.g. 0

dwFileDateLS As Long ' e.g. 0

Private Type VS_VERSIONINFO_FIXED_PORTION

wLength As Integer

wValueLength As Integer

wType As Integer

szKey(1 To 16) As Integer 'Unicode "VS_VERSION_INFO" & vbNullChar.

Padding1(1 To 1) As Integer 'Pad next field to DWORD boundary.

Value As VS_FIXEDFILEINFO

Private Const RT_VERSION = 16

Private Enum ucst_SWP_Flags

SWP_NOSIZE = &H1

SWP_NOMOVE = &H2

SWP_NOZORDER = &H4

SWP_NOREDRAW = &H8

SWP_NOACTIVATE = &H10

SWP_FRAMECHANGED = &H20

SWP_DRAWFRAME = &H20

SWP_SHOWWINDOW = &H40

SWP_HIDEWINDOW = &H80

SWP_NOCOPYBITS = &H100

SWP_NOREPOSITION = &H200

SWP_NOSENDCHANGING = &H400

SWP_DEFERERASE = &H2000

SWP_ASYNCWINDOWPOS = &H4000

Private Const SM_CYFRAME As Long = 33

Private Const SM_CYCAPTION = 4

Private Const IDC_ARROW = 32512&

Private Const IDC_WAIT = 32514&

Private Const COLOR_WINDOWTEXT = 8

Private Const UNICODE_NOCHAR = &HFFFF

Private Const LOGPIXELSX = 88

Private Const LOGPIXELSY = 90

Private Const LF_FACESIZE As Long = 32

Private Const FW_NORMAL As Long = 400

Private Const FW_BOLD As Long = 700

Private Const DEFAULT_QUALITY As Long = 0

Private Type LOGFONT

LFHeight As Long

LFWidth As Long

LFEscapement As Long

LFOrientation As Long

LFWeight As Long

LFItalic As Byte

LFUnderline As Byte

LFStrikeOut As Byte

LFCharset As Byte

LFOutPrecision As Byte

LFClipPrecision As Byte

LFQuality As Byte

LFPitchAndFamily As Byte

LFFaceName(0 To ((LF_FACESIZE * 2) - 1)) As Byte

Private Type DLLVERSIONINFO

cbSize As Long

dwMajor As Long

dwMinor As Long

dwBuildNumber As Long

dwPlatformID As Long

Private Enum ucst_PMS_Flags

PMSF_NORMAL = &H0

PMSF_MULTIPLE = &H1

PMSF_DONT_STRIP_SPACES = &H10000

Private Enum ucst_IL_CreateFlags

ILC_MASK = &H1

ILC_COLOR = &H0

ILC_COLORDDB = &HFE

ILC_COLOR4 = &H4

ILC_COLOR8 = &H8

ILC_COLOR16 = &H10

ILC_COLOR24 = &H18

ILC_COLOR32 = &H20

ILC_PALETTE = &H800 ' (no longer supported...never worked anyway)

'5.0

ILC_MIRROR = &H2000

ILC_PERITEMMIRROR = &H8000&

'6.0

ILC_ORIGINALSIZE = &H10000

ILC_HIGHQUALITYSCALE = &H20000

Private Const EM_SETSEL = &HB1

Private CF_SHELLIDLIST As Long

Private CF_DROPDESCRIPTION As Long

Private CF_PREFERREDDROPEFFECT As Long

Private CF_COMPUTEDDRAGIMAGE As Long

Private CF_INDRAGLOOP As Long

Private Enum ucst_SHGFI_flags

SHGFI_LARGEICON = &H0 ' sfi.hIcon is large icon

SHGFI_SMALLICON = &H1 ' sfi.hIcon is small icon

SHGFI_OPENICON = &H2 ' sfi.hIcon is open icon

SHGFI_SHELLICONSIZE = &H4 ' sfi.hIcon is shell size (not system size), rtns BOOL

SHGFI_PIDL = &H8 ' pszPath is pidl, rtns BOOL

' Indicates that the function should not attempt to access the file specified by pszPath.

' Rather, it should act as if the file specified by pszPath exists with the file attributes

' passed in dwFileAttributes. This flag cannot be combined with the SHGFI_ATTRIBUTES,

' SHGFI_EXETYPE, or SHGFI_PIDL flags <---- !!!

SHGFI_USEFILEATTRIBUTES = &H10 ' pretend pszPath exists, rtns BOOL

SHGFI_ICON = &H100 ' fills sfi.hIcon, rtns BOOL, use DestroyIcon

SHGFI_DISPLAYNAME = &H200 ' isf.szDisplayName is filled (SHGDN_NORMAL), rtns BOOL

SHGFI_TYPENAME = &H400 ' isf.szTypeName is filled, rtns BOOL

SHGFI_ATTRIBUTES = &H800 ' rtns IShellFolder::GetAttributesOf SFGAO_* flags

SHGFI_ICONLOCATION = &H1000 ' fills sfi.szDisplayName with filename

' containing the icon, rtns BOOL

SHGFI_EXETYPE = &H2000 ' rtns two ASCII chars of exe type

SHGFI_SYSICONINDEX = &H4000 ' sfi.iIcon is sys il icon index, rtns hImagelist

SHGFI_LINKOVERLAY = &H8000& ' add shortcut overlay to sfi.hIcon

SHGFI_SELECTED = &H10000 ' sfi.hIcon is selected icon

SHGFI_ATTR_SPECIFIED = &H20000 ' get only attributes specified in sfi.dwAttributes

Private Type SHFILEINFO ' shfi

hIcon As LongPtr

iIcon As Long

dwAttributes As Long

szDisplayName As String * MAX_PATH

szTypeName As String * 80

Private Const NFR_UNICODE = 2

Private Const NM_FIRST As Long = 0&

Private Const NM_CLICK As Long = NM_FIRST - 2& 'uses NMCLICK struct

Private Const NM_DBLCLK As Long = NM_FIRST - 3&

Private Const NM_RETURN As Long = NM_FIRST - 4&

Private Const NM_RCLICK As Long = NM_FIRST - 5& 'uses NMCLICK struct

Private Const NM_RDBLCLK As Long = NM_FIRST - 6&

Private Const NM_CUSTOMDRAW As Long = NM_FIRST - 12&

Private Const WM_UNICHAR As Long = &H109

Private Const CDDS_PREPAINT As Long = &H1&

Private Const CDRF_NOTIFYITEMDRAW As Long = &H20&

Private Const CDRF_NOTIFYSUBITEMDRAW As Long = &H20&

Private Const CDDS_ITEM As Long = &H10000

Private Const CDDS_ITEMPREPAINT As Long = CDDS_ITEM Or CDDS_PREPAINT

Private Const CDDS_ITEMPOSTPAINT = (&H10000 Or &H2)

Private Const CDDS_SUBITEM = &H20000

Private Const CDRF_NEWFONT As Long = &H2&

Private Const CDRF_DODEFAULT As Long = &H0&

Private Type EDITBALLOONTIP

cbStruct As Long

pszTitle As LongPtr

pszText As LongPtr

ttiIcon As ucst_BalloonTipIconConstants ' ; // From TTI_*

Private Const ECM_FIRST As Long = &H1500

Private Const EM_SHOWBALLOONTIP As Long = (ECM_FIRST + 3)

Private Enum ucst_BalloonTipIconConstants

TTI_NONE = 0

TTI_INFO = 1

TTI_WARNING = 2

TTI_ERROR = 3

Private Const MK_CONTROL = 8

Private Const MK_LBUTTON = 1

Private Const MK_MBUTTON = &H10