Stop a running .EXE in VBA

[Tommy T-Bag]

Is there a command that works like the opposite of Shell(Pathname)?
I need to stop a running .exe when certain events occur on my Access
form. Thanks

[Tom van Stiphout]

On 28 Mar 2005 14:29:20 -0800, "Tommy T-Bag" <th***********@gmail.com>
wrote:

You can nuke the app out of memory (just like End Task), but a more
elegant way is to post a WM_CLOSE message using the PostMessage
windows API.

-Tom.

Is there a command that works like the opposite of Shell(Pathname)?
I need to stop a running .exe when certain events occur on my Access
form. Thanks

[Tommy T-Bag]

I am not able to get this to work.
I also tried CloseHandle from kernel32.dll
and TerminateProcess.

Based my code on the following examples:
http://www.andreavb.com/tip020021.html
http://www.thevbzone.com/modShellCommand.bas

No luck.
This is driving me nuts.

The reason I need this is to try to "integrate"
a C#.NET form into an Access .adp application.
So that I can click a button in my Access menu,
seamlessly open my .NET form (no problem so
far) but ensure that the .NET form closes if the
user closes their Access window.

A convoluted requirement I know.

[Tommy T-Bag]

Got it working.

Here is the code:

Private Declare Function TerminateProcess Lib "kernel32.dll" _
(ByVal hHandle As Long, _
ByVal uExitCode As Integer) As Boolean

Private Declare Function CloseHandle Lib "kernel32.dll" _
(ByVal hObject As Long) As Boolean

Private Declare Function OpenProcess Lib "kernel32.dll" _
(ByVal lngAccessType As Long, _
ByVal blnInheritHandle As Boolean, _
ByVal lngProcessID As Long) As Long

Private Const STANDARD_RIGHTS_REQUIRED = &HF0000
Private Const SYNCHRONIZE = &H100000
Private Const PROCESS_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED Or _
SYNCHRONIZE Or &HFFF

Private Sub _
Example() ' runs and terminates an executable
Dim bl As Boolean
Dim dbl As Double
Dim hProcess as Long
Dim uExitCode as Integer
dbl = Shell("C:\myFile.exe", vbNormalFocus)
MsgBox "Im sleeping" ' just so you can see it happening
Me.hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, dbl)
bl = TerminateProcess(Me.hProcess, Me.uExitCode)
Call CloseHandle(Me.hProcess)
End Sub