showprop.bas

教你如何实现键盘开机

Attribute VB_Name = "ShowProp"
Const SEE_MASK_INVOKEIDLIST = &HC
Const SEE_MASK_NOCLOSEPROCESS = &H40
Const SEE_MASK_FLAG_NO_UI = &H400

Declare Function ShellExecuteEX Lib "shell32.dll" Alias "ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As Long

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
       lpIDList As Long 'Optional parameter
       lpClass As String 'Optional parameter
       hkeyClass As Long 'Optional parameter
       dwHotKey As Long 'Optional parameter
       hIcon As Long 'Optional parameter
       hProcess As Long 'Optional parameter
End Type
Public Function ShowProperties(filename As String, OwnerhWnd As Long) As Long
       Dim SEI As SHELLEXECUTEINFO
       Dim rTu As Long
       With SEI
       .cbSize = Len(SEI)
       .fMask = SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI
       .hwnd = OwnerhWnd
       .lpVerb = "properties"
       .lpFile = filename
       .lpParameters = vbNullChar
       .lpDirectory = vbNullChar
       .nShow = 0
       .hInstApp = 0
       .lpIDList = 0
End With
rTu = ShellExecuteEX(SEI)
ShowProperties = SEI.hInstApp
End Function