Hola amigos del foro,
Me he visto en la necesidad de implementar en mi aplicación un periodo de prueba, para que el cliente pueda usar la aplicación sin ninguna restricción por un periodo de tiempo. Pero tengo dudas sobre la fiabilidad de la protección y el código que utilice cumpla con lo encomendado y no falle y vaya en contra de mis intereses.
Para esto estoy usando un código en el VIEW SOURCE del proyecto que funcione dentro de un rango de fechas. Y quisiera saber la opinión de los expertos si esto es fiable y seguro o existe otra manera mas segura de implementarlo. Espero su ayuda...
Código Delphi
[-]program MiPrograma;
uses
Forms,
Windows,
Classes,
SysUtils,
Registry,
Graphics,
TaskDialog,
uPrincipal in 'Sistema\Principal\uPrincipal.pas' ,
uDBConexion in 'Sistema\Conexion\uDBConexion.pas' ,
{$R *.res}
var
FInicio, FFin :TDateTime;
AvisoErrores: TAdvTaskDialog;
begin
FInicio := StrToDateTime('01/02/2017');
FFin := StrToDateTime('28/02/2017');
AvisoErrores := TAdvTaskDialog.Create(Application);
if (Now >= FInicio) AND (Now <= FFin) then
begin
end
else
begin
with AvisoErrores do
begin
Clear;
Title := 'Error';
Icon := tiError;
CommonButtons := [cbOk];
CustomButtons.Clear;
DefaultButton := 0;
Instruction := 'No se puede iniciar MiAplicación V 1.0';
Content := 'El periodo de prueba a terminado.';
ExpandedText := 'La Licencia era válida hasta el 28/02/2017.';
ExpandControlText := 'Pulse para ocultar';
CollapsControlText := 'Pulse para ver más';
FooterIcon := tfiWarning;
Footer := 'Contacte con ---@hotmail para adquirir la versión completa.';
Options := [doHyperlinks];
Execute;
end;
Halt;
end;
AvisoErrores.Free;
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.Title := 'MiPrograma V 1.0';
Application.CreateForm(TDBConexion, DBConexion);
Application.CreateForm(TFPrincipal, FPrincipal);
Application.Run;
end.