829
社区成员
发帖
与我相关
我的任务
分享
//FLastStruck 可以在程序启动时根据需要初始化
procedure TForm1.Timer1Timer(Sender: TObject);
var
t: int64;
dt: TDateTime;
time: string;
begin
dt := Now;
t := DateTimeToUnix(dt);
if t mod 3600=0 then
begin
time := FormatDateTime('yymmddhh',dt);
if time<>FLastStruck then
begin
MessageBeep(10);
lblTips.Caption := '整点报时:'+time;
FLastStruck := time;
end;
end;
end;