如何在 Delphi XE2 中处理 OnTimer 事件？答案

【问题标题】：How to handle OnTimer event in Delphi XE2?如何在 Delphi XE2 中处理 OnTimer 事件？
【发布时间】：2013-01-23 05:27:52
【问题描述】：

我需要在每天上午 9 点显示一条消息说“嗨”。我需要计时器吗？我如何检查是否是上午 9 点。 OnTimer 事件运行的计时器间隔应该是多少？

procedure Form1.TimerTimer1(Sender: TObject);
begin
  ShowMessage("Hi");
end;

如果我在 24 小时后运行此事件，我担心它可能会超过上午 9 点并且不会触发。

【问题讨论】：

【解决方案1】：

除非你有其他正当理由，否则要容易得多

【讨论】：

“没有找到搜索结果” - 当我输入“sched task”打开任务计划程序时出现此错误。如何解决？
@NareshKumar - 由于您已经将此标记为答案，我假设您找到了任务调度程序？
当Conficker 病毒（或它的克隆）攻击您的客户端时——管理员禁用所有计划任务——然后呢？相信我，依靠任务管理器并不是一个好习惯——我的实践证实了这一点:)

【解决方案2】：

您可以为 Delphi 使用类似 CRON 的解决方案：http://www.cromis.net/blog/downloads/cron-scheduler/

【讨论】：

【解决方案3】：

正如我之前的回答者所说，有更好更简单的方法。假设您想以自己的方式在 Delphi 中执行此操作，那么是的，您需要一个计时器。需要的步骤是：

为 OnTimer 编写处理程序：

procedure Form1.TimerTimer1(Sender: TObject);
var x:TDateTime
begin
x:=Now;
if {the hour read is 9 and minute is 0} then
ShowMessage("Hi");
end;

希望对你有帮助。

【讨论】：