Apertura e chiusura di un processo mediante Process

Di seguito mostriamo la modalità di base per aprire e chiudere un processo mediante le risorse della Classe Process.

Esempio con programma in ambiente grafico:

Private pro As Process


Public Sub Button1_Click()

' Parte l'applicazione (per esempio "Gedit").
' Il processo dell'applicazione "Gedit" viene gestito con una variabile di tipo "Processo" che viene altresì associata ad un gruppo di Eventi:
 pro = Shell "gedit" As "Processo"

' oppure si può usare "Exec":
' pro = Exec ["gedit"] As "Processo"

End


Public Sub button2_Click()

' Elimina e chiude il processo dell'applicazione "Gedit":
 pro.kill

End


Public Sub Processo_Kill() ' Questo evento viene sollevato alla chiusura del programma gestito da "Process"

 Message.Warning("Il processo è stato terminato !")

End


Public Sub Processo_Error(Error As String) ' Questo evento viene sollevato se durante la gestione del processo avviene un errore

 Message.Error(Error)

End

Esempio con programma a riga di comando:

Private pro As Process


Public Sub Main()
 
 pro = Shell "cvlc /percorso/del/file/multimediale" As "Processo"
    
End


Public Sub Application_Read()   ' Basta premere il tasto "Invio" della tastiera per sollevare questo evento.
 
' Elimina il processo dell'applicazione "cvlc":
 pro.Kill
  
End


Public Sub Processo_Kill()

 Print "Il processo è stato terminato !"

' Chiude l'applicazione Gambas:
 Quit

End


Public Sub Processo_Error(Error As String)

 Print Error

End