Impedire l'avvio di un programma.gambas già avviato - Cronologia

Vuott il 17:21, 26 nov 2024

2024-11-26T17:21:12Z

← Versione meno recente		Versione delle 11:21, 26 nov 2024
Riga 1:		Riga 1:
	Per impedire che un programma Gambas venga aperto involontariamente più volte, sono possibili diverse modalità: <SUP>[[[#Note\|~~Nota~~ 1]]]</sup>		Per impedire che un programma Gambas venga aperto involontariamente più volte, sono possibili diverse modalità: <SUP>[[[#Note\|nota 1]]]</sup>

Vuott il 10:00, 26 nov 2024

2024-11-26T10:00:21Z

← Versione meno recente		Versione delle 04:00, 26 nov 2024
Riga 23:		Riga 23:
	End		End

			----


Riga 36:		Riga 37:
	End		End

			----


Riga 56:		Riga 58:
	End		End

			----


Riga 69:		Riga 72:
	End		End

			----


Riga 97:		Riga 101:
	End		End

			----


Riga 113:		Riga 118:
	End		End

			----


Riga 144:		Riga 150:
	End		End

			----


Riga 169:		Riga 176:
	End		End

			----


Riga 194:		Riga 202:
	La Shell restituisce una stringa formata da tutte le ricorrenze contenenti ''TestDbContabFam.gambas'', per cui agendo sulla lunghezza della sottostringa formata dal punto di inizio della prima ricorrenza e dal punto di fine dell'ultima ricorrenza, si intuisce il numero delle chiamate al programma eseguibile e ne viene permessa solamente una, però se la 2^ chiamata viene fatta dall'ide di Gambas, allora la ricorrenza con estensione ".gambas" viene incontrata una volta sola ed il programma si avvia ugualmente.		La Shell restituisce una stringa formata da tutte le ricorrenze contenenti ''TestDbContabFam.gambas'', per cui agendo sulla lunghezza della sottostringa formata dal punto di inizio della prima ricorrenza e dal punto di fine dell'ultima ricorrenza, si intuisce il numero delle chiamate al programma eseguibile e ne viene permessa solamente una, però se la 2^ chiamata viene fatta dall'ide di Gambas, allora la ricorrenza con estensione ".gambas" viene incontrata una volta sola ed il programma si avvia ugualmente.

			----

Vuott il 21:06, 14 mag 2024

2024-05-14T21:06:03Z

Mostra modifiche

Vuott il 00:46, 11 feb 2021

2021-02-11T00:46:09Z

← Versione meno recente		Versione delle 18:46, 10 feb 2021
Riga 13:		Riga 13:
	If (cmdline Like "" & Application.Name & ".gambas") Then		If (cmdline Like "" & Application.Name & ".gambas") Then
	id.Push(Split(File.Load("/proc" &/ s &/ "stat"), Chr(32))[0])		id.Push(Split(File.Load("/proc" &/ s &/ "stat"), Chr(32))[0])
	If id.Count > 2 Then		If id.Count > 1 Then
	If id[id.Max] > id[id.Max - 1] Then Quit		If id[id.Max] > id[id.Max - 1] Then Quit
	Endif		Endif

Vuott il 00:43, 11 feb 2021

2021-02-11T00:43:24Z

← Versione meno recente		Versione delle 18:43, 10 feb 2021
Riga 3:		Riga 3:

	<FONT color=#B22222>'''1)'''</font> Si leggono i dati presenti nei file "cmdline" e "stat" presenti nella cartella del processo del programma (contenuta a sua volta nella cartella "/proc"):		<FONT color=#B22222>'''1)'''</font> Si leggono i dati presenti nei file "cmdline" e "stat" presenti nella cartella del processo del programma (contenuta a sua volta nella cartella "/proc"):
	'''Public''' Sub Form_Activate() <FONT color=gray>' ''oppure "Sub Main()" se il programma è a "linea di comando"''</font>		'''Public''' Sub Form_Activate() <FONT color=gray>' ''oppure "'''Sub Main()'''" se il programma è a "linea di comando"''</font>

	Dim s, cmdline As String		Dim s, cmdline As String

Vuott il 00:42, 11 feb 2021

2021-02-11T00:42:37Z

← Versione meno recente		Versione delle 18:42, 10 feb 2021
Riga 25:		Riga 25:

	<FONT color=#B22222>'''2)'''</font>		<FONT color=#B22222>'''2)'''</font>
			<BR>Il seguente codice vale solo per programmi in ambiente grafico.
			<BR>E' necessario attivare il Componente ''gb.desktop''.
			'''Public''' Sub Form_Open()

			For i As Integer = 0 To Desktop.Windows.Count - 1
			If Desktop.Windows[i].Name = Application.Name Then Me.Close
			Next

			'''End'''



			<FONT color=#B22222>'''3)'''</font>
			<BR>Il seguente codice vale solo per programmi in ambiente grafico.
			<BR>E' necessario attivare il Componente ''gb.desktop''.
	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

Riga 42:		Riga 57:


	<FONT color=#B22222>'''3)'''</font>		<FONT color=#B22222>'''4)'''</font>
	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

Riga 55:		Riga 70:


	<FONT color=#B22222>'''4)'''</font>		<FONT color=#B22222>'''5)'''</font>
	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

Riga 83:		Riga 98:


	<FONT color=#B22222>'''5)'''</font>		<FONT color=#B22222>'''6)'''</font>
	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

Riga 99:		Riga 114:


	<FONT color=#B22222>'''6)'''</font>		<FONT color=#B22222>'''7)'''</font>
	Private iRun As Integer		Private iRun As Integer
	Private hsettings As Settings		Private hsettings As Settings
Riga 130:		Riga 145:


	<FONT color=#B22222>'''7)'''</font>		<FONT color=#B22222>'''8)'''</font>
	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

Riga 155:		Riga 170:


	<FONT color=#B22222>'''8)'''</font>		<FONT color=#B22222>'''9)'''</font>
	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

Riga 180:		Riga 195:


	<FONT color=#B22222>'''9)'''</font>		<FONT color=#B22222>'''10)'''</font>
	Così dovrebbe funzionare anche in caso che una precedente istanza del programma sia abortita a seguito di errore:		Così dovrebbe funzionare anche in caso che una precedente istanza del programma sia abortita a seguito di errore:
	Private hSetting As Settings		Private hSetting As Settings

Vuott il 15:44, 10 feb 2021

2021-02-10T15:44:33Z

← Versione meno recente		Versione delle 09:44, 10 feb 2021
Riga 2:		Riga 2:


	<FONT color=#B22222>'''1)'''</font> Si leggono i dati presenti nei file "cmdline" e "stat" presenti nella cartella del programma:		<FONT color=#B22222>'''1)'''</font> Si leggono i dati presenti nei file "cmdline" e "stat" presenti nella cartella del processo del programma (contenuta a sua volta nella cartella "/proc"):
	'''Public''' Sub Form_Activate() <FONT color=gray>' ''oppure "Sub Main()" se il programma è a "linea di comando"''</font>		'''Public''' Sub Form_Activate() <FONT color=gray>' ''oppure "Sub Main()" se il programma è a "linea di comando"''</font>

Vuott il 15:43, 10 feb 2021

2021-02-10T15:43:28Z

← Versione meno recente		Versione delle 09:43, 10 feb 2021
Riga 2:		Riga 2:


	<FONT color=#B22222>'''1)'''</font>		<FONT color=#B22222>'''1)'''</font> Si leggono i dati presenti nei file "cmdline" e "stat" presenti nella cartella del programma:
	'''Public''' Sub Form_Activate() <FONT color=gray>' ''oppure "Sub Main()" se il programma è a "linea di comando"''</font>		'''Public''' Sub Form_Activate() <FONT color=gray>' ''oppure "Sub Main()" se il programma è a "linea di comando"''</font>

Riga 15:		Riga 15:
	If id.Count > 2 Then		If id.Count > 2 Then
	If id[id.Max] > id[id.Max - 1] Then Quit		If id[id.Max] > id[id.Max - 1] Then Quit
	Endif		Endif
	Endif		Endif
	Endif		Endif

Vuott il 15:40, 10 feb 2021

2021-02-10T15:40:44Z

Mostra modifiche

Vuott il 02:40, 10 feb 2021

2021-02-10T02:40:56Z

← Versione meno recente		Versione delle 20:40, 9 feb 2021
Riga 5:		Riga 5:

	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

	Dim sOutput As String		Dim sOutput As String