Sapere se il programma Gambas sta funzionando come progetto oppure come eseguibile .gambas

Da Gambas-it.org - Wikipedia.
Versione del 13 dic 2016 alle 10:06 di Vuott (Discussione | contributi) (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...")

(diff) ← Versione meno recente | Versione attuale (diff) | Versione più recente → (diff)

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 "Funziona lanciato da un file eseguibile '.gambas'"
 Else
   Print "Funaiona lanciato come progetto."
 Endif

End