DBR Delphi-Ecke

// Es wird eine Meldung ausgegeben, falls jemand die System-Zeit ändert.

// Getestet mit D4 unter XP

  ... 
  private 
    { Private-Deklarationen } 
  public 
    { Public-Deklarationen } 
    procedure WMTIMECHANGE(var Message: TWMTIMECHANGE); message WM_TIMECHANGE; 
  end; 
 
var 
  Form1: TForm1; 
 
implementation 
 
{$R *.dfm} 
 
procedure TForm1.WMTIMECHANGE(var Message: TWMTIMECHANGE); 
begin 
 showmessage('Die Zeit wurde verändert'); 
end;