delphi,c++程序 阻止Win11 用户更改系统时间

如果软件需要用系统时间，当用户改了后，会出问题，如何阻止呢，其实就是

W32Time服务，重启下就ok了

c++自己实现下

RestartService('W32Time',10000);

usesWinSvc, Windows;// 获取服务状态（返回状态常量：SERVICE_RUNNING/SERVICE_STOPPED等）
function GetServiceStatus(ServiceName: string): DWORD;
varSCMgr, hService: SC_HANDLE;Status: TServiceStatus;
beginResult := 0;SCMgr := OpenSCManager(nil, nil, SC_MANAGER_CONNECT);if SCMgr <> 0 thenbeginhService := OpenService(SCMgr, PChar(ServiceName), SERVICE_QUERY_STATUS);if hService <> 0 thenbeginQueryServiceStatus(hService, Status);Result := Status.dwCurrentState; // 返回当前状态CloseServiceHandle(hService);end;CloseServiceHandle(SCMgr);end;
end;// 停止服务（含超时等待）
function StopService(ServiceName: string; TimeoutSec: Integer): Boolean;
varSCMgr, hService: SC_HANDLE;Status: TServiceStatus;i: Integer;
beginResult := False;SCMgr := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);if SCMgr = 0 then Exit;hService := OpenService(SCMgr, PChar(ServiceName), SERVICE_STOP or SERVICE_QUERY_STATUS);if hService <> 0 thentry// 若服务正在运行则停止if GetServiceStatus(ServiceName) = SERVICE_RUNNING thenbeginControlService(hService, SERVICE_CONTROL_STOP, Status);i := 0;// 等待服务停止完成while (i < TimeoutSec) and (GetServiceStatus(ServiceName) <> SERVICE_STOPPED) dobeginSleep(1000);Inc(i);end;Result := (GetServiceStatus(ServiceName) = SERVICE_STOPPED);endelseResult := True; // 服务已停止finallyCloseServiceHandle(hService);CloseServiceHandle(SCMgr);end;
end;// 启动服务
function StartService(ServiceName: string): Boolean;
varSCMgr, hService: SC_HANDLE;s: pchar;
beginResult := False;SCMgr := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);if SCMgr = 0 then Exit;hService := OpenService(SCMgr, PChar(ServiceName), SERVICE_START);if hService <> 0 thentryResult := WinSvc.StartService(hService, 0, s);// 若服务已在运行也视为成功if not Result and (GetLastError = ERROR_SERVICE_ALREADY_RUNNING) thenResult := True;finallyCloseServiceHandle(hService);CloseServiceHandle(SCMgr);end;
end;// 重启服务（核心函数）
function RestartService(ServiceName: string; TimeoutSec: Integer): Boolean;
beginResult := False;// 先停止服务（超时由TimeoutSec控制）if StopService(ServiceName, TimeoutSec) thenResult := StartService(ServiceName); // 停止成功后启动
end;