Неверов Евгений Викторович
Меню сайта
Категории раздела
Программирование на языке Паскаль [27]
В данной категории представлены новые функции, созданные на языке Паскаль, которые могут пригодиться при написании своих программ
Программирование на Delphi [18]
В данной категории представлены полезные подпрограммы, которые могут пригодиться при написании своих программ, а также рассматриваются примеры готовых проектов, создаваемых в среде программирования Delphi
Программирование на HTML [0]
В данной категории рассматриваются примеры готовых проектов, создаваемых на языке HTML
Прочее [0]
Свободная тематика
Мини-чат
200
Наш опрос
Оцените мой сайт
Всего ответов: 41
Статистика

Рейтинг@Mail.ru
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » Статьи » Программирование на Delphi [ Добавить статью ]

Чтение системного реестра

1. Название операционной системы


uses Registry;

function WinInfo: string;
var Registry: TRegistry;
    rd: TRegDataType;
    Key_Open, Key_Read: string;
begin
   Key_Open:='Software\Microsoft\Windows\CurrentVersion';
   If (GetVersion and $80000000)=0 then
      Key_Open:='Software\Microsoft\Windows NT\CurrentVersion';
   Key_Read:='ProductName';
   Registry:=TRegistry.Create;
   try
   Registry.RootKey:=HKEY_LOCAL_MACHINE;
   Registry.OpenKey(Key_Open, false);
   rd:=Registry.GetDataType(Key_Read);
   If (rd=rdString) or (rd=rdExpandString) then
      Result:=Registry.ReadString(Key_Read) else
      Result:='';
   finally
      Registry.Free;
   end;
end;

Например, WinInfo выведет 'Windows 7 Home Basic'.


2. Список часовых поясов


uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var Registry: TRegistry;
    sl: TStringList;
    i: integer;
    Key_Open: string;
begin
   Memo1.Clear;
   Key_Open:='Software\Microsoft\Windows\CurrentVersion\Time Zones';
   If (GetVersion and $80000000)=0 then
      Key_Open:='Software\Microsoft\Windows NT\CurrentVersion\Time Zones';
   Registry:=TRegistry.Create;
   try
   Registry.RootKey:=HKEY_LOCAL_MACHINE;
   Registry.OpenKey(Key_Open, false);
   If Registry.HasSubKeys then
   begin
      sl:=TStringList.Create;
      Registry.GetKeyNames(sl);
      Registry.CloseKey;
      For i:=0 to sl.Count-1 do
      begin
         Registry.OpenKey(Key_Open+'\'+sl[i], false);
         Memo1.Lines.Add(sl[i]);
         Memo1.Lines.Add(Registry.ReadString('Display'));
         Memo1.Lines.Add(Registry.ReadString('Std'));
         Memo1.Lines.Add(Registry.ReadString('Dlt'));
         Memo1.Lines.Add('');
         Registry.CloseKey;
      end;
      sl.Free;
   end else
      Registry.CloseKey;
   finally
      Registry.Free;
   end;
end;

Например, текст в Memo1 будет выглядеть следующим образом (выборочно):

Alaskan Standard Time
(UTC-09:00) Аляска
Аляскинское время (зима)
Аляскинское время (лето)

Aleutian Standard Time
(UTC-10:00) Алеутские острова
Алеутские острова (зима)
Алеутские острова (лето)

Altai Standard Time
(UTC+07:00) Барнаул, Горно-Алтайск
Алтайское стандартное время
Алтайское летнее время

Astrakhan Standard Time
(UTC+04:00) Астрахань, Ульяновск
Астраханское стандартное время
Астраханское летнее время

Atlantic Standard Time
(UTC-04:00) Атлантическое время (Канада)
Атлантическое время (зима)
Атлантическое время (лето)

Azores Standard Time
(UTC-01:00) Азорские о-ва
Азорское время (зима)
Азорское время (лето)

Central America Standard Time
(UTC-06:00) Центральная Америка
Центральная Америка (зима)
Центральная Америка (лето)

Dateline Standard Time
(UTC-12:00) Линия перемены дат
Линия перемены дат (зима)
Линия перемены дат (лето)

E. South America Standard Time
(UTC-03:00) Бразилия
Восточное Ю-Ам. время (зима)
Восточное Ю-Ам. время (лето)

Easter Island Standard Time
(UTC-06:00) о. Пасхи
о. Пасхи, стандартное время
о. Пасхи, летнее время

Ekaterinburg Standard Time
(UTC+05:00) Екатеринбург
RTZ 4 (зима)
RTZ 4 (лето)

GMT Standard Time
(UTC+00:00) Дублин, Эдинбург, Лиссабон, Лондон
GMT - время по Гринвичу (зима)
GMT - время по Гринвичу (лето)

Haiti Standard Time
(UTC-05:00) Гаити
Гаитянское стандартное время
Гаитянское летнее время

Kaliningrad Standard Time
(UTC+02:00) Калининград
RTZ 1 (зима)
RTZ 1 (лето)

Line Islands Standard Time
(UTC+14:00) О-в Киритимати
О-ва Лайн (зима)
О-ва Лайн (лето)

Magadan Standard Time
(UTC+11:00) Магадан
Магадан (зима)
Магадан (лето)

N. Central Asia Standard Time
(UTC+07:00) Новосибирск
Новосибирское стандартное время
Новосибирское летнее время

North Asia East Standard Time
(UTC+08:00) Иркутск
RTZ 7 (зима)
RTZ 7 (лето)

North Asia Standard Time
(UTC+07:00) Красноярск
RTZ 6 (зима)
RTZ 6 (лето)

Omsk Standard Time
(UTC+06:00) Омск
Омское стандартное время
Омское летнее время

Pacific Standard Time
(UTC-08:00) Тихоокеанское время (США и Канада)
Тихоокеанское время США (зима)
Тихоокеанское время США (лето)

Romance Standard Time
(UTC+01:00) Брюссель, Копенгаген, Мадрид, Париж
Романское время (зима)
Романское время (лето)

Russia Time Zone 11
(UTC+12:00) Анадырь, Петропавловск-Камчатский
RTZ 11 (зима)
RTZ 11 (лето)

Russia Time Zone 3
(UTC+04:00) Ижевск, Самара
RTZ 3 (зима)
RTZ 3 (лето)

Russian Standard Time
(UTC+03:00) Москва, Санкт-Петербург, Волгоград
RTZ 2 (зима)
RTZ 2 (лето)

Sakhalin Standard Time
(UTC+11:00) Сахалин
Сахалинское стандартное время
Сахалинское летнее время

Samoa Standard Time
(UTC+13:00) Самоа
Самоанское время (зима)
Самоанское время (лето)

Saratov Standard Time
(UTC+04:00) Саратов
Саратов (зима)
Саратов (лето)

Tomsk Standard Time
(UTC+07:00) Томск
Томск (зима)
Томск (лето)

Transbaikal Standard Time
(UTC+09:00) Чита
Забайкальское стандартное время
Забайкальское летнее время

UTC
(UTC) Время в формате UTC
Время в формате UTC
Время в формате UTC

Vladivostok Standard Time
(UTC+10:00) Владивосток
RTZ 9 (зима)
RTZ 9 (лето)

Yakutsk Standard Time
(UTC+09:00) Якутск
RTZ 8 (зима)
RTZ 8 (лето)
Категория: Программирование на Delphi | Добавил: newerow1989 (14.08.2016 13:47 )
Просмотров: 83 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Все смайлы
Код *:
Поиск
Друзья сайта
  • Создать сайт
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • Все проекты компании
  • Copyright MyCorp © 2018
    Автор этого сайта: Неверов Евгений Викторович

    Мои координаты
    Бесплатный конструктор сайтов - uCozЯндекс.Метрика