1
Gambas-it
News:
19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Post recenti
2
Intelligenza artificiale / Le nuove KAN superano le precedenti reti neurali
« Ultimo post da vuott il Oggi alle 14:10:37 »4
OpenBar / La prima mappa mondiale ad accesso libero dell'utilizzo delle frequenze satellit
« Ultimo post da vuott il Oggi alle 13:57:53 »5
Intelligenza artificiale / L'intelligenza artificiale ha insegnato a due mini-robot a giocare a calcio
« Ultimo post da vuott il Ieri alle 22:41:37 »6
Programmazione / Re:impedire avvio multiplo
« Ultimo post da vuott il Ieri alle 22:41:04 »...è possibile sapere se il suggerimento di modifica ha funzionato ?
7
Programmazione / Re:impedire avvio multiplo
« Ultimo post da vuott il 15 Maggio 2024, 15:09:55 »...prova a eliminare la parola ".gambas" dal codice.
In sostanza la nuova riga sarà:
In sostanza la nuova riga sarà:
Codice: [Seleziona]
If (cmdline Like "*" & Application.Name & "*") Then8
Intelligenza artificiale / Google espande l'Intelligenza artificiale
« Ultimo post da vuott il 15 Maggio 2024, 13:35:44 »9
Programmazione / Re:impedire avvio multiplo
« Ultimo post da Gratisweb il 15 Maggio 2024, 07:22:02 »Ho provato questo è funziona......
Public Sub Form_Activate() ' oppure "Sub Main()" se il programma è a "linea di comando"
Dim s, cmdline As String
Dim id As New String[]
For Each s In Dir("/proc", "*", gb.Directory)
If Exist("/proc" &/ s &/ "cmdline") Then
cmdline = File.Load("/proc" &/ s &/ "cmdline")
If (cmdline Like "*" & Application.Name & ".gambas*") Then
id.Push(Split(File.Load("/proc" &/ s &/ "stat"), Chr(32))[0])
If id.Count > 1 Then
If id[id.Max] > id[id.Max - 1] Then Quit
Endif
Endif
Endif
Next
End
Ma funziona solo se il file eseguibile finisce con .gambas.....
Ma se il file eseguibile non finisce con .gambas ma non ha estensionee?
Esempio invece di chiamarsi
esempio.gambas si chiama esempio
Perchè appena rinomino il file eseguibile togliendo il .gambas non funziona
Public Sub Form_Activate() ' oppure "Sub Main()" se il programma è a "linea di comando"
Dim s, cmdline As String
Dim id As New String[]
For Each s In Dir("/proc", "*", gb.Directory)
If Exist("/proc" &/ s &/ "cmdline") Then
cmdline = File.Load("/proc" &/ s &/ "cmdline")
If (cmdline Like "*" & Application.Name & ".gambas*") Then
id.Push(Split(File.Load("/proc" &/ s &/ "stat"), Chr(32))[0])
If id.Count > 1 Then
If id[id.Max] > id[id.Max - 1] Then Quit
Endif
Endif
Endif
Next
End
Ma funziona solo se il file eseguibile finisce con .gambas.....
Ma se il file eseguibile non finisce con .gambas ma non ha estensionee?
Esempio invece di chiamarsi
esempio.gambas si chiama esempio
Perchè appena rinomino il file eseguibile togliendo il .gambas non funziona
10
Programmazione / Re:impedire avvio multiplo
« Ultimo post da vuott il 14 Maggio 2024, 23:00:55 »Al riguardo c'è qualcosa qui:
https://www.gambas-it.org/wiki/index.php/Impedire_l%27avvio_di_un_programma.gambas_gi%C3%A0_avviato
https://www.gambas-it.org/wiki/index.php/Impedire_l%27avvio_di_un_programma.gambas_gi%C3%A0_avviato