64位Office API声明语句第113讲

跟我学VBA，我这里专注VBA, 授人以渔。我98年开始，从源码接触VBA已经20余年了，随着年龄的增长，越来越觉得有必要把这项技能传递给需要这项技术的职场人员。希望职场和数据打交道的朋友，都来学习VBA,利用VBA,起码可以提高自己的工作效率，可以有时间多陪陪父母，多陪陪家人，何乐而不为呢？我的教程一共九套，从入门开始一直讲到程序的分发，是学习利用VBA的实用教程。这份API资料是随高级教程赠送的.

这讲我们继续学习64位Office API声明语句第113讲，这些内容是MS的权威资料，看似枯燥，但对于想学习API函数的朋友是非常有用的。

【分享成果，随喜正能量】中国人熟知的一些话：“谁知盘中餐，粒粒皆辛苦”，以及“半丝半缕，恒念物力维艰”，等等，都是教导年轻人要感恩，因为由于许多人的辛苦，我们才有衣穿，才有饭吃。。

当学员学习到高级阶段，如果引用API，这个资料可以直接查到64位写法。大多数情况下我们是将低版本的程序文件升级到高版本，这时您就不必为如下的错误提示所困扰了：

Declare PtrSafe Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Declare PtrSafe Sub SHFreeNameMappings Lib "shell32.dll" Alias "SHFreeNameMappings" (ByVal hNameMappings As LongPtr)

Type SHNAMEMAPPING

        pszOldPath As String

        pszNewPath As String

        cchOldPath As Long

        cchNewPath As Long

End Type

' // End Shell File Operations

' // Begin ShellExecuteEx and family

' ShellExecute() and ShellExecuteEx() error codes

' regular WinExec() codes

Const SE_ERR_FNF = 2 ' file not found

Const SE_ERR_PNF = 3 ' path not found

Const SE_ERR_ACCESSDENIED = 5 ' access denied

Const SE_ERR_OOM = 8 ' out of memory

Const SE_ERR_DLLNOTFOUND = 32

' Note CLASSKEY overrides CLASSNAME

Const SEE_MASK_CLASSNAME = &H1

Const SEE_MASK_CLASSKEY = &H3

' Note INVOKEIDLIST overrides IDLIST

Const SEE_MASK_IDLIST = &H4

Const SEE_MASK_INVOKEIDLIST = &HC

Const SEE_MASK_ICON = &H10

Const SEE_MASK_HOTKEY = &H20

Const SEE_MASK_NOCLOSEPROCESS = &H40

Const SEE_MASK_CONNECTNETDRV = &H80

Const SEE_MASK_FLAG_DDEWAIT = &H100

Const SEE_MASK_DOENVSUBST = &H200

Const SEE_MASK_FLAG_NO_UI = &H400

Type SHELLEXECUTEINFO

        cbSize As Long

        fMask As Long

        hwnd As LongPtr

        lpVerb As String

        lpFile As String

        lpParameters As String

        lpDirectory As String

        nShow As Long

        hInstApp As LongPtr

        ' Optional fields

        lpIDList As LongPtr

        lpClass As String

        hkeyClass As LongPtr

        dwHotKey As Long

        hIcon As LongPtr

        hProcess As LongPtr

End Type

' // End ShellExecuteEx and family

' // Tray notification definitions

Type GUID

        Data1 As Long

        Data2 As Integer

        Data3 As Integer

        Data4(0 To 7) As Byte

End Type

Type NOTIFYICONDATA

        cbSize As Long

        hwnd As LongPtr

        uID As Long

        uFlags As Long

        uCallbackMessage As Long

        hIcon As LongPtr

'#if (NTDDI_VERSION >= NTDDI_WIN2K)

        szTip(0 To 127) As Byte

        dwState As Long

        dwStateMask As Long

        szInfo(0 To 255) As Byte

        uTimeout As Long

        szInfoTitle(0 To 63) As Byte

        dwInfoFlags As Long

'#endif

'#if (NTDDI_VERSION >= NTDDI_WINXP)

        guidItem As GUID

'#endif

'#if (NTDDI_VERSION >= NTDDI_VISTA)

' hBalloonIcon As LongPtr

'#endif

End Type

Const NIM_ADD = &H0

Const NIM_MODIFY = &H1

Const NIM_DELETE = &H2

Const NIF_MESSAGE = &H1

Const NIF_ICON = &H2

Const NIF_TIP = &H4

Declare PtrSafe Function Shell_NotifyIcon Lib "shell32.dll" Alias " Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

' // End Tray Notification Icons

' // Begin SHGetFileInfo

' * The SHGetFileInfo API provides an easy way to get attributes

' * for a file given a pathname.

' *

' * PARAMETERS

' *

' * pszPath file name to get info about

' * dwFileAttributes file attribs, only used with SHGFI_USEFILEATTRIBUTES

' * psfi place to return file info

' * cbFileInfo size of structure

' * uFlags flags

' *

' * RETURN

' * TRUE if things worked

' */

Type SHFILEINFO

        hIcon As LongPtr ' out: icon

        iIcon As Long ' out: icon index

        dwAttributes As Long ' out: SFGAO_ flags

        szDisplayName(0 To MAX_PATH - 1) As Byte ' out: display name (or path)

        szTypeName(0 To 79) As Byte ' out: type name

End Type

Const SHGFI_ICON = &H100 ' get icon

Const SHGFI_DISPLAYNAME = &H200 ' get display name

Const SHGFI_TYPENAME = &H400 ' get type name

Const SHGFI_ATTRIBUTES = &H800 ' get attributes

Const SHGFI_ICONLOCATION = &H1000 ' get icon location

Const SHGFI_EXETYPE = &H2000 ' return exe type

Const SHGFI_SYSICONINDEX = &H4000 ' get system icon index

Const SHGFI_LINKOVERLAY = &H8000& ' put a link overlay on icon

Const SHGFI_SELECTED = &H10000 ' show icon in selected state

Const SHGFI_LARGEICON = &H0 ' get large icon

Const SHGFI_SMALLICON = &H1 ' get small icon

Const SHGFI_OPENICON = &H2 ' get open icon

Const SHGFI_SHELLICONSIZE = &H4 ' get shell size icon

Const SHGFI_PIDL = &H8 ' pszPath is a pidl

Const SHGFI_USEFILEATTRIBUTES = &H10 ' use passed dwFileAttribute

Declare PtrSafe Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As Long) As LongPtr

Declare PtrSafe Function SHGetNewLinkInfo Lib "shell32.dll" Alias "SHGetNewLinkInfoA" (ByVal pszLinkto As String, ByVal pszDir As String, ByVal pszName As String, pfMustCopy As Long, ByVal uFlags As Long) As Long

Const SHGNLI_PIDL = &H1 ' pszLinkTo is a pidl

Const SHGNLI_PREFIXNAME = &H2 ' Make name "Shortcut to xxx"

' // End SHGetFileInfo

' Module Name:

' winperf.h

' Abstract: