Как получить список часовых поясов?

uses
 Registry;
...
var
 reg : TRegistry;
 ts : TStrings;
 i : integer;
begin
 reg := TRegistry.Create;
 reg.RootKey := HKEY_LOCAL_MACHINE;
 reg.OpenKey('SOFTWARE\Microsoft\Windows\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\CurrentVersion\Time Zones\' + ts.Strings[i], false);
  Memo1.Lines.Add(ts.Strings[i]);
  Memo1.Lines.Add(reg.ReadString('Display'));
  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;


Взято с http://delphiworld.narod.ru

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...