- Busca por el foro TRegistry, se ha hablado ya mucho sobre como introducir información en el registro de windows:
- Para la hora Mira las funciones que trae Delphi:
Now --> te da la fecha y hora actual
EncodeDateTime , encodeTime etc.... Tienes muchas funciones para ver la mediaNoche, revisa en la ayuda todas las funciones de la unidad DateUtils.
Mas o menos y de memoria sería algo así:
Código Delphi
[-]
var ahora, mediaNoche :Tdatetime;
faltanMilisegundos:int64;
begin
ahora := now;
medianoche := ahora
medianoche := encodeTime(23,59,59,999);
faltanMilisegundos:= MillisecondsBetween(mediaNoche, ahora);
timer1.Interval := faltanMilisegundos;
timer1.enabled:= true;
SAludos