Differenze tra le versioni di "Individuare ID e nome delle finestre attive, nonché il PID dei loro programmi con le risorse del Componente gb.desktop.x11"
Da Gambas-it.org - Wikipedia.
| Riga 15: | Riga 15: | ||
<FONT Color=gray>' ''Di ciascuna finestra aperta mostra in console:'' | <FONT Color=gray>' ''Di ciascuna finestra aperta mostra in console:'' | ||
' ''- l'ID (in esadecimale);'' | ' ''- l'ID (in esadecimale);'' | ||
| − | ' ''- il desktop (numero d'indice) nel quale è aperta'' | + | ' ''- il desktop (numero d'indice) nel quale è aperta''; |
' ''- il PID del programma alla quale appartiene;'' | ' ''- il PID del programma alla quale appartiene;'' | ||
' ''- il nome;''</font> | ' ''- il nome;''</font> | ||
Versione delle 16:50, 8 mag 2021
Usando alcune risorse della Classe statica "X11" del Componente "gb.desktop.x11" è possibile ottenere di ciascuna finestra aperta:
- l'identificativo (ID);
- il desktop (numero d'indice) nel quale è aperta;
- il PID del programma alla quale essa appartiene;
- il nome della finestra.
Di seguito un possibile codice:
Public Sub Form_Open()
Dim i As Integer
Dim ob As Object
For Each i In X11.GetWindowProperty(X11.RootWindow, "_NET_CLIENT_LIST")
' Di ciascuna finestra aperta mostra in console:
' - l'ID (in esadecimale);
' - il desktop (numero d'indice) nel quale è aperta;
' - il PID del programma alla quale appartiene;
' - il nome;
Write "&h" & Hex(i, 8) &
" " &
Format(X11.GetWindowProperty(i, "_NET_WM_DESKTOP")[0], "-#") &
" " &
Format(X11.GetWindowProperty(i, "_NET_WM_PID")[0], "######") & " "
' Potrebbero esserci finestre, come messaggi di errore dal sistema, che non posseggono nome, quindi lo verifica:
ob = X11.GetWindowProperty(i, "_NET_WM_NAME")
If Object.IsValid(ob) Then Write ob[0]
Print
Next
End
