[已解决]再求助（关于shell)

hwc2ycy

1. Option Explicit
   
2. 
   
3. Private Declare Function ShellExecute _
   
4.                             Lib "shell32.dll" _
   
5.                             Alias "ShellExecuteA" ( _
   
6.                             ByVal hwnd As Long, _
   
7.                             ByVal lpOperation As String, _
   
8.                             ByVal lpFile As String, _
   
9.                             ByVal lpParameters As String, _
   
10.                             ByVal lpDirectory As String, _
    
11.                             ByVal nShowCmd As Long) _
    
12.                             As Long
    
13. 
    
14. Private Sub Command1_Click()
    
15.    Dim r As Long
    
16.    r = ShellExecute(0, "open", "D:\txz\rich4\rich42.exe", 0, "D:\txz\rich4", 1)
    
17. End Sub

复制代码

hwc2ycy

上面要是不行再换下同的。

1. Option Explicit
   
2. 
   
3. Private Declare Function ShellExecute _
   
4.                             Lib "shell32.dll" _
   
5.                             Alias "ShellExecuteA" ( _
   
6.                             ByVal hwnd As Long, _
   
7.                             ByVal lpOperation As String, _
   
8.                             ByVal lpFile As String, _
   
9.                             ByVal lpParameters As String, _
   
10.                             ByVal lpDirectory As String, _
    
11.                             ByVal nShowCmd As Long) _
    
12.                             As Long
    
13. 
    
14. Private Sub Command1_Click()
    
15.    Dim r As Long
    
16.    r = ShellExecute(0, "open", "D:\txz\rich4\rich42.exe", 0, 0, 1)
    
17. End Sub

复制代码

ztccsj

hwc2ycy 发表于 2012-12-11 22:54

太棒了，我还以为是一个无法解决的问题呢，谢谢你，成功了