Armas
12 de Noviembre del 2004

Hola necesito cerrar una aplicacion creada en visual basic, el problema es que con el AppActivate no la cierrar, he utilizado el FindWindow pero necesito saber el nombre de la clase de ventana,..... mi pregunta es como lo puedo sacar si es una aplicacion creada en visual basic y solo he podido obtener el nombre de clase de ventanas pero de Windows, espero me puedan responder, se los agradeceria mucho

en?
12 de Noviembre del 2004

hola Armas, si lo que quieres es cerrar la aplicación, usa FindWindow para obtener el handle de esa ventana, y luego PostMessage para ordenarle que se cierre.

Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Const WM_CLOSE As Long = &H10

'*******************
Dim Handle As Long
Dim Retorno As Long

Handle = FindWindow("ThunderRT6FormDC", "Título de la ventana")
Retorno = PostMessage(Handle, WM_CLOSE, 0&, 0&)
'*******************


Un saludo.