Lunes 23 de Diciembre de 2024, 10:41
SoloCodigo
Bienvenido(a),
Visitante
. Por favor,
ingresa
o
regístrate
.
¿Perdiste tu
email de activación?
Inicio
Foros
Chat
Ayuda
Buscar
Ingresar
Registrarse
SoloCodigo
»
Foros
»
Programación General
»
Visual Basic 6.0 e inferiores
(Moderador:
F_Tanori
) »
Ejecutar Aplicaciones
« anterior
próximo »
Imprimir
Páginas: [
1
]
Autor
Tema: Ejecutar Aplicaciones (Leído 765 veces)
BiosZip
Nuevo Miembro
Mensajes: 1
Ejecutar Aplicaciones
«
en:
Lunes 7 de Junio de 2004, 20:52 »
0
cuando uso el x = shell("miapp.exe"), me da el hWnd, pero no se como conseguir saber cuando la aplicacion se ha cerrado, para q mi programa se cierrar tambien con el
Tweet
Brroz
Miembro de PLATA
Mensajes: 1058
Re: Ejecutar Aplicaciones
«
Respuesta #1 en:
Viernes 11 de Junio de 2004, 11:04 »
0
Hola BiosZip.
Fíjate en el ejemplo:
Código: Text
Option Explicit
Private Const STILL_ACTIVE = &H103
Private Const PROCESS_QUERY_INFORMATION = &H400
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)
Public Sub EjecutoYAlAcabarMeFinalizo(ByVal Exe As String)
On Error GoTo Err_Sinc
Dim lng1 As Long, lngRc As Long
lng1 = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(Exe, vbNormalFocus))
Do
GetExitCodeProcess lng1, lngRc
Sleep 100
DoEvents
Loop While lngRc = STILL_ACTIVE
End
Exit Sub
Err_Sinc:
MsgBox "Fallo Ejecutando pgm '" & Exe & "'." & String(2, vbCrLf) _
& "(" & Err.Number & ") " & Err.Description, vbCritical, "Sincronizar"
End Sub
Abur.
Imprimir
Páginas: [
1
]
« anterior
próximo »
SoloCodigo
»
Foros
»
Programación General
»
Visual Basic 6.0 e inferiores
(Moderador:
F_Tanori
) »
Ejecutar Aplicaciones