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 获取指定年月的周、日数

Delphi 处理链接和文件路径结尾\和/

Delphi 写3389自动登录器

Delphi tstrings 过滤空行

Delphi fmx 安卓跳转到支付宝付款页面

Delphi 下 vclzip控件的简单使用

Delphi使用json解析调用淘宝ip地址库rest api 示例

Delphi isdirectory 判断是否是目录

Delphi 控制滚动条

Delphi 判断两个时间差是否在一个指定范围内

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

转载请注明出处：木庄网络博客 » Delphi 简单的定时程序代码