Otra solución:
Usando
GetUsers
Debes tener el Tdatabase abierto y la session para poder preguntar.Por tanto:
-Abres el tdatabase y Session
- preguntas el número de usuarios.
- si nada más que hay 1 usuario (el que pregunta)
- - Creas un archivo en el servidor como semaforo (Mantenimiento.txt)
- - cierras la session y el Tdatabase
- - mandas a borrar los archivos lck y el .net (que tambien se queda a veces).
- - borras el semaforo (Mantenimiento.txt)
- Abres de nuevo el Tdatabase y Session para entrar normalmente a la aplicación.
Para borrarlos, lo fácil es mandar a borrar y listo:
- si hay más usuarios, windows no deja borrarlo
- Si no hay más usuarios, se borran.
Para que nadie entre al programa:
- Antes de conectar la base de datos, miras si existe el archivo Mantenimiento.txt en el servidor, si existe, mensaje al usuario y con timer de 20 segundos preguntas hasta que no exista el archivo.
Saludos