На главную

Узнать об изменении системного времени

Узнать об изменении системного времени

ОГЛАВЛЕНИЕ    HOME  MAIL



Эта программа пикает, когда кто-нибудь меняет системное время.

...
private
  procedure WMTIMECHANGE(var Message: TWMTIMECHANGE); message WM_TIMECHANGE;
...
procedure TForm1.WMTIMECHANGE(var Message: TWMTIMECHANGE);
begin
  MessgeBeep(0);
end;

главная страницазадать вопрос
email: delphi4all@narod.ru
Hosted by uCoz