Mensajes: 18
Temas: 5
Gracias Recibidas: 0 en 0 posts
Gracias Dadas: 0
Registro en: Sep 2020
Hola gente, estoy buscando por internet y dentro del foro y no escuentro nada al respecto, seguramente estoy buscando mal.
La cuestión es que quiero que mi aplicación no se pueda ejecutar varias veces al mismo tiempo, y no encuentro como armar el registro que busque si la aplicación ya está corriendo.
Gracias de antemano
Mensajes: 196
Temas: 23
Gracias Recibidas: 3 en 3 posts
Gracias Dadas: 1
Registro en: Jul 2020
Propongo esta pagina del wiki del foro italiano de Gambas:
https://www.gambas-it.org/wiki/index.php...A0_avviato
"Los horizontes perdidos nunca regresan. " (F. Battiato, La stagione dell'amore, 1983)
"Las ondas nunca regresan. " (Genesis: Ripples - A trick of the tail, 1976)
Mensajes: 18
Temas: 5
Gracias Recibidas: 0 en 0 posts
Gracias Dadas: 0
Registro en: Sep 2020
geniale!!! per tutti i gusti
Mensajes: 196
Temas: 23
Gracias Recibidas: 3 en 3 posts
Gracias Dadas: 1
Registro en: Jul 2020
10-02-2021, 06:17
(Última modificación: 10-02-2021, 06:18 por
vuott.)
Añado también este código con los únicos recursos de Gambas, leyendo un par de archivos de la carpeta del proceso del programa .gambas lanzado.:
GAMBAS
Public Sub Form_Activate
() ' o Sub Main() con un programa con "interfaz de linea de comandos"
cmdline
= File.
Load("/proc" &/ s
&/ "cmdline") id.
Push(Split(File.
Load("/proc" &/ s
&/ "stat"),
Chr(32))[0])
"Los horizontes perdidos nunca regresan. " (F. Battiato, La stagione dell'amore, 1983)
"Las ondas nunca regresan. " (Genesis: Ripples - A trick of the tail, 1976)
Mensajes: 86
Temas: 27
Gracias Recibidas: 0 en 0 posts
Gracias Dadas: 1
Registro en: Jul 2020
10-02-2021, 22:08
(Última modificación: 10-02-2021, 22:12 por
kokodrilo.)
GAMBAS
subR1.ExisteCarpeta(vp.DirBD)
subR1.ExisteCarpeta(vp.DirConfig)
subLog.Activar()
Try hLock
= Lock vp.
DirConfig &/ ".lock" subR1.EscucharSonido("Sonidos/atencion.ogg") '04 ene 2021
Message.
Warning("VisorRV1960 ya se encuentra abierto!!" & gb.
NewLine & gb.NewLine & "Si esta seguro que abrió VisorRV1960 una sola vez, intente desde consola: visorrv1960 -l")
'en evento close esto:
Kill vp.
DirConfig &/ ".lock"
El tiempo de las manifestaciones caducó pero el boicot con auto sacrificio es el camino para derrotar al sistema.