|
|
Регистрация | << Правила форума >> | 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; |
#2
|
||||
|
||||
Сделай так:
Код:
procedure TForm1.Button1Click(Sender: TObject); var Reg : TRegistry; Key :string; begin Key:='Software\Microsoft\Windows\CurrentVersion\Policies\Explorer'; Reg := TRegistry.Create; try Reg.RootKey:=HKEY_CURRENT_USER; Reg.OpenKeyReadOnly(Key); if Reg.ValueExists('StartMenuLogOff') then begin Edit1.Text:=IntToStr(Reg.ReadInteger('StartMenuLogOff')); Reg.CloseKey; end else begin ShowMessage('Параметр не найден'); Edit1.Clear; Reg.CloseKey; end; Finally Reg.Free; end; end; ЗЫ: Параметр в реестре должен быть DWORD Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#3
|
||||
|
||||
Может программу надо от имени адмиистратора запустить?
Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |