Code:

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;

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!