控制程序

[chinasqf]

Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFFFFFF
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private 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 Sub Command1_Click()

shellzx = App.Path & "\test.cer"

Dim pId As Long, pHnd As Long
pId = ShellExecute(1234, "", shellzx, "", "", 1)
pHnd = OpenProcess(SYNCHRONIZE, 0, pId)
If pHnd <> 0 Then
Call WaitForSingleObject(pHnd, INFINITE)
Call CloseHandle(pHnd)
End If


MsgBox "OK"

End Sub

为什么控制不了上面的进程，上面的进程还没有关闭 MSGBOX “ok” 就执行了。PHND每次返回来的值都是空的。

[bydisplay]

加一段延时程序看看

[cdknet]

因为 pId = ShellExecute(1234, "", shellzx, "", "", 1)会异步执行的，所以还没有执行完下一句就开始执行了，这样当然pID为空咯，要在 这句后面进行延时操作

[cdknet]

主要是这个 ShellExecute API 是以异步方式执行的