首页 | 社区 | 博客 | 招聘 | 文章 | 新闻 | 下载 | 项目交易 | 网友作品 | 读书 | ACM题库 | 源码
亲,您未登录哦! 登录 | 注册

ShellExecute API应用整理

(加入日期: 2002-09-05 )

打印文章】【字体:

分享到:
作者: 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)

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )

编程爱好者论坛

本栏最新文章