Problema con datetime

[ecfisa]

Hola.

Empezado por MacStreet

...
funciona perfectamente y todo, el problema viene a ser cuando tu cambias la fecha de tu ordenador la cambias al dia : "10/09/2017"
vuelve a funcionar la aplicacion, asi ya se haya vencido, estube pensando en que ya no usara la fecha por defecto del ordenador si no que usé la fecha del internet (obtener hora desde internet ) pero no sabria como cambiar el valor por defecto que tiene el datetime, estube viendo y me dijieron que use el "IdSNTP1" .
...

Código Delphi [-]
...
implementation

uses IdSNTP;

function iNetDateTime(const aHost: string) : TDateTime;
var
  idSNTP: TIdSNTP;
begin
  idSNTP:= TIdSNTP.Create(nil);
  try
    idSNTP.Host := aHost;
    Result := idSNTP.DateTime;
  finally
    idSNTP.Free;
  end;
end;
...

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  dt: TDateTime;
begin
  try
    dt := iNetDateTime('time.windows.com');
    ShowMessage( DateToStr(dt) );
  except // manejar el problema...
    ShowMessage('Error obteniendo la fecha');
  end;
end;

En el siguiente enlace tenes una lista con servidores horarios: Servidores NTP

Saludos