声明：

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

lpClass As String

hkeyClass As Long

dwHotKey As Long

hIcon As Long

hProcess As Long

End Type

Public Const SEE_MASK_INVOKEIDLIST = &HC

Public Const SEE_MASK_NOCLOSEPROCESS = &H40

Public Const SEE_MASK_FLAG_NO_UI = &H400

Declare Function ShellExecuteEX Lib "shell32.dll" Alias _

"ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As Long

代码：

' 使用： ShowProps("c:command.com",Me.hWnd)

Public Sub ShowProps(FileName As String, OwnerhWnd As Long)

Dim SEI As SHELLEXECUTEINFO

Dim r 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

r = ShellExecuteEX(SEI)

End Sub