Mensaje de Windows con la hora
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
|