delphi 如何检测你的电脑日期或时间的变化

//the system time of you PC has changed.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

procedure WMTIMECHANGE(var message: TWMTIMECHANGE);

message WM_TIMECHANGE;

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm1.WMTIMECHANGE(var message: TWMTIMECHANGE);

begin

ShowMessage('Time changed');

end;

end.

推荐分享