No hace falta ecFisa, está resuelto, no me gusta hacerlo así pero funciona:
Cita:
Present:= Now;
DecodeTime(Present, hora2, Min, Seg, Mils);
If hora2<>hora then // hora es el valor real y hora2 con las horas sumadas por el horario de verano.
begin
diferencia:=hora2-hora;
hora:=hora-diferencia;
fecha.wHour:=hora;
end;
SetSystemTime(Fecha);
|
Muchas gracias por todo y hasta la próxima.
Saludos