本文整理自网络,侵删。
procedure TForm1.Timer1Timer(Sender: TObject);var Hn,Mn,Sn:integer; Hour,Min,Sec,MSec: Word;beginHn:=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 辨析 field、fielddef、fields、fielddefs、fieldlist、fielddeflist
Delphi 获取随机字符串的方法 thash.getrandomstring
Delphi sysutils.strcopy、sysutils.strecopy
Delphi firemonkey 保存图片到jpg的方法 bmp转jpg
Delphi sqlite incomplete input 错误
更多相关阅读请进入《Delphi》频道 >>