我无法使用 SetDynamicTimeZoneInformation 禁用夏令时

Question

我使用 SetDynamicTimeZoneInformation 函数设置时区信息（启用/禁用夏令时），在 Vista/Win7 或更高版本下，您可能会看到下面的代码片段。
现在，代码似乎工作正常，时区信息已正确更新，但我对 DynamicDaylightTimeDisabled 标志有一个奇怪的问题。如果更改日光选项，则时间跳跃会更改一小时；但当我将 DynamicDaylightTimeDisabled 设置为 true 时，Vista/Win7 时区设置对话框中的“自动调整夏令时时钟”复选框仍处于选中状态。

那么，我做错了什么？谢谢。

type
  TRegTZI = record // a TZI registry value is 44 bytes in this order
    Bias, // 4 bytes
    StdBias, // 4 bytes
    DltBias: integer; // 4 bytes
    StdDate, // 16 bytes
    DltDate: TSystemTime; // 16 bytes
  end;

  TTZIData = record
    TZName: string;
    Display, Dlt, Std: string;
    RegTZI: TRegTZI;
  end;


implementation

    function TZIDtatToWinTDZI(ATZI: TTZIData; DDTDisabled: boolean): TIME_DYNAMIC_ZONE_INFORMATION;
    var
      WinTDZI: TIME_DYNAMIC_ZONE_INFORMATION;
    begin
      WinTDZI.Bias := ATZI.RegTZI.Bias;
      WinTDZI.StandardBias := ATZI.RegTZI.StdBias;
      WinTDZI.DaylightBias := ATZI.RegTZI.DltBias;
      if not DDTDisabled then
      begin
        WinTDZI.StandardDate := ATZI.RegTZI.StdDate;
        WinTDZI.DaylightDate := ATZI.RegTZI.DltDate;
      end;
      StringToWideChar(ATZI.Std, @WinTDZI.StandardName[0], 32);
      StringToWideChar(ATZI.Dlt, @WinTDZI.DaylightName[0], 32);
      StringToWideChar(ATZI.TZName, @WinTDZI.TimeZoneKeyName[0], 128);
      WinTDZI.DynamicDaylightTimeDisabled := DDTDisabled;
      Result := WinTDZI;
    end;

    function GetTZIDataByName(TZKeyName: string; var ATZI: TTZIData): boolean;
    var
      Reg: TRegistry;
      BiRecSize: integer; 
    begin
      Result := False;
      Reg := TRegistry.Create;
      try
        Reg.RootKey := HKEY_LOCAL_MACHINE;
        if Reg.OpenKey('Software\Microsoft\Windows NT\CurrentVersion\Time Zones\' + TZKeyName, False) then
        begin
          Result := True;
          ATZI.TZName := TZKeyName;
          if Reg.ValueExists('Display') then ATZI.Display := Reg.ReadString('Display');
          if Reg.ValueExists('Dlt') then ATZI.Dlt := Reg.ReadString('Dlt');
          if Reg.ValueExists('Std') then ATZI.Std := Reg.ReadString('Std');
          if Reg.ValueExists('TZI') then BiRecSize := Reg.ReadBinaryData('TZI', ATZI.RegTZI, SizeOf(ATZI.RegTZI));
          Reg.CloseKey;
        end;
      finally
        Reg.free;
      end;
    end;


    function Vista_SetTimeZone(TZKeyName: string; AutoAdjustEnabled: boolean;
      var ErrStr: string): boolean;
    var
      ATZI: TTZIData;
      WinTDZI: TIME_DYNAMIC_ZONE_INFORMATION;
    begin
      if GetTZIDataByName(TZKeyName, ATZI) then
      begin
        WinTDZI := TZIDtatToWinTDZI(ATZI, not AutoAdjustEnabled);
        Result := SetDynamicTimeZoneInformation (WinTDZI) <> 0;
        if Result then
          SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0);
      end;
    end;