![]() |
|
#1
|
||||
|
||||
![]() Доброго всем вечера.
Есть нужда упростить работу. Проверить откуда комп синхронизирует время, ну и остальные параметры тоже... Делаю так, и получаю ошибку. Код:
procedure TForm1.Button1Click(Sender: TObject); var Reg:TRegIniFile; begin Reg := TRegIniFile.Create; Reg.RootKey:=HKEY_LOCAL_MACHINE; Reg.OpenKey('SYSTEM', true); Reg.OpenKey('CurrentControlSet', true); Reg.OpenKey('servises', true); Reg.OpenKey('W32Time', true); Reg.OpenKey('Parametrs', true); LabeledEdit1.Text:= Reg.ReadString('NTPServer'); end; Цитата:
|