Timer1OnTimer
var
  HWndCalculator : HWnd;
begin
   // find the exist calculator window
  HWndCalculator := Winprocs.FindWindow(nil, '日期/时间 属性');   // close the exist Calculator }
  if HWndCalculator <> 0 then  
     SendMessage(HWndCalculator, WM_CLOSE, 0, 0);
end;以上是和程序中使用的,你总不能控制用户修改CMOS吧?