Differenze tra le versioni di "Lanciare un programma esterno conoscendo soltanto il nome del suo file eseguibile presente nel sistema"
Da Gambas-it.org - Wikipedia.
| Riga 3: | Riga 3: | ||
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'' ". | 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. | <BR>Dopo aver lanciato il programma della ''Calcolatrice'', provvederemo a centrare la sua finestra sulla Scrivania. | ||
| + | Private pr As Process | ||
| + | |||
| + | |||
Public Sub Button1_Click() | Public Sub Button1_Click() | ||
| Riga 8: | Riga 11: | ||
Dim dw As DesktopWindow | Dim dw As DesktopWindow | ||
| − | <FONT Color=darkgreen>' ''Lancia il programma della "Calcolatrice":''</font> | + | <FONT Color=darkgreen>' ''Lancia il programma della "Calcolatrice" e ne intercetta il Processo:''</font> |
| − | df.Run(System.Find("gnome-calculator")) | + | pr = df.Run(System.Find("gnome-calculator")) |
| Riga 23: | Riga 26: | ||
dw.Move((Screen.W - dw.W) / 2, (Screen.H - dw.H) / 2) | 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 | End | ||
Versione attuale delle 05:38, 12 ott 2023
Bisognerà attivare anche i Componenti "gb.desktop" e "gb.desktop.x11".
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 ".
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
' Lancia il programma della "Calcolatrice" e ne intercetta il Processo:
pr = df.Run(System.Find("gnome-calculator"))
' Provvede a centrare la finestra della "Calcolatrice" sulla Scrivania:
Repeat
Wait 0.01
' Attende che la finestra della "Calcolatrice" sia apparsa sulla Scrivania:
Until Desktop.FindWindow(Null, Null, "gnome-calculator").Count > 0
dw = New DesktopWindow(Desktop.FindWindow(Null, Null, "gnome-calculator")[0])
' Centra la finestra della "Calcolatrice" sulla Scrivania:
dw.Move((Screen.W - dw.W) / 2, (Screen.H - dw.H) / 2)
End
Public Sub Button2_Click()
' Chiude il programma "Calcolatrice" uccidendone il Processo:
pr.Kill
End
