Mensaje de Windows con la hora

[gandalf85]

Gracias Casimiro y bosster_018 pero no es exactamente eso lo que estoy buscando.

Lo que quiero decir es, que al igual que existe el paso de mensajes dentro de una aplicación
Por Ejemplo: Cuando Tiene Foco, Cuando se Hace DobleClick Izquierdo/Derecho…etc

Código Delphi [-]
procedure TieneFoco(var Message:TWMSetFocus);message WM_SETFOCUS;
procedure DCI (var m:TWMMouse);message WM_LBUTTONDBLCLK;
procedure DCD (var m:TWMMouse);message WM_RBUTTONDBLCLK;

Entonces mi pregunta es que igual que existen estos mensajes, si Windows tiene algún mensaje en el que informe a las aplicaciones con la hora y fecha del Sistema para no tener que preguntarle cada segundo.

Porque hasta ahora yo metía el código dentro de un Timer poniéndole de intervalo 1000 para que se ejecute cada segundo; por lo que en el panel1 tengo la hora actualizada y en el panel2 la fecha. Pero estamos pidiendole todo el rato al SO que nos diga la hora y la fecha

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
var
  Fecha : TDateTime;
  Hora : String;
begin
  Fecha:= Now;
  Hora:= TimeToStr(Now);
  Panel1.Caption:=Hora;
  Panel2.Caption:=DateToStr(Fecha);
end;

De todas formas gracias porque no conocía la función Now y siempre lo hacia con DecodeTime y DecodeDate

Pero si Windows mandaría mensajes a las Aplicaciones con estos datos podríamos evitar poner el Timer y tan solo tendríamos que capturar ese mensaje