Цитата:
Сообщение от 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;