我的客户遇到系统时间不对,自己又不会改,于是想到利用服务端时间来修改本地的系统时间。
第一步,把下面xml存成uac.xml文件备用。
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="x86"
publicKeyToken="6595b64144ccf1df"
language="*">
接下来,看代码:
procedure TForm12.SyncLocalDateTime;//同步本地时间
var
systemtime: Tsystemtime;
DateTime: TDateTime;
begin
SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, ‘yyyy-MM-dd‘);
DateTime := GetServerDateTime;//取服务器日期
System.Sysutils.DateTimeToSystemTime(DateTime, systemtime);
SetLocalTime(systemtime);
end;
需要引用单元:Winapi.Windows
编译时,使用刚才做的uac.xml文件:
在Delphi 10.3+win10测试通过。
https://www.cnblogs.com/kinglandsoft/p/10087576.html
原文:https://www.cnblogs.com/findumars/p/10095553.html