Visual Basic - terminar un programa en ejecucion

Life is soft - evento anual de software empresarial
 
Vista:

terminar un programa en ejecucion

Publicado por josue (146 intervenciones) el 10/06/2005 04:28:45
quisera que me ayuden a saber el codigo de como poder terminar un programa k se encuentra en ejecucion.
ejm: si el notepad esta abierrto ps k al presionar un boton el programa notepad se termine o finalize..
gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:terminar un programa en ejecucion

Publicado por SetFocus (183 intervenciones) el 10/06/2005 04:44:59
Hola! muy parecido a lo que acabo de contestar... Podrias usar la API PostMessage... en el ejemplo lo que hago es cerrar la calculadora de windows. Para probar el ejemplo en un form agrega un boton y en la seccion general del form pega el siguiente codigo:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long

Private 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

Const WM_CLOSE = &H10

Private Sub Command1_Click()

Dim Resultado As Long
Dim Ventana As Long
' Busca la ventana con el titulo "Calculadora"
Ventana = FindWindow(vbNullString, "Calculadora")
' Le envia un mensaje de cierre
Resultado = PostMessage(Ventana, WM_CLOSE, 0&, 0&)

End Sub

Bueno espero sea esto lo que buscas.Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar