Avrei realizzato una libreria esterna, avente nome:
libpid.so, richiamabile nelle dovute forme con la funzione
Extern, con la quale è possibile conoscere il PID del processo del proprio programma (ossia di quello che sta usando la libreria esterna).
Se mai dovesse essere utile, l'allego qui appresso in un file da decomprimere, che gli
iscritti al forum potranno scaricare.
La funzione esterna da richiamare è:
int pid()e restituisce appunto un valore di tipo
Integer.
Facciamo un essenziale esempio pratico.
Decomprimiamo il file compresso che contiene i due file della libreria. Poniamo questi due file nella cartella "
Dati" del progetto, poi scriviamo il seguente codice, con il quale otterremo in console il PID del progetto medesimo:
Library "/tmp/libpid"
Public Sub Form_Open()
' Andiamo a caricare i due file della libreria nella cartella /tmp del sistema:
If Not Exist("/tmp/libpid.so") Then Copy "libpid.so" To "/tmp/libpid.so"
If Not Exist("/tmp/libpid.so.0.0") Then Copy "libpid.so.0.0" To "/tmp/libpid.so.0.0"
End
' Dichiariamo la funzione esterna contenuta nella libreria .so:
Private Extern pid() As Integer
Public Sub Button1_Click()
Dim a As Integer
' Utilizziamo la funzione esterna presente
' nella libreria "libpid":
a = pid()
Print a
End
Allego la libreria ed il sorgente completo.
