ShellExecuteEx函数VB6示例

Option Explicit
'ShellExecuteEx函数VB6示例
'
'BY 嗷嗷叫的老马
'http://www.m5home.com/

Private 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
' fields
lpIDList As Long
lpClass As String
hkeyClass As Long
dwHotKey As Long
hIcon As Long
hProcess As Long
End Type

Private Const SEE_MASK_NOCLOSEPROCESS As Long = &H40&
Private Const SEE_MASK_FLAG_NO_UI As Long = &H400&

Private Declare Function ShellExecuteEx Lib "shell32" Alias "ShellExecuteExA" _
(SEI As SHELLEXECUTEINFO) As Long

Private Sub Form_Load()
Dim SEI As SHELLEXECUTEINFO

With SEI
.cbSize = Len(SEI)
.fMask = SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_NO_UI
.lpFile = "system32" '文件名,这里是系统SYSTEM32目录
.lpParameters = vbNullChar '参数
.lpDirectory = vbNullChar '启动目录
.nShow = 1 '是否显示
End With

Call ShellExecuteEx(SEI)
End Sub