Узнать настройки GMT

[Diogo]

Столкнулся с очередной проблемой. Как узнать с программы какой часовой пояс выбран в системе?
Список часовых поясов с ветки HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones вытащить не проблема, но где в реестре откопать какая зона выбрана на данный момент не нашел. Стандартных функций Делфи тоже не откопал.

Может у кого есть живой пример?

[Хs-You]

Интересный вопрос! Ты можеш сказать конкретний для чего тебе это надо? Может другой путь найдём!

[Хs-You]

Вот так можеш получить список часовых поясов

uses
Registry;

...

var
reg : TRegistry;
ts : TStrings;
i : integer;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE\Microsoft\Win dows\CurrentVersion\Time Zones', false);
if reg.HasSubKeys then
begin
ts := TStringList.Create;
reg.GetKeyNames(ts);
reg.CloseKey;
for i := 0 to ts.Count -1 do
begin
reg.OpenKey('SOFTWARE\Microsoft\Win dows\CurrentVersion\Time Zones\' + ts.Strings[i], false);
Memo1.Lines.Add(ts.Strings[i]);
Memo1.Lines.Add(reg.ReadString('Dis play'));
Memo1.Lines.Add(reg.ReadString('Std '));
Memo1.Lines.Add(reg.ReadString('Dlt '));
Memo1.Lines.Add('----------------------');
reg.CloseKey;
end;
ts.Free;
end
else
reg.CloseKey;
reg.free;
end;

[Diogo]

Сообщение от Хs-You

Интересный вопрос! Ты можеш сказать конкретний для чего тебе это надо? Может другой путь найдём!

Список часовых поясов я и сам получить могу, как и говорил.

Программа написана для одной онлайн-игры. Сервак работает по времени GMT+1. Во всех логах время стоит именно этой часовой зоны. Для правильной работы нужно локальное время преобразовывать в серверное. Сейчас у меня реализованно так: Перед первым запуском программа предлагает пользователю выбрать свой часовой пояс (выбираю инфу именной из этой ветки).
Но во-первых это не сильно удобно.
Во-вторых (сам удивился) возникает очень много вопросов по-поводу - а какой у меня часовой пояс.

Дабы избежать этого хотелось бы брать настройки напрямую у винды и не заморачивать пользователя... Хотя чувствую тогда возникнет другой вопрос, в случае неправильных установок часового пояса в винде - "а почему у меня время не правильно отображает?"

[Хs-You]

я тут подумал и кажись эо дело взломом папахивает!

[Diogo]

Сообщение от Хs-You

я тут подумал и кажись эо дело взломом папахивает!

Нет, если есть желание - форум: http://neverlands.6bb.ru (описание Анализатора БФ и т.д.), и сама программа: http://bfa.h.com.ua/downloads/bfa.zip

[Хs-You]

разберусь попозже а пока на бок пойду как встану сразу отпишу тебе поэтой теме!

[still_alive]

Стандартных функций Делфи тоже не откопал.

GetTimeZoneInformation