为啥 SetTimeZoneInformation 在 Windows XP 中不起作用？

Posted 2023-02-25

【中文标题】为啥 SetTimeZoneInformation 在 Windows XP 中不起作用？

【英文标题】：Why SetTimeZoneInformation does not work in windows XP?为什么 SetTimeZoneInformation 在 Windows XP 中不起作用？

【发布时间】：2012-07-29 04:29:39

【问题描述】：

我有一个 delphi 程序，可以将窗口的时区信息设置为特定的开始和结束日期。它在 Windows 7、vista 和 Server 2008 中完美运行。但在 XP 和 Server 2003 等早期 Windows 版本中却不行。我很好奇我的代码有错误还是 XP 问题？

这是我的代码：

program SetTimeZoneInfo;

$APPTYPE CONSOLE

uses
  SysUtils,
  Messages,
  windows;

const
  SE_TIME_ZONE_NAME = 'SeTimeZonePrivilege';
  SE_SYSTEMTIME_NAME = 'SeSystemtimePrivilege';

function NTSetPrivilege(sPrivilege: string; bEnabled: Boolean): Boolean;
var
  hToken: THandle;
  TokenPriv: TOKEN_PRIVILEGES;
  PrevTokenPriv: TOKEN_PRIVILEGES;
  ReturnLength: Cardinal;
begin
  Result := True;
  if not (Win32Platform = VER_PLATFORM_WIN32_NT) then Exit;

  // obtain the processes token
  if OpenProcessToken(GetCurrentProcess(),
    TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
  begin
    try
      // Get the locally unique identifier (LUID) .
      if LookupPrivilegeValue(nil, PChar(sPrivilege),
        TokenPriv.Privileges[0].Luid) then
      begin
        TokenPriv.PrivilegeCount := 1; // one privilege to set

        case bEnabled of
          True: TokenPriv.Privileges[0].Attributes  := SE_PRIVILEGE_ENABLED;
          False: TokenPriv.Privileges[0].Attributes := 0;
        end;

        ReturnLength := 0; // replaces a var parameter
        PrevTokenPriv := TokenPriv;

        // enable or disable the privilege

        AdjustTokenPrivileges(hToken, False, TokenPriv, SizeOf(PrevTokenPriv),
          PrevTokenPriv, ReturnLength);
      end;
    finally
      CloseHandle(hToken);
    end;
  end;
  // test the return value of AdjustTokenPrivileges.
  Result := GetLastError = ERROR_SUCCESS;
  if not Result then
    raise Exception.Create(SysErrorMessage(GetLastError));
end;

var
  tzi: TTimeZoneInformation;
  lpwdResult, LHResult: Cardinal;
begin
  if Win32MajorVersion >= 6 then
  begin
    Writeln('NTSetPrivilege SE_TIME_ZONE_NAME enabled ? ' + BoolToStr(NTSetPrivilege(SE_TIME_ZONE_NAME, True), True));
  end;
  Writeln('NTSetPrivilege SE_TIME_ZONE_NAME enabled ? ' + BoolToStr(NTSetPrivilege(SE_SYSTEMTIME_NAME, True), True));

  tzi.Bias:= -210;

  tzi.DaylightDate.wYear:= 2012;
  tzi.DaylightDate.wMonth:= 3;
  tzi.DaylightDate.wDay:= 20;
  tzi.DaylightDate.wHour:= 23;
  tzi.DaylightDate.wMinute:= 59;
  tzi.DaylightDate.wSecond:= 59;
  tzi.DaylightBias:= -60;

  tzi.StandardDate.wYear:= 2012;
  tzi.StandardDate.wMonth:= 9;
  tzi.StandardDate.wDay:= 20;
  tzi.DaylightDate.wHour:= 23;
  tzi.DaylightDate.wMinute:= 59;
  tzi.DaylightDate.wSecond:= 59;
  tzi.StandardBias:= 0;

  if not SetTimeZoneInformation(tzi) then
      Writeln('SetTimeZoneInformation Error Message: '+ SysErrorMessage(GetLastError))
  else
    Writeln('SetTimeZoneInformation : Success');

  LHResult:= SendMessageTimeout(
                      HWND_BROADCAST,   // reciever window handle
                      WM_SETTINGCHANGE, // message
                      0,                // WParam
                      0,                // LParam
                      SMTO_NORMAL,      // return if reciever hange
                      5,                // timeout in seconds
                      lpwdResult        // result
                      );
  if LHResult = 0 then
    Writeln('SendMessageTimeout Error Message: '+ SysErrorMessage(GetLastError))
  else
    Writeln('SendMessageTimeout : Success');

  if Win32MajorVersion >= 6 then
    Writeln('NTSetPrivilege SE_TIME_ZONE_NAME disabled ? ' + BoolToStr(NTSetPrivilege(SE_TIME_ZONE_NAME, False), True));
  Writeln('NTSetPrivilege SE_TIME_ZONE_NAME disabled ? ' + BoolToStr(NTSetPrivilege(SE_SYSTEMTIME_NAME, False), True));
  Readln;
end.

【问题讨论】：

描述它是如何失败的。 “它不起作用”没有帮助。

另外，您的错误检查完全不正确。您必须在调用每个 API 函数后立即调用 GetLastError。在NTSetPrivilege 中，您有 3 次调用 API 函数，但只有一次调用 GetLastError。更何况你没有检查AdjustTokenPrivileges的返回值，所以你不知道它是否失败。

读下代码你有一行写着if Win32MajorVersion >= 6 then。这意味着您只尝试获取 Vista 及更高版本的 SE_TIME_ZONE_NAME priv。你为什么这样做？

我们需要的不止这些。哪个 API 调用失败。与该故障相关的错误代码是什么。您正在运行代码，我们没有。您可以在代码中突出显示 API 调用失败的精确点。我们不能。

大卫，“它不起作用”意味着它不设置时区信息、偏差、DST 开始和 DST 结束日期

【参考方案1】：

Windows 为新版本时，使用：SetDynamicTimeZoneInformation。 如果它是旧的（例如：XP），请像以前一样使用 SetTimeZoneInformation。 告诉我它是否解决了问题。我也必须做类似的事情。 谢谢。 罗德里戈·皮门塔·卡瓦略