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 rest客户端程序

Delphi textfile utf8编码读写

Delphi datetimepicker控件日期格式

Delphi 为数字补充前缀0

Delphi html转义

Delphi 如何从html格式的字符串中提取纯文本？

Delphi 提高unigui开发效率的两个方法

Delphi 如何将颜色值转换为html格式？

orangeui作者开源作品

Delphi 如何将颜色值转换为灰度颜色值？

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

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