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 "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 il processo dell'applicazione "Gedit":
 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 "cvlc":
 pro.Kill
  
End


Public Sub Processo_Kill()

 Print "Il processo è stato terminato !"

' Chiude l'applicazione Gambas:
 Quit

End