830
社区成员




//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;