Hola.
Cita:
Empezado por MacStreet
No me funciona osea si obtiene la fecha y todo, pero lo que yo quiero hacer es que mi aplicacion al detectar el dia "10/09/2017" se cierre .
espero que me entiendas :/
|
Ah, pero yo había entendido que el problema era que no querías tomar la hora del sistema por que la podian cambiar y no que ignorabas como comparar las dos fechas.
En ese caso:
Código Delphi
[-]
uses IdSNTP;
function ExpiredDate(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;
Ejemplo de uso:
Código Delphi
[-]
...
begin
if ExpiredDate( StrToDate('10/09/2017'), 'time.windows.com' ) then
Application.Terminate
else
ShowMessage('Todo ok');
...
Saludos