Avviare un eseguibile ed attenderne la fine

[DeBe99]

Qualcuno sa come è possibile avviare un'applicazione e attendere o verificaro quando quest'ultima venga chiusa?

[ale500]

per avviare l'applicazione basta fare

shell("c:\bla\bla\applicazione.exe")

per sapere invece se è stata chiusa o cose simili io ho trovato una cosa che sfrutta le API di win ma sinceramente è un po lunghetta....

[DeBe99]

Si adesso sono riuscito anchio a trovare come farlo con le api. A parte un po di dichiarazioni iniziali poi non è cosi complesso. Lo faro cosi... grazie

ciao

[amodio]

potrei sapetre come attendere la fine?
ovvio che avete creato questo 3d per questo

non ve lo terrete nascosto vero?

[xegallo]

Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Const INFINITE = -1
Public Sub ShellWait(ByVal FileName As String, optional WindowStyle As Variant)
    Dim idProc As Long
    Dim hProc As Long
    idProc = VBA.Shell(FileName, WindowStyle)
    hProc = OpenProcess(PROCESS_ALL_ACCESS, False, idProc)
    If hProc <> hNull Then
        Call WaitForSingleObject(hProc, INFINITE)
        Call CloseHandle(hProc)
    End If
End Sub