關閉主要視窗
無引數
傳回成功與否
Private Sub Command1_Click() Dim pi As New cProcess pi.Start "C:\Windows\system32\calc.exe" ' do something pi.EmptyWorkSet ' do something pi.WaitForIdle 5000 ' do something pi.WaitForExit 5000 Debug.Print "Waitting second=" & pi.WaitMilliseconds / 1000 ' do something Debug.Print "ProcessId=" & pi.Id Debug.Print "hProcess=" & pi.Handle Debug.Print "hWnd=" & pi.MainWindowHandle ' do something pi.CloseMainWindow If Not pi.HasExited Then pi.Kill Debug.Print pi.ExitCode End Sub
部分程式會設計成允許啟動視窗關閉後,程序仍繼續執行。
Visual Basic 4 以後 | 需同時引用modWindow模組 | cProcess.bas
|