![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
|
Почему не возможно читать значение ключа??
Код:
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
Key := 'Software\Microsoft\Windows\CurrentVersion\Policies\Explоrer';
if Reg.OpenKeyReadOnly(Key) then
begin
if Reg.ValueExists('StartMenuLogOff') then
begin
RegKey := Reg.ReadInteger('StartMenuLogOff');
Reg.CloseKey;
edit1.Text :=inttostr(RegKey);
end
else
edit1.Text:='';
end;
finally
Reg.Free
end; |