Differenze tra le versioni di "Sapere se il programma Gambas sta funzionando come progetto oppure come eseguibile .gambas"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "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 eseguibi...") |
|||
| 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 7: | Riga 8: | ||
If File.Load("/proc" &/ CStr(Application.Id) &/ "cmdline") Like "*.gambas\x00" Then | If File.Load("/proc" &/ CStr(Application.Id) &/ "cmdline") Like "*.gambas\x00" Then | ||
| − | Print " | + | Print "Applicazione lanciata da un file eseguibile '.gambas'" |
Else | Else | ||
| − | Print " | + | Print "Applicazione lanciata come progetto" |
Endif | 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''' | '''End''' | ||
Versione delle 17:10, 13 dic 2016
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
