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

uses Registry; 
  
procedure TForm1.Button1Click(Sender: TObject); 
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; 
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (10 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий