Hola de nuevo
esto te servira, lo siguiente cierra la aplicacion por el titulo de la ventana, tienes que poner exactamente el titulo de la ventana que quieres cerrar
Código:
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const SC_CLOSE = &HF060&
Private Const WM_SYSCOMMAND = &H112
Private Sub Command1_Click()
Dim ClassName As String
Dim hWnd As Long
Dim sTitulo As String
sTitulo = "Doc1 - Microsoft Word" '<---Titulo ventana a cerrar'
hWnd = FindWindow(ClassName, sTitulo)
Call SendMessage(hWnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&)
End Sub
Te recuerdo que en la variable sTitulo hay que escribir exactamente el titulo de la ventana que quieres cerrar, en el ejemplo es --> Doc1 - Microsoft Word
pero si tuvieras habilitadas para que se vieran las extensiones de los archivos en el pc (panel control +opciones de carpeta + ver + ocultar las extensiones de archivo.......... , entonces el titulo de la ventana cambiaria y seria asi--> Doc1.doc - Microsoft Word
salu2
