Time/Date veränderungen in einem Service feststellen?

[aMuTeX]

Hallo DP!

Ich möchte in meinem Service feststellen wenn die Systemzeit geändert wurde.
Windows schickt dazu WM_TIMECHANGE. Das Problem ist aber das eine Service Applikation diese Message nicht bekommt.

Delphi-Quellcode:

  TMYService = class(TService)   
  private
    ...
    procedure WMTimeChange(var Msg: TMessage); message WM_TIMECHANGE;
  public
    ...
  end;

...

procedure TMYService.WMTimeChange(var Msg: TMessage);
begin
  AddLog('Time changed!');
end;

In einer normalen App läuft das wunderbar, in einem Service aber offenbar nicht.


Gibt es eine andere Möglichkeit das mein Service über ein TimeChange benachrichtigt wird? Oder mache ich einfach etwas falsch?

Besten Dank für die Hilfe.