![]() |
|
|
#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;Цитата:
|