Обновлено: 01 декабря, 2018

Определение факта изменения системного времени другим приложением в 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;

(10 оценок, среднее: 5,00 из 5)

Загрузка...