Proteger mi programa

[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

[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.

[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.-