WhiteUnicorn

	#WhiteUnicorn/ StartPage/ Documentation/DelphiFAQ >

Frequently Asked Questions

Getting a list of valid time zones from windows.

Question:

How can I retrieve a list of valid time zones from the system?

Answer:

The following example lists the time zones known to Windows.



Example:



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;

	#WhiteUnicorn/ StartPage/ Documentation/DelphiFAQ >

	Anastasija aka WhiteUnicorn	LiveJournal PhotoFile