|
Página 1 de 1
|
¿Como Impedir Que Un Programa Gambas Se Ejecute Mas De Una Vez?[Resuelto]
Autor |
Mensaje |
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
¿Como Impedir Que Un Programa Gambas Se Ejecute Mas De Una Vez?[Resuelto]
buenas
creo que hay un post sobre este tema pero no logro encontrarlo
la cuestión es esa, en el caso de VisorRV1960 se habré mas de una vez lo que no debe pasar.
como identificar el proceso para después hacer una comprobación.?
lo peor que el nombre del proceso de VisorRV1960 no es por su nombre sino que aparece como gbr3
alguien ya resolvió este tema?
estoy mirando varios comando para identificar el pid o nombre pero el problema mayor es lo del gbr3
saludos.
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
última edición por v3ctor el Domingo, 15 Abril 2018, 15:53; editado 1 vez
|
#1 Miercoles, 11 Abril 2018, 04:28 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
Re: ¿Como Impedir Que Un Programa Gambas Se Ejecute Mas De Una Vez?
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
|
#2 Miercoles, 11 Abril 2018, 05:33 |
|
|
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación: Al otro lado de la pantalla
|
Re: ¿Como Impedir Que Un Programa Gambas Se Ejecute Mas De Una Vez?
v3ctor:
De los dos antiguos enlaces, uno no existe y el otro FireFox lo da como sitio engañoso.
¿ Y cómo es que se abre más veces la misma aplicación ?.
Saludos
=================== Gambas Básico
"No es un bug, es una característica no documentada"
|
#3 Miercoles, 11 Abril 2018, 12:58 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
Re: ¿Como Impedir Que Un Programa Gambas Se Ejecute Mas De Una Vez?
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
|
#4 Miercoles, 11 Abril 2018, 15:01 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
Re: ¿Como Impedir Que Un Programa Gambas Se Ejecute Mas De Una Vez?
v3ctor:
De los dos antiguos enlaces, uno no existe y el otro FireFox lo da como sitio engañoso.
¿ Y cómo es que se abre más veces la misma aplicación ?.
Saludos
pues así es y algunas aplicaciones esta bien que se habrán muchos como el caso de firefox o el mismo gambas y otros pero con visor no le veo el sentido
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
|
#5 Miercoles, 11 Abril 2018, 15:05 |
|
|
didier18
Aprendiz
Registrado: Junio 2014
Mensajes: 84
Edad: 66 Ubicación:
|
Re: ¿Como Impedir Que Un Programa Gambas Se Ejecute Mas De Una Vez?
Hola
¿Quizás esta solución le sea útil?
Uso esta rutina en el procedimiento "Public sub_new()" de img2key...
Dim sretourinfo as string
Dim tinstance As String[]
'--------------------------------------------------------------------------------------
'evite une nouvelle instance si déjà en cours d'utilisation
'--------------------------------------------------------------------------------------
Shell "ps ax | grep gbr3 | grep img2key | awk '{print $1}'" To sretourinfo
tinstance = Split(sretourinfo, gb.NewLine)
If tinstance.Count - 1 > 2 Then 'si la valeur est supérieur à 2 c'est une ouverture supplémentaire
smsg = ("Img2key est déjà en cours d'utilisation.") & "\n"
smsg &= ("Il ne peut y avoir qu'une seule instance") & "\n"
smsg &= ("en cours d'exécution.") & "\n"
Message.Title = ("Double ouverture")
Message.Info(smsg, ("OK"))
Shell "Kill -9 " & tinstance[1] 'dès que l'utilisateur a cliqué sur OK tue le process de la nouvelle instance
Me.Close 'puis ferme
Endif
Por supuesto que será necesario adaptarlo según sus necesidades....
Que tengas un buen día.
|
#6 Miercoles, 11 Abril 2018, 17:29 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación:
|
Re: ¿Como Impedir Que Un Programa Gambas Se Ejecute Mas De Una Vez?
|
#7 Miercoles, 11 Abril 2018, 23:37 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
Re: ¿Como Impedir Que Un Programa Gambas Se Ejecute Mas De Una Vez?
Excelente hay para elegir y muestra que hay muchas formas de hacerlo gracias
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
|
#8 Domingo, 15 Abril 2018, 15:51 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
Re: ¿Como Impedir Que Un Programa Gambas Se Ejecute Mas De Una Vez?
Hola
¿Quizás esta solución le sea útil?
Uso esta rutina en el procedimiento "Public sub_new()" de img2key...
Dim sretourinfo as string
Dim tinstance As String[]
'--------------------------------------------------------------------------------------
'evite une nouvelle instance si déjà en cours d'utilisation
'--------------------------------------------------------------------------------------
Shell "ps ax | grep gbr3 | grep img2key | awk '{print $1}'" To sretourinfo
tinstance = Split(sretourinfo, gb.NewLine)
If tinstance.Count - 1 > 2 Then 'si la valeur est supérieur à 2 c'est une ouverture supplémentaire
smsg = ("Img2key est déjà en cours d'utilisation.") & "\n"
smsg &= ("Il ne peut y avoir qu'une seule instance") & "\n"
smsg &= ("en cours d'exécution.") & "\n"
Message.Title = ("Double ouverture")
Message.Info(smsg, ("OK"))
Shell "Kill -9 " & tinstance[1] 'dès que l'utilisateur a cliqué sur OK tue le process de la nouvelle instance
Me.Close 'puis ferme
Endif
Por supuesto que será necesario adaptarlo según sus necesidades....
Que tengas un buen día.
gracias, si al parecer a muchas soluciones, el tema sera elegir o saber cual usar, saludos.
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
|
#9 Domingo, 15 Abril 2018, 15:52 |
|
|
|
Temas parecidos
Temas parecidos
|
Página 1 de 1
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado Usuarios registrados conectados: Ninguno
|
No puede crear mensajes No puede responder temas No puede editar sus mensajes No puede borrar sus mensajes No puede votar en encuestas No puede adjuntar archivos Puede descargar archivos No puede publicar eventos en el calendario
|
|
|
|
|