Mostrar la hora en la barra de tareas

[dec]

Mostrar la hora en la barra de tareas


Procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean);
begin
Application.Title := FormatDateTime( 'hh:nn:ss', Now );
Done := False
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnIdle := AppIdle;
end;