1

Как в inno setup получить текущий часовой пояс?

2 ответа 2

0

Зону можно посмотреть в реестре: HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\TimeZoneInformation.

У меня под рукой сейчас нет windows, но думаю, что код будет приблизительно таким:

function GetTZ(Default: String): String;
  {function to get time zone}
  var ResultStr: String;
  begin
    Result:='{app}';
    if RegQueryStringValue(HKLM,'SYSTEM\CurrentControlSet\Control','TimeZoneInformation',ResultStr) 
    then
       Result:=ResultStr
    end;
  end;

Можно ещё запустить TZUTIL.exe с параметром /g и вывод присвоить в переменную. Как - описано тут

3
  • Выдает {app}. Но вижу ключ не правильный, нужно указать HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\TimeZoneInformation, но какой там параметр смотреть?
    – Pavel
    30 авг 2019 в 13:11
  • windata.ru/windows-xp/faq-xp/…
    – Sheridan
    30 авг 2019 в 13:27
  • Спасибо. Буду изучать.
    – Pavel
    30 авг 2019 в 14:42
0

После поиска и изучения материала получился такой код (может кому-то пригодится):

function GetGMT(): string;
var
  ZoneName, gmt: string;
begin
  Result := '';
  RegQueryStringValue(HKLM, 'SYSTEM\CurrentControlSet\Control\TimeZoneInformation', 'TimeZoneKeyName', ZoneName);
  if ZoneName <> '' then
    if RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones\'+ZoneName) then
      if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones\'+ZoneName, 'Display', gmt) then
        if gmt <> '' then Result := gmt;
end;

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.