Que no se abran automaticamente las conexiones

[pedrohdez]

Hola Marc,

Yo uso un sistema mas de andar por casa, pero me da el resultado apetecido, incluyo un par de linea en el fuente del proyecto (el .dpr) con lo siguiente

if Base.DB.Connected then
ShowMessage('LA BASE DE DATOS ESTA ABIERTA, ESTE EJECUTABLE ES DE USO INTERNO.');
Application.Run;

Es un poco "basto" pero me asegura que no envio el ejecutable a la calle con la BD abierta, a veces cambio el ShowMessage, que es un poco escandaloso, por cambiar el color de fondo de la aplicación a un amarillo fosforescente, que hace el mismo papel.

Saludos
Pedro.