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 自动把combobox控件的内容里没有的内容加入列表中

Delphi kmp(字符串匹配)算法

Delphi在memorystream查找字符串

Delphi webbrowser 去除滚动条和边框

Delphi 打开文件夹并定位到一个文件

Delphi doc转txt

Delphi 双击dbgrid然后得到字段里面的内容

Delphi 监视剪贴板内容

Delphi写qq消息群发（模拟按键精灵）

indy tidtcpclient 在网络掉线时的处理方法

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

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