FoxPro/Visual FoxPro - Ejecutar unica instancia de un programa

   
Vista:

Ejecutar unica instancia de un programa

Publicado por kong (681 intervenciones) el 29/07/2008 02:17:27
Saludos a Todos.
En la semana pasada puse un post sobre como seria la mejor forma para que un programa sea ejecutada en una sola instancia, que no se repita la ejecucion del mismo programa. Al final decidí utilizar uno de los metodos, el mas simple......
Ahora por favor quisieran que Aprueben o Refuten esta Rutina.
...........................
FUNCTION F_INSTANCIAR
PUBLIC nHdlCorriendo
nHdlCorriendo=FCREATE("D:corriendo.txt")
IF nHdlCorriendo<0
SET SYSMENU OFF
_SCREEN.WindowStatE= 2
MESSAGEBOX("C U I D A D O !"+CHR(13)+CHR(13)+;
"USTED HA INTENTANDO EJECUTAR OTRA INSTANCIA DEL MISMO SISTEMA"+CHR(13)+;
"(Esta instancia se cerrara automaticamente)",(0+48),;
"DOBLE INICIO DEL SISTEMA",10000)
RELEASE WINDOWS
QUIT
ENDIF
RETURN salir
............................

Gracias por sus comentarios
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ejecutar unica instancia de un programa

Publicado por Plinio (7771 intervenciones) el 29/07/2008 03:46:44
El Letrero de "CUIDADO" podria asustar.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ejecutar unica instancia de un programa

Publicado por HELDER MARTINEZ (710 intervenciones) el 29/07/2008 21:28:22
"Aviso"
"La aplicacion ya se esta ejecutando"
"Imposible ejecutar la aplicacion dos veces"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ejecutar unica instancia de un programa

Publicado por kong (681 intervenciones) el 30/07/2008 04:27:45
que tal.
ya suponia que estaba bien esta rutina.....
Sobre la advertencia CUIDADO!, es porque quiero poner un poco de miedo para que no se pongan a hacer travesuras con la PC.
.......
otra vez, Gracias por sus comentarios
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar