Советы по Delphi


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


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

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




Начало  Назад  Вперед