Считывание даных часовых поясов из реестра..., Даты перехода на зимнее/летнее время... Опции

[Snake_B]

Не могу разобраться как считать из реестра даные часовых поясов о датах перехода на летнее/зимнее время.
Хранятся тут:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones\
Параметр TZI, в reg_binary...

[volvo]

такая вот функция
const DLL = 'ntdll.dll';
function RtlLocalTimeToSystemTime(LocalTime: LongInt; SystemTime: LongInt) : NTSTATUS; stdcall; external DLL name 'RtlLocalTimeToSystemTime';

не сработает однозначно. Ибо прототип неправильный. Правильный - такой:

function RtlLocalTimeToSystemTime(
  LocalTime: PLARGE_INTEGER;
  SystemTime: PLARGE_INTEGER): NTSTATUS; stdcall; 
  external DLL name 'RtlLocalTimeToSystemTime';

(из исходников JEDI). Чувствуешь разницу, да? Указатели там на LARGE_INTEGER (он же Int64), а не просто LongInt-ы.

А насчет перевести в нужный формат - есть DateTimeToTimeStamp, которая это и делает.

[Snake_B]

не сработает однозначно. Ибо прототип неправильный. Правильный - такой:

function RtlLocalTimeToSystemTime(
  LocalTime: PLARGE_INTEGER;
  SystemTime: PLARGE_INTEGER): NTSTATUS; stdcall; 
  external DLL name 'RtlLocalTimeToSystemTime';

(из исходников JEDI). Чувствуешь разницу, да? Указатели там на LARGE_INTEGER (он же Int64), а не просто LongInt-ы.

А насчет перевести в нужный формат - есть DateTimeToTimeStamp, которая это и делает.

спасибо...
но сделал по другому...
GetTimeZoneInformation(tTZI);
DateTimeToSystemTime(tDati, st);
SystemTimeToTzSpecificLocalTime(@tTZI, st, lt);
оно DTZ учитывает... правда прийдется рассчитывать наоборот... ну да ладно...