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最全面的dbgrid点击标题实现排序

Delphi is1251char

Delphi writeln 写入一行文本

Delphi 无法调用cmd nbtstat命令解决办法

Delphi android拍照报错

Delphi xe版本 运行cmd命令，并取得输出字符

Delphi tokyo 版本 twebbrowser 的一个问题（bug？）

windows api 的数据类型与 Delphi 数据类型对照表

Delphi 使用indy idftp 通过android 上传文件

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

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