Как определить, изменилось ли системное время?

Previous  Top  Next

    
 

 

Следующий пример демонстрирует обработку сообщения WM_TIMECHANGE. Приложение, которое изменяет системное время, посылает сообщение WM_TIMECHANGE всем окнам верхнего уровня.

Code:

type

TForm1 = class(TForm)

private

{ Private declarations }

procedure WMTIMECHANGE(var Message: TWMTIMECHANGE); message WM_TIMECHANGE;

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.DFM}

 

procedure TForm1.WMTIMECHANGE(var Message: TWMTIMECHANGE);

begin

Form1.Caption := 'Time Changed';

end;

 

 

©Drkb::01645

Взято из http://forum.sources.ru