本文整理自网络,侵删。
var
str: string;
begin
str := TimeToStr(Now);
if str = '04:00:00' then
begin
try
//需要执行的代码
except
end;
end;
相关阅读 >>
Delphi windows 编程[21] - wm_menuselect 消息与 getmenustring 函数
Delphi winapi: getmodulehandle - 获取一个模块(exe 或 dll)的句柄
Delphi中多线程下使用使用 unidac+mssql 需要注意的问题
用Delphi通过setupapi.dll列举和停用硬件设备
更多相关阅读请进入《Delphi》频道 >>