RE:Cerrar otro programa al cerrar mi aplicación
Este es el código que utilizo yo para cerrar procesos. La variable Aplicacion debe contener el nombdre de la aplicación tal y como aparece en el administrador de tareas (W2k o XP).
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CLOSE = &H10
Private Sub NOMBRE_FUNCION()
Dim winHwnd As Long
Dim RetVal As Long
Dim Aplicacion As String
Aplicacion = "NOMBRE_APLICACION" 'Nombre de la aplicacion/proceso a cerrar
winHwnd = FindWindow(vbNullString, Aplicacion)
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
End If
End
End Sub