Si esta abierta la aplicación, no abrirla de nuevo

Buenas tardes
Me gustaría saber si existe algún código en Foxpro que busque si un exe o aplicación este abierta .
Esto es porque me topo con que, el usuario abre varias veces la aplicación y corrompe la base de datos
Saludos y gracias

1 respuesta

Respuesta
1
El código es el siguiente
LOCAL ventana
DECLARE INTEGER FindWindow IN Win32API INTEGER, STRING
ventana = findwindow(0, "nombre_ventana")
_SCREEN.caption = 'nombre_ventana_programa.'
IF ventana <> 0
MESSAGEBOX("El sistema ya se esta ejecutando!", 16)
QUIT
ELSE
_SCREEN.caption = 'nombre_ventana_programa'
Endif
Pero si dices que corrompe las tablas tal vez estas programando de manera incorrecta dale un viataso a mi blog para informate de una técnica más eficaz de manejar las tablas.
http://ingesoftsrl.mi-web.es/board/trabajando-en-modo-multiusuario-t3.html

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas