VPF::часовой пояс... - Форум программистов

Albinos_x

Дата 2.5.2005, 15:51 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 3
Всего: 108

В прогарамме нужно узнать часовой пояс пользователя.
Пытался искать в реестре, но как понял там это хранится в виде цифрового значения.

Может у кого есть инфа по этому вопросу, или может есть еще способы?...

Заранее СПАСИБО за помощь!!! smile

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

rsm

Дата 2.5.2005, 16:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 999
Регистрация: 16.3.2005

Репутация: 1
Всего: 62

Код


program timezone;

uses
   Windows, SysUtils, Dialogs;

var
   tzi: TIME_ZONE_INFORMATION;
   zone: Real;

begin
   GetTimeZoneInformation(tzi);
   zone:= - (tzi.Bias / 60); // в переменной zone - количество часов (часовой пояс)
   ShowMessage(Format('%f', [zone]));
   ShowMessage(tzi.StandardName); // название зоны
end.

Это сообщение отредактировал(а) rsm - 2.5.2005, 16:44

Albinos_x

Дата 2.5.2005, 18:17 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 3
Всего: 108

спасибо. А есть возможность получать более точную информацию. К примеру:
то что выдаёт сейчас

Цитата

6,00
Северная Центр. Азия (лето)

// здесь была ошибка, выдавала зиму,а у меня лето (исправлено ...tzi.DaylightName... стало выдавать - лето)

а надо

Цитата

(GTM+6,00) Омск, Новосибирск, Алма-Ата (лето)

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

rsm

Дата 2.5.2005, 19:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 999
Регистрация: 16.3.2005

Репутация: 1
Всего: 62

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones - см. тут.

Poseidon

Дата 2.5.2005, 19:42 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 10
Всего: 133

Albinos_x, ну ты cпросил! smile

Ничего нового я не добавил, а только применил имеющееся!

Код

var
   tzi: TIME_ZONE_INFORMATION;
   zone: Real;

begin
   GetTimeZoneInformation(tzi);
   zone:= - (tzi.Bias / 60);
   if zone > 0 then ShowMessage('(GMT+'+Format('%f', [zone])+') '+tzi.DaylightName)
   else ShowMessage('(GMT'+Format('%f', [zone])+') '+tzi.DaylightName)
end;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Poseidon

Дата 2.5.2005, 20:11 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 10
Всего: 133

А вот еще вариантик:

Код


uses Registry;

...


var
  reg : TRegistry;
  ts : TStrings;
  i : integer;

   tzi: TIME_ZONE_INFORMATION;

begin
  GetTimeZoneInformation(tzi);

  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('SOFTWARE\Microsoft\Windows NT\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\Windows NT\CurrentVersion\Time Zones\' + ts.Strings[i], false);

      if tzi.StandardName = reg.ReadString('Std')
      then ShowMessage(reg.ReadString('Display'));
      reg.CloseKey;
    end;
    ts.Free;
  end
  else reg.CloseKey;
  reg.free;
end;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Albinos_x

Дата 2.5.2005, 20:17 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 3
Всего: 108

Poseidon

спасибо. Именно последний вариант мне и нужен был

Это сообщение отредактировал(а) Albinos_x - 2.5.2005, 20:20

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Poseidon

Дата 2.5.2005, 22:49 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 10
Всего: 133

Я когда выложил первый вариант, только тогда понял, что именно ты хочешь. Вот и набрасал второй вариант. Оказалось не ошибся. Рад, что помог smile

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Albinos_x

Дата 7.5.2005, 20:46 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 3
Всего: 108

Цитата

Оказалось не ошибся. Рад, что помог

Ещё раз спасибо smile

PS: я его немного модифицировал, чтобы он не только в WinNT работал...
как оказалось в 98 это всё хранится в
SOFTWARE\Microsoft\Windows\CurrentVersion\Time Zones

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »