procedure TMainFrm.Timer1Timer(Sender: TObject);
var
systemtime:Tsystemtime;
dt:TDateTime;
begin
L_DateTime.Caption:=FormatDateTime('YYYY-MM-DD HH:SS',Now); //显示当前时间
MainFrm.Caption:=IntToStr(Timer1.Tag);
timer1.tag:=timer1.tag+1;
if Timer1.tag=60 then begin
Timer1.tag := 0;
if (PC1.ActivePage <> Page_start) then begin
Btn_Input_FirstClick(nil); //返回首页
end;
end;
if copy(L_DateTime.Caption,12,5)='02:00' then begin //晚两点同步时间
try
DM.GetTime.Open;
dt := DM.GetTimeCurrTime.Value;
DateTimeToSystemTime(dt,systemtime); //把Delphi的TDateTime格式转化为API的
SetLocalTime(SystemTime); //设置系统时间
//GetLocalTime(SystemTime); //读取系统时间
//DateTime:=SystemTimeToDateTime(SystemTime); //把API的TSystemTime格式 转化为 Delphi的TDateTime格式
finally
end;
end;
end;
var
systemtime:Tsystemtime;
dt:TDateTime;
begin
L_DateTime.Caption:=FormatDateTime('YYYY-MM-DD HH:SS',Now); //显示当前时间
MainFrm.Caption:=IntToStr(Timer1.Tag);
timer1.tag:=timer1.tag+1;
if Timer1.tag=60 then begin
Timer1.tag := 0;
if (PC1.ActivePage <> Page_start) then begin
Btn_Input_FirstClick(nil); //返回首页
end;
end;
if copy(L_DateTime.Caption,12,5)='02:00' then begin //晚两点同步时间
try
DM.GetTime.Open;
dt := DM.GetTimeCurrTime.Value;
DateTimeToSystemTime(dt,systemtime); //把Delphi的TDateTime格式转化为API的
SetLocalTime(SystemTime); //设置系统时间
//GetLocalTime(SystemTime); //读取系统时间
//DateTime:=SystemTimeToDateTime(SystemTime); //把API的TSystemTime格式 转化为 Delphi的TDateTime格式
finally
end;
end;
end;