Карта сайтаСсылкиКонтакты

Как узнать изменение системной даты

PDF Печать
Статьи

Если Вашему приложению нужно отреагировать, когда пользователь изменяет системную дату, то можно перехватить сообщение WM_TIMECHANGE Windows.

Перехват изменения системного времени или даты

Вот как это можно сделать:


type
    TForm1 = class(TForm)
    private
      procedure WMTimeChange(var Msg: TMessage) ; message WM_TIMECHANGE;
    end;

 var
    Form1: TForm1;

 implementation
 {$R *.DFM}

 procedure TForm1.WMTimeChange(var Msg: TMessage) ;
 begin
    inherited;
    ShowMessage('Дата / время было изменено!') ;
 end;

 

Добавить комментарий


Защитный код
Обновить