Problema con datetime

[ecfisa]

Hola.

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