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;

上一篇:centos下安装ZooKeeper


下一篇:Python中的 sort 和 sorted