Proteger mi programa

[rruffino]

Buenas a todos. Estoy haciendo un sistema y necesito que me de la posibiliad de "desactivarlo" en un determinado momento, es decir, como si se quedara sin la licencia para funcionar. Estuve pensando y buscando pero no me doy cuenta como hacerlo. Desde ya les doy las gracias.
Saludos, Román.-

[José Arce]

Hola rruffino, ¿cuando quieres desactivarlo?, por aperturas, por tiempo, en una fecha en concreto como seguro de cobro,..., danos algún dato más.

Un saludo José Arce

[rruffino]

Hola José, gracias por interesarte. El tema es que lo quiero desactivar para asegurarme el cobro, la idea seria por fecha, pero la verdad que nunca he hecho esto y necesito hacerlo, asi que cualquier sugerencia la voy a tener muy en cuenta. Muchas gracias

[Investment]

Bueno, podrías hacer algo como esto en el inicio de tu aplicación:

 if DateToStr(Date)>'15/4/2005' then
 begin
   ShowMessage('No tiene permisos para ejecutar la aplicación')
   Application.Terminate;
 end;

Esto impediria que tu aplicación se ejecutase a partir del 16 de abrir de 2005, pero si el usuario modifica la fecha del reloj del ordenador podría usarlo de nuevo sin problemas.

[rjsitruiz]

Para evitar que cuando te cambien la hora del sistema... tu programa no siga trabajando, pues crear un fichero .ini en donde guardes cada vez que cierres el programa la fecha del sistema, y cuando te lo ejecuten, verifique la fecha del .ini. Otra opcion seria guardar los datos de hora y fecha en el registro de Windows... lugar bastante grande, para que puedan buscar esos datos y borrartelos.


Saludos

[rruffino]

Gracias Investment por tu respuesta, el tema es ese, que me modifique la fecha y lo sigue usando. No hay o conoces alguna otra manera de que esto no pueda ocurrir? Desde ya muchas gracias por dedicar tu tiempo.
Saludos, Román

[Investment]

Bueno, por haber hay muchas formas es cuestion de estrujarse un poco el cerebro. La solucion de rjsitruiz es bastante buena aunque tambien te pueden modificar el fichero ini y listo. Y entrar en el regedit pues igual.

No se, otra que se me ocurre es que el programa necesite un fichero en algun directorio para poder ejecutarse. Puedes controlar que el dia que quieras el programa borre ese fichero y ya no pueda volverse a usar.

 if not FileExist(C:\directorix\archivoY.txt) then
 begin
    ShowMessage('No tiene permisos para ejecutar la aplicación')
   Application.Terminate; 
 end;
 
 if DateToStr(Date)='15/4/2005' then
   DeleteFile(C:\directorix\archivoY.txt))

Asi, la primera vez que el dia 15 de abril ejecuten el programa, podrán acceder a el, pero si lo cierran ya no podrán volver a ejecutarlo.

[rruffino]

Muchachos, muy buenas las dos opciones, l verdad que para mas seguridad las voy a poner a las dos en practica. Muchas gracias por la mano

Saludos, Román.-

[efelix]

Hola rjsitruiz soy efelix, que tengo el mismo problema, me puse a buscar en el foro y encontre esta respuesta tuya. Hay algunas cosas en delphi que no domino pues soy algo nuevo en el trabajo con el mismo. Podrías si no es mucha molestia explicar mas al detalle esto de los ficheros .ini y ejemplificar como lo hizo Investment, te reitero si no es molestia, ambas respuestas me han servido de ayuda pero desde el punto de vista teórico, me haria falta algún ejemplo. Gracias.