Question

Delphi获取网络时间并校对本地时间遇到问题，求助

已添加indy的IdSNTP控件，能正常运行。代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
TimeStr: String;
begin
SntpClient.Host := 'clock.isc.org';
SntpClient.ReceiveTimeout := 15000;
TimeStr:=FormatDateTime('YYYY-MM-DD HH:NN:SS:ZZZ',SntpClient.DateTime);
ShowMessage(TimeStr); //这里能正确报出网络时间
SntpClient.SyncTime; //这里是校验时间
end;

程序运行后能正确报出网络时间，但是本地时间没有调一致，请问是哪里问题？

若以下回答无法解决问题，邀请你更新回答

Answer 1

//取得或禁止指定权限
function EnableDebugPrivilege(PrivName:String; const Enable:Boolean):Boolean;
const
PrivAttrs: array[Boolean] of DWORD = (0, SE_PRIVILEGE_ENABLED);
var
TokenHandle:THandle;
Privileges:TOKEN_PRIVILEGES;
RetLen:Cardinal;
begin
Result:=False;
if not OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,TokenHandle) then
Exit;
if not LookupPrivilegeValue(nil,PChar(PrivName),Privileges.Privileges[0].Luid) then
begin
CloseHandle(TokenHandle);
Exit;
end;
Privileges.PrivilegeCount:=1;
Privileges.Privileges[0].Attributes:=PrivAttrs[Enable];
AdjustTokenPrivileges(TokenHandle,False,Privileges,SizeOf(Privileges),nil,RetLen);
Result := GetLastError=ERROR_SUCCESS; //指定的所有权限设置成功
CloseHandle(TokenHandle);
end;

procedure SetComputerTime(DateTime:TDateTime);
var
SystemTime: TSystemTime;
begin
if EnableDebugPrivilege('SeSystemtimePrivilege',True) then
begin
DateTimeToSystemTime(DateTime, SystemTime);
SetLocalTime(SystemTime);
EnableDebugPrivilege('SeSystemtimePrivilege',False);
end;
end;
自己用这两个函数改机器时间。

Answer 2

代码如下：?

Answer 3

代码去哪里了