Apertura e chiusura di un processo mediante Process

Da Gambas-it.org - Wikipedia.

Esempio con programma in ambiente grafico:

Private hpro As Process


Public Sub Button1_Click()

' Parte l'applicazione, per esempio “ Gedit “:
  hpro = Exec ["gedit"] As "processo"

' oppure si può usare "Shell":
  hpro = Shell "gedit" As "processo"

End


Public Sub button2_Click()

' Elimina il processo dell'applicazione:
  hpro.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 pr As Process


Public Sub Main()
 
 pr = 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:
 pr.Kill
 
' Chiude l'applicazione:
 Quit
  
End