Delphi更新本地时间


本文整理自网络,侵删。

 procedure UpDataLacolTime(Year,Month,Day,Hour,Minute,Second:Integer);
var
  SysTime:SystemTime;
Begin
  SysTime.wYear:=Year;
  SysTime.wMonth:=Month;
  SysTime.wDay:=Day;
  SysTime.wHour:=Hour;
  SysTime.wMinute:=Minute;
  SysTime.wSecond:=Second;
  SysTime.wMilliseconds:=0;


  if SetLocalTime(SysTime) then
  begin
    //如果修改成功
    IsUpDataSuccess:=true
  end;
end;

相关阅读 >>

Delphi中message消息的使用方法

Delphi 复杂数据类型

Delphi多级指针

Delphi fmx 把内容复制到粘贴板上支持跨平台

Delphi 如何使用程序标识符检查程序是否已安装

Delphi hbp-1100u 欧姆龙血压计的usb调用方法

Delphi pagecontrol1 另类隐藏页的方法

Delphi base24编码解码

Delphi之截取整个窗体图片

Delphi 生成随机字符串

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...