Mensaje de Windows con la hora

[gandalf85]

Hola a toda la comunidad Delphi.

Mi pregunta es la siguiente:
¿Hay alguna forma de recibir un mensaje de notificación de windows en Delphi con la hora y la fecha del sistema?

Así no tengo que estar continuamente preguntándole al Sistema Operativo por la hora y la fecha. Sino capturar un mensaje que el propio Windows mande a las aplicaciones con estos datos.


Es decir quiero sustituir estas funciones por el mensaje que reciba de Windows

function TReloj.Get_Fecha: string;
var Anio,Mes,Dia:word;
begin
DecodeDate(Date,Anio,Mes,Dia);
Result:= Dia+Mes+Anio);
end;

function TReloj.Get_Hora: string;
var h,m,s,ms:word;
begin
DecodeTime(Time,h,m,s,ms);
Result:= h+m+s;
end;

Si no hay ninguna forma abra que seguir preguntándosela y decodificándola

Gracias por adelantado