Visualizza wikitesto di 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 <FONT Color=red>pro</font> As Process
 
 
 Public Sub Button1_Click()
 
 <Font Color=gray>' ''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:''</font>
  <FONT Color=red>pro</font> = Shell "gedit" As "<Font Color=blue>Processo</font>"
 
 <Font Color=gray>' ''oppure si può usare "Exec":''
 ' '''pro = Exec ["gedit"] As "Processo"'''</font>
 
 End
 
 
 Public Sub button2_Click()
 
 <Font Color=gray>' ''Elimina e chiude il processo dell'applicazione "Gedit":''</font>
  <FONT Color=red>pro</font>.kill
 
 End
 
 
 Public Sub <Font Color=blue>Processo</font>_Kill() <Font Color=gray>' ''Questo evento viene sollevato alla chiusura del programma gestito da "Process"''</font>
 
  Message.Warning("Il processo è stato terminato !")
 
 End
 
 
 Public Sub <Font Color=blue>Processo</font>_Error(Error As String) <Font Color=gray>' ''Questo evento viene sollevato se durante la gestione del processo avviene un errore''</font>
 
  Message.Error(Error)
 
 End


Esempio con programma ''a riga di comando'':
 Private pro As Process
 
 
 Public Sub Main()
  
  pro = Shell "cvlc <Font Color=darkgreen>''/percorso/del/file/multimediale''</font>" As "Processo"
     
 End
 
 
 Public Sub Application_Read()   <Font Color=gray>' ''Basta premere il tasto "Invio" della tastiera per sollevare questo evento.''</font>
  
 <Font Color=gray>' ''Elimina il processo dell'applicazione "cvlc":''</font>
  pro.Kill
   
 End
 
 
 Public Sub Processo_Kill()
 
  Print "Il processo è stato terminato !"
 
 <Font Color=gray>' ''Chiude l'applicazione Gambas:''</font>
  Quit
 
 End
 
 
 Public Sub Processo_Error(Error As String)
 
  Print Error
 
 End