delphi中设置系统时间方法

 

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;