Autor Tema: Ejecutar Aplicaciones (Leído 756 veces)

BiosZip · « **en:** Lunes 7 de Junio de 2004, 20:52 »

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

Brroz

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 &#34;kernel32&#34; (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long
Private Declare Function GetExitCodeProcess Lib &#34;kernel32&#34; (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Sub Sleep Lib &#34;kernel32&#34; (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 &#34;Fallo Ejecutando pgm '&#34; & Exe & &#34;'.&#34; & String(2, vbCrLf) _
    & &#34;(&#34; & Err.Number & &#34;) &#34; & Err.Description, vbCritical, &#34;Sincronizar&#34;
 
End Sub
 
 

Abur.

SoloCodigo

Autor Tema: Ejecutar Aplicaciones (Leído 756 veces)

BiosZip

Ejecutar Aplicaciones

Brroz

Re: Ejecutar Aplicaciones