Hola, cuento con un problema con el tiempo de vencimiento de mi aplicacion por servidor.
Estoy usando este codigo, funciona perfectamente, pero he notado que en algunas computadoras su fecha es "25-11-2018" en la mia es "25/11/2018"
Lo cual yo programo para que mi aplicacion deje de funcionar hasta el dia "25/11/2018" pero en las otras computadoras que su fecha es "25-11-2018" , solo le sale un error y la aplicacion sigue funcionando, lo cual me perjudica, el codigo es este :
Código Delphi
[-]function Server(const vto: TDateTime; const aHost: string): Boolean;
var
idSNTP: TIdSNTP;
dt: TDateTime;
begin
idSNTP:= TIdSNTP.Create(nil);
try
idSNTP.Host := aHost;
dt := idSNTP.DateTime;
finally
idSNTP.Free;
end;
Result := dt >= vto;
end;
Código Delphi
[-]if ExpiredDate( StrToDate('10/09/2017'), 'time.windows.com' ) then
begin
Application.Terminate();
end;
Y lo que hice hasta ahora fue esto, pero no funciono :
Código Delphi
[-]if ExpiredDate( StrToDate('25/11/2018'), 'time.windows.com' ) OR ExpiredDate( StrToDate('25-11-2018'), 'time.windows.com' ) then
begin
Application.Terminate();
end;
Porfavor quisiera que me den una pequeña ayuda en esto o ayudandome con ejemplos, gracias.