Определение факта изменения системного времени другим приложением в Delphi

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

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;
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (10 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий