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 xe5 安卓设置屏幕横屏竖屏

Delphi开发获取文件md5值

Delphi远程开机再配合远程控制

Delphi idhashmessagedigest 获取文件md5

Delphi 获取系统托盘程序列表

Delphi的with…do语句的用法

cef4Delphi 语言区域设置

Delphi 解决Delphi indy10下 utf8码转换的问题

Delphi 图像分割

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...