Visual Basic - Cuando cierra?

Life is soft - evento anual de software empresarial
 
Vista:

Cuando cierra?

Publicado por Daniel (63 intervenciones) el 11/04/2005 22:47:38
Llamo a otra aplicacion desde mi programa (x= shell("calculadora"), por citar un ejemplo, lo que quiero es saber desde mi aplicacion cuando se cierra la otra, hay alguna manera?

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:Cuando cierra?

Publicado por Edu (138 intervenciones) el 11/04/2005 23:17:00
Cuando se cierra cual otra???
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

Cuando cierra la aplicación

Publicado por Benjo (679 intervenciones) el 12/04/2005 04:07:38
Debés chequear el estado del proceso que abris.

Private Declare Function OpenProcess Lib "Kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "Kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Const STILL_ACTIVE = &H103
Const PROCESS_QUERY_INFORMATION = &H400

Sub CAllShell32(ByVal JobToDo As String)
Dim hProcess As Long
Dim RetVal As Long
'Captura el processID
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(JobToDo, 1))

Do

'Toma el estado del poceso
GetExitCodeProcess hProcess, RetVal

DoEvents: Sleep 100

'Vuelve al ciclo si el proceso está activo
Loop While RetVal = STILL_ACTIVE
MsgBox "se cerró la aplicación"

End Sub

Private Sub Command1_Click()
CAllShell32 Text1.Text
End Sub

Colocá en tu Form un textBox con la propiedad .text = "calc.exe"

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