Mega Code Archive

 

Categories / VisualBasic Script / Windows API

 

Waiting for an application to end

Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long Sub RunCharMap2()     Dim TaskID As Long     Dim hProc As Long     Dim lExitCode As Long     ACCESS_TYPE = &H400     STILL_ACTIVE = &H103     Program = "Charmap.exe"     TaskID = Shell(Program, 1)     hProc = OpenProcess(ACCESS_TYPE, False, TaskID)     If Err <> 0 Then         Debug.Print "Cannot start " & Program, vbCritical, "Error"         Exit Sub     End If     Do         GetExitCodeProcess hProc, lExitCode         DoEvents     Loop While lExitCode = STILL_ACTIVE End Sub