高校问答看着你离开:ShellExecute返回值
来源：百度文库 编辑：高校问答 时间：2024/05/03 10:23:00
不论\ff.dwg是否存在，是否能被打开，是否打开都返回2
我使用VB6.0 代码如下
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpszOp As String, _
ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal LpszDir As String, ByVal FsShowCmd As Long) _
As Long
Const SW_SHOW = 5
Dim lr As Long
Private Sub Form_Load()
lr = ShellExecute(0, "Open", App.Path & "\ff.dwg", "", "", SW_SHOW)
End Sub
Private Sub Command1_Click()
Print lr
End Sub
我使用VB6.0 代码如下
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpszOp As String, _
ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal LpszDir As String, ByVal FsShowCmd As Long) _
As Long
Const SW_SHOW = 5
Dim lr As Long
Private Sub Form_Load()
lr = ShellExecute(0, "Open", App.Path & "\ff.dwg", "", "", SW_SHOW)
End Sub
Private Sub Command1_Click()
Print lr
End Sub
我也遇到类似的。