VB Forum / General / July 2004

Hello

Lots of ways to do this, below is a function fire the process (and hide with
the flags shown) and another to test and see whether it has terminated or
not.
Hope this helps

ZipDC.

'Process monitoring
Private Const INFINITE = -&H1
Private Const SYNCHRONIZE = &H100000
Private Const STILL_ACTIVE = &H103
Private Const PROCESS_QUERY_INFORMATION As Long = &H400
Private Const PROCESS_TERMINATE As Long = &H1

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess
As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess
As Long, lpExitCode As Long) As Long

Private Function ShellAndContinue(ByVal AppToRun As String) As Long

Dim hProcess As Long

Const dwAccess As Long = PROCESS_QUERY_INFORMATION Or SYNCHRONIZE Or
PROCESS_TERMINATE

   'The next line launches AppToRun, captures process ID
   hProcess = OpenProcess(dwAccess, 1, Shell(AppToRun, vbHide))

ShellAndContinue = hProcess

End Function

Private Function MonitorProcess(ByVal hProcess As Long) As Boolean
'Function to detrmine if process is still active

Dim Retval As Long

   GetExitCodeProcess hProcess, Retval
   If Retval = STILL_ACTIVE Then
       MonitorProcess = True
   Else
       MonitorProcess = False
   End If

End Function

Do a groups Google for "Shell and Wait"