Возможно ли определение изменения времени другим приложением?

Своим опытом делится Олег Кулабухов:

Нижеприведенный код демонстрирует это. Учтите, что приложение, меняющее время должно передать сообщение 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;

[001902]

Содержание раздела