I
ina
Hello All,
I have a code that close a process. Could someone check this out for
me.
Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, _
lpExitCode As Long) As Long
Sub ExitPLaunch()
Dim TaskID As Long
Dim hProc As Long
Dim lExitCode As Long
Dim ACCESS_TYPE
Dim STILL_ACTIVE
ACCESS_TYPE = &H400
STILL_ACTIVE = &H103
' Shell the task
TaskID = Shell("C:\program files\PLaunch\PLaunch.EXE, 1)
On Error Resume Next
' Get the process handle
hProc = OpenProcess(ACCESS_TYPE, False, TaskID)
On Error GoTo 0
Application.StatusBar = "Waiting for Packhedge application to
finish"
Do
GetExitCodeProcess hProc, lExitCode
DoEvents
Loop While lExitCode = STILL_ACTIVE
' Ouffa is Finshed
End Sub
I have a code that close a process. Could someone check this out for
me.
Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, _
lpExitCode As Long) As Long
Sub ExitPLaunch()
Dim TaskID As Long
Dim hProc As Long
Dim lExitCode As Long
Dim ACCESS_TYPE
Dim STILL_ACTIVE
ACCESS_TYPE = &H400
STILL_ACTIVE = &H103
' Shell the task
TaskID = Shell("C:\program files\PLaunch\PLaunch.EXE, 1)
On Error Resume Next
' Get the process handle
hProc = OpenProcess(ACCESS_TYPE, False, TaskID)
On Error GoTo 0
Application.StatusBar = "Waiting for Packhedge application to
finish"
Do
GetExitCodeProcess hProc, lExitCode
DoEvents
Loop While lExitCode = STILL_ACTIVE
' Ouffa is Finshed
End Sub