[Electronic_Arts]

Почему не возможно читать значение ключа??

Код:

         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;

[Yurk@]

Сделай так:

Код:

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

[The Shadow]

Может программу надо от имени адмиистратора запустить?