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.

 

相关阅读 >>

Delphi判断字符串是否包含限制以外的字符 否则置空

了解Delphi过程类型/过程类型学习

Delphi 如何从一张图片中裁剪一部分距形图片另存为文件（使用canvas.copyrect）

Delphi怎么样选择pagecontrol1的分页

Delphi 根据盘符弹出u盘

Delphi的combobox不能输入只能选择

如何在Delphi中禁用关于“返回值...可能未定义”的警告？

Delphi文本加密解密

Delphi 提取网页源文件纯文本函数

Delphi 监视剪贴板内容

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 如何检测你的电脑日期或时间的变化