广告
淘宝内部优惠券
当前位置: 开发异常方案库» Delphi » delphi xe10.2.3怎么修改win10的系统日期和时间?

delphi xe10.2.3怎么修改win10的系统日期和时间?

开发异常方案库  收集整理于:2020-05-08 18:47:00  浏览:66次
delphi xe10.2.3怎么修改win10的系统日期和时间?
var
  SysTime:TSystemTime;
  DateTime:TDateTime;
begin
  DateTime := StrToDateTime(GetServerTime);
  DateTimeToSystemTime(DateTime,SysTime);
  SetLocalTime(SysTime);
这段代码win7下可以成功,win10不行,请问各位老是有没有好的代码了。

------网友观点--------------------
procedure SetSystemDatetime(ADatetime: TDateTime);
var
  systemtime: TSystemTime;
  DateTime: TDateTime;
begin
  // 获得时间(TDateTime格式)
  DateTimeToSystemTime(ADatetime, systemtime);
  // 把Delphi的TDateTime格式转化为API的TSystemTime格式
  SetLocalTime(systemtime); // 设置系统时间
  //GetLocalTime(systemtime); // 读取系统时间
 // DateTime := SystemTimeToDateTime(systemtime);
  // 把API的TSystemTime格式   转化为   Delphi的TDateTime格式
end;
win10可以使用,如果不行使用管理员权限尝试

------网友观点--------------------

------网友观点--------------------

------网友观点--------------------
发布此文章仅为传递网友分享,不代表本站观点,若侵权请联系我们删除,本站将不对此承担任何责任。
软件开发 程序错误 异常 ybaby.netCopyright © 2020-2026  ybaby 版权所有  桂ICP备17004385号-2 网站地图