Показать сообщение отдельно
  #4  
Старый 09.03.2013, 22:45
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,097
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Цитата:
Сообщение от angvelem
Спутал 2 типа TRegistry и TRegIniFile. Исправь на
Код:
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create; 
...

Ага, и открывать надо ключ сразу по пути:
Код:
If Reg.OpenKeyReadOnly('SYSTEM\CurrentControlSet\servises\W32Time\Parametrs') Then // Ты ведь только читаешь...
  Begin
    If Reg.ValueExists('NTPServer')
      Then LabeledEdit1.Text:= Reg.ReadString('NTPServer')
      Else LabeledEdit1.Text:= 'N/A';
    Reg.CloseKey;
  End;
Ответить с цитированием