Довідник:одиниці вимірювання, система числення, час у різних країнах, Детальна інформація

i : integer;

s : string[150];

begin

TimeTimer.Enabled := False;

ComboGMT.Items.Clear;

reg := TRegistry.Create;

reg.RootKey := HKEY_LOCAL_MACHINE;

reg.OpenKey( 'SOFTWARE\Microsoft\Windows NT\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 NT\CurrentVersion\Time Zones\' + ts.Strings[i], false);

s:= reg.ReadString('Display')+' ('+reg.ReadString('Std');

s:=Copy(s,0,length(s)-7);

ComboGMT.Items.Add(s+')');

reg.CloseKey;

end;

ts.Free;

ComboGMT.ItemIndex:=1;

ComboGMT.Items.SaveToFile(ExtractFilePath(Application.ExeName)+ 'GMTs.inf');

TimeTimer.Enabled := True;

end else

reg.CloseKey;

reg.free; end;

procedure TMainForm.N2Click(Sender: TObject);

begin

ComboGMT.Items.Clear;

ComboGMT.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+ 'GMTs_default.inf');