Я не могу отключить переход на летнее время с помощью 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;