Delphi 简单的定时程序代码


本文整理自网络,侵删。

 
procedure TForm1.Timer1Timer(Sender: TObject);
var
 Hn,Mn,Sn:integer;
 Hour,Min,Sec,MSec: Word;
begin
Hn:=10;
mn:=59;
sn:=50;
  // Decodedate(); 年月日
  DecodeTime(now,Hour,Min,Sec,MSec);
  //当时 分 秒 相等时
  if (Hn=Hour)and(Mn=Min)and(Sn=Sec) then
  begin
  //触发
  end;

end;

相关阅读 >>

Delphi 判断操作系统是否是64位的函数

Delphi 辨析 field、fielddef、fields、fielddefs、fieldlist、fielddeflist

Delphi 获取随机字符串的方法 thash.getrandomstring

Delphi 端口扫描器原理

Delphi sysutils.strcopy、sysutils.strecopy

Delphi utf8处理单元

Delphi firemonkey 保存图片到jpg的方法 bmp转jpg

Delphi exe执行程序dos参数的运用

Delphi sqlite incomplete input 错误

Delphi 网页数据抓取

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



打赏

取消

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

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

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

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

评论

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