Desaware Inc.- Articles: Components and Tools for Microsoft Visual Studio Developers

Desaware Inc.- Articles: Components and Tools for Microsoft Visual Studio Developers:

Private Sub cmdWatch_Click()

Dim ProcessId&

Dim hProcess&
Dim ExitCode&
ProcessId = Shell('project1.exe', vbNormalFocus)
hProcess = OpenProcess(PROCESS_QUERY_ INFORMATION, _
False, ProcessId)
cmdWatch.Enabled = False
Do
Call GetExitCodeProcess(hProcess, ExitCode)
DoEvents
Loop While (ExitCode = STILL_ACTIVE)
cmdWatch.Enabled = True
Call CloseHandle(hProcess)
End Sub