Hora del Sistema (Bios) no de Windows

[Casimiro Noteví]

Bueno, he hecho un sencillo test:

procedure TForm1.bt1Click(Sender: TObject);
var
  SystemTime: TSystemTime;
begin
  GetSystemTime(SystemTime);
  ShowMessage(FormatDateTime('dd/mm/yyyy hh:nn:ss',SystemTimeToDateTime(SystemTime))  );
  GetLocalTime(SystemTime);
  ShowMessage(FormatDateTime('dd/mm/yyyy hh:nn:ss',SystemTimeToDateTime(SystemTime))  );
end;

Como verás, parece que la hora de windows Sí que es distinta a la del sistema.

[[seoane]]

Empezado por Casimiro Notevi

Como verás, parece que la hora de windows Sí que es distinta a la del sistema.

Yo no dije que fueran iguales, sino que se calculan a partir del mismo dato. El reloj del equipo (el de la bios) es el que nos devuelve GetLocalTime mientras que el valor que devuelve GetSystemTime es el mismo que devuelve GetLocaltime después de sumarle o restarle una constante que depende de la zona horaria que tengamos configurada y la época del año en que estemos. De esa forma un cambio en la hora afectaría a ambos valores por igual.

[zfer]

Gracias. Entonces que recomiendas para una aplicación de control de horario?
bloquear los premisos a los usuarios para cambiar la hora o bien tomar la hora de un equipo remoto?

[zfer]

Empezado por Casimiro Notevi

Bueno, he hecho un sencillo test:

procedure TForm1.bt1Click(Sender: TObject);
var
  SystemTime: TSystemTime;
begin
  GetSystemTime(SystemTime);
  ShowMessage(FormatDateTime('dd/mm/yyyy hh:nn:ss',SystemTimeToDateTime(SystemTime))  );
  GetLocalTime(SystemTime);
  ShowMessage(FormatDateTime('dd/mm/yyyy hh:nn:ss',SystemTimeToDateTime(SystemTime))  );
end;

Como verás, parece que la hora de windows Sí que es distinta a la del sistema.

Bueno tienes razón... pero entonces? cual es systemTime, de donde está tomando la hora... y desde donde se la modifica?