Visualizza wikitesto di Lanciare un programma esterno conoscendo soltanto il nome del suo file eseguibile presente nel sistema

Bisognerà attivare anche i Componenti "gb.desktop" e "gb.desktop.x11".
<BR>Si farà uso delle Classi ''DesktopFile'' e ''DesktopWindow''.
Poniamo il caso in cui desideriamo lanciare il programma della "Calcolatrice" di "Gnome", del quale il nome del file eseguibile è "gnome-calculator" e il cui percorso è "''/usr/bin/gnome-calculator'' ".
<BR>Dopo aver lanciato il programma della ''Calcolatrice'', provvederemo a centrare la sua finestra sulla Scrivania.
 Private pr As Process
 
 
 Public Sub Button1_Click()
 
  Dim df As New DesktopFile(Null)
  Dim dw As DesktopWindow
 
 <FONT Color=darkgreen>' ''Lancia il programma della "Calcolatrice" e ne intercetta il Processo:''</font>
  pr = df.Run(System.Find("gnome-calculator"))
 
 
 <FONT Color=darkgreen>' ''Provvede a centrare la finestra della "Calcolatrice" sulla Scrivania:''</font>
  Repeat 
    Wait 0.01
 <FONT Color=gray>' ''Attende che la finestra della "Calcolatrice" sia apparsa sulla Scrivania:''</font>
  Until Desktop.FindWindow(Null, Null, "gnome-calculator").Count > 0
 
  dw = New DesktopWindow(Desktop.FindWindow(Null, Null, "gnome-calculator")[0])
 
 <FONT Color=gray>' ''Centra la finestra della "Calcolatrice" sulla Scrivania:''</font>
  dw.Move((Screen.W - dw.W) / 2, (Screen.H - dw.H) / 2)
 
 End
 
 
 Public Sub Button2_Click()
 
 <FONT Color=gray>' ''Chiude il programma "Calcolatrice" uccidendone il Processo:''</font>
  pr.Kill
  
 End