WinExec使用方法！小妹我谢谢了！！帮我看看

WinExec使用方法！小妹我谢谢了！！帮我看看
Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Private Sub Command1_Click()
Dim hWnd As Integer
hWnd = WinExec("Explorer http://www.163.com", SW_MINIMIZE)
End Sub打开163最小化不能用

解决方案 »

  1.   

    Option ExplicitPrivate 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
    Private Const SW_MINIMIZE As Long = 6Private Sub Command1_Click()
    ShellExecute 0, "open", "IEXPLORE.EXE", "http://www.163.com", vbNullString, SW_MINIMIZE
    End Sub