Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 8 мая!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



узнать, когда пользователь/программа изменили системное время [wm_timechange]

Когда меняется системное время всем окнам верхнего уровня рассылается сообщение WM_TIMECHANGE, нужен только обработчик этого сообщения.



Примерный вид модуля может быть таким: unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
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 has changed'; {например, по возникновению события уведомим об этом пользователя, вывив в заголовке окна соответствующую надпись}
end;
end.




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS