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 (лето)
| 
