Apertura e chiusura di un processo mediante Process

Da Gambas-it.org - Wikipedia.

Esempio con programma in ambiente grafico:

Private pro As Process


Public Sub Button1_Click()

' Parte l'applicazione (per esempio "Gedit ").
' Il processo dell'applicazione 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 il processo dell'applicazione:
  pro.kill

End

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

   Print "Il processo è stato terminato !"

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" per sollevare questo evento.
 
' Elimina il processo dell'applicazione:
 pro.Kill
 
' Chiude l'applicazione:
 Quit
  
End

Public Sub Processo_Kill()

 Print "Il processo è stato terminato !"

End