作者: yanek
1. 执行“打开“,“查找“,“资源管理器“和”打印“ 必要的声明: ' nShowCmd Public Const SW_HIDE = 0 Public Const SW_SHOWNORMAL = 1 Public Const SW_SHOWMINIMIZED = 2 Public Const SW_SHOWMAXIMIZED = 3 Public Const SW_MAXIMIZE = 3 Public Const SW_SHOWNOACTIVATE = 4 Public Const SW_SHOW = 5 Public Const SW_MINIMIZE = 6 Public Const SW_SHOWMINNOACTIVE = 7 Public Const SW_SHOWNA = 8 Public Const SW_RESTORE = 9
' Error Code Public Const ERROR_FILE_NOT_FOUND = 2 Public Const ERROR_PATH_NOT_FOUND = 3 Public Const ERROR_BAD_FORMAT = 11
Public Const SE_ERR_FNF = 2 Public Const SE_ERR_PNF = 3 Public Const SE_ERR_ACCESSDENIED = 5 Public Const SE_ERR_OOM = 8 Public Const SE_ERR_SHARE = 26 Public Const SE_ERR_ASSOCINCOMPLETE = 27 Public Const SE_ERR_DDETIMEOUT = 28 Public Const SE_ERR_DDEFAIL = 29 Public Const SE_ERR_DDEBUSY = 30 Public Const SE_ERR_NOASSOC = 31 Public Const SE_ERR_DLLNOTFOUND = 32
Public Declare Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" _ (ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long
“打开“操作 ShellExecute Me.hwnd, "open", _ Text1.Text, _ vbNullString, vbNullString, _ SW_SHOWNORMAL
“查找“操作 ShellExecute Me.hwnd, "find", _ LocalDir, _ vbNullString, vbNullString, _ SW_SHOWNORMAL
“打印“操作 ShellExecute Me.hwnd, "print", _ Text1.Text, _ vbNullString, vbNullString, _ SW_SHOWNORMAL
“资源管理器“ ShellExecute Me.hwnd, "explore", _ LocalDir, _ vbNullString, vbNullString, _ SW_SHOWNORMAL
打开“我的文档“ ShellExecute Me.hwnd, _ "open", "explorer", _ vbNullString, vbNullString, _ SW_SHOWNORMAL
打开“我的电脑“ ' 我的电脑 ' HKEY_CLASSES_ROOT\CLSID' {20D04FE0-3AEA-1069-A2D8-08002B30309D}
ShellExecute Me.hwnd, "open", _ "explorer", _ "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", _ vbNullString, SW_SHOWNORMAL
打开“网上邻居“ ' 网上邻居 ' HKEY_CLASSES_ROOT\CLSID' {208D2C60-3AEA-1069-A2D7-08002B30309D}
ShellExecute Me.hwnd, "open", _ "explorer", _ "::{208D2C60-3AEA-1069-A2D7-08002B30309D}", _ vbNullString, SW_SHOWNORMAL
打开“回收站“ ' 回收站 ' HKEY_CLASSES_ROOT\CLSID' {645FF040-5081-101B-9F08-00AA002F954E}
ShellExecute Me.hwnd, "open", _ "explorer", _ "::{645FF040-5081-101B-9F08-00AA002F954E}", _ vbNullString, SW_SHOWNORMAL
ShellExecuteEx API演示 必要声明: Public Type SHELLEXECUTEINFO cbSize As Long fMask As Long hwnd As Long lpVerb As String lpFile As String lpParameters As String lpDirectory As String nShow As Long hInstApp As Long ' Optional fields lpIDList As Long lpClass As String hkeyClass As Long dwHotKey As Long hIcon As Long hProcess As Long End Type
' fMask Public Const SEE_MASK_CLASSKEY = &H3 Public Const SEE_MASK_CLASSNAME = &H1 Public Const SEE_MASK_CONNECTNETDRV = &H80 Public Const SEE_MASK_DOENVSUBST = &H200 Public Const SEE_MASK_FLAG_DDEWAIT = &H100 Public Const SEE_MASK_FLAG_NO_UI = &H400 Public Const SEE_MASK_HOTKEY = &H20 Public Const SEE_MASK_ICON = &H10 Public Const SEE_MASK_IDLIST = &H4 Public Const SEE_MASK_INVOKEIDLIST = &HC Public Const SEE_MASK_NOCLOSEPROCESS = &H40
Public Declare Function ShellExecuteEX Lib "shell32.dll" _ Alias "ShellExecuteEx" _ (lpExecInfo As SHELLEXECUTEINFO) As Boolean
执行调用“文件属性“对话框 Dim dwReturn As Long Dim lpExecInfo As SHELLEXECUTEINFO With lpExecInfo .cbSize = Len(lpExecInfo) .fMask = SEE_MASK_NOCLOSEPROCESS Or _ SEE_MASK_INVOKEIDLIST Or _ SEE_MASK_FLAG_NO_UI .hwnd = Me.hwnd .lpVerb = "properties" .lpFile = LocalDir & File1.FileName .lpParameters = vbNullChar .lpDirectory = vbNullChar .nShow = SW_SHOWNORMAL .hInstApp = 0 .lpIDList = 0 End With dwReturn = ShellExecuteEX(lpExecInfo) |