Differenze tra le versioni di "Sapere se il programma Gambas sta funzionando come progetto oppure come eseguibile .gambas"
Da Gambas-it.org - Wikipedia.
| Riga 2: | Riga 2: | ||
Qualora sia stato lanciato un file eseguibile, il file ''cmdline'', presente nella cartella del processo del programma medesimo, riporta una stringa contenente alla fine il nome del programma comprensivo dell'estensione .gambas più il carattere di file stringa '\0' (ossia Chr(0)). | Qualora sia stato lanciato un file eseguibile, il file ''cmdline'', presente nella cartella del processo del programma medesimo, riporta una stringa contenente alla fine il nome del programma comprensivo dell'estensione .gambas più il carattere di file stringa '\0' (ossia Chr(0)). | ||
| − | |||
Dunque è possibile utilizzare questo semplice codice: | Dunque è possibile utilizzare questo semplice codice: | ||
| Riga 14: | Riga 13: | ||
'''End''' | '''End''' | ||
| − | |||
oppure quest'altro molto simile al precedente: | oppure quest'altro molto simile al precedente: | ||
| Riga 21: | Riga 19: | ||
Dim s As String | Dim s As String | ||
| − | + | s = File.Load("/proc" &/ CStr(Application.Id) &/ "comm") | |
| − | + | If Left(s, 4) = "gbx3" Then | |
| − | + | Print "Applicazione lanciata come progetto" | |
| − | + | Else | |
| − | + | Print "Applicazione lanciata da un file eseguibile '.gambas'" | |
| − | + | Endif | |
'''End''' | '''End''' | ||
Versione delle 16:07, 28 giu 2021
Per sapere se il programma Gambas sta funzionando come progetto oppure come eseguibile .gambas, bisogna prendere in considerazione del fatto che nel nome del file eseguibile troviamo anche l'estensione .gambas .
Qualora sia stato lanciato un file eseguibile, il file cmdline, presente nella cartella del processo del programma medesimo, riporta una stringa contenente alla fine il nome del programma comprensivo dell'estensione .gambas più il carattere di file stringa '\0' (ossia Chr(0)).
Dunque è possibile utilizzare questo semplice codice:
Public Sub Main()
If File.Load("/proc" &/ CStr(Application.Id) &/ "cmdline") Like "*.gambas\x00" Then
Print "Applicazione lanciata da un file eseguibile '.gambas'"
Else
Print "Applicazione lanciata come progetto"
Endif
End
oppure quest'altro molto simile al precedente:
Public Sub Main()
Dim s As String
s = File.Load("/proc" &/ CStr(Application.Id) &/ "comm")
If Left(s, 4) = "gbx3" Then
Print "Applicazione lanciata come progetto"
Else
Print "Applicazione lanciata da un file eseguibile '.gambas'"
Endif
End
