Запись REG_BINARY данных в реестр

[Человек_Борща]

Доброго врем времени!

Имеется реестр.
Вот с такими данными(изначально):

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render\{b099b4dd-152c-43b4-97d6-a896fc1576bb}]
"Role:0"=hex:db,07,05,00,01,00,10,00,0b,00,0c,00,03,00,b8,03
"Role:1"=hex:db,07,05,00,01,00,10,00,0b,00,0c,00,03,00,b8,03
"Role:2"=hex:db,07,05,00,01,00,10,00,0b,00,0c,00,03,00,b8,03

копал форум. Нашёл немного полезностей.
И в результате замутил такой код:

procedure TForm1.Button1Click(Sender: TObject);
const
  Role0:array[1..15] of Byte = ($07,$05,$00,$01,$00,$10,$00,$0b,$00,$05,$00,$1f,$00,$93,$02);
  Role1:array[1..15] of Byte = ($07,$05,$00,$01,$00,$10,$00,$0b,$00,$05,$00,$1f,$00,$93,$02);
  Role2:array[1..15] of Byte = ($07,$05,$00,$01,$00,$10,$00,$0b,$00,$01,$00,$34,$00,$e2,$01);
  regDataPath='SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render\{b099b4dd-152c-43b4-97d6-a896fc1576bb}';
var
  Reg:TRegistry;
  RegPath:string;
  Buf:array[0..14] of Byte;
  i:Integer;
begin
  Reg:=TRegistry.Create;
  try
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  RegPath:=regDataPath;
  if not Reg.OpenKeyReadOnly(RegPath) then
  begin
  ShowMessage('Не найдена указанная верка реестра!');
  end else
  begin
    for i:=0 to 14 do
    begin
    Buf[i]:=Role0[i+1];
    end;
   Reg.WriteBinaryData('Role:0',Buf,SizeOf(Buf));
  end;
  finally
  Reg.CloseKey;
  FreeAndNil(Reg);
  end;
end;

Но выбивает ошибку: Failed to set data for "Role:0"

Как быть?

[Человек_Борща]

Поможет кто? Или никто никогда бинарные данные в реестр не писал?

[maxionans]

может быть прав не хватает для записи?

[Человек_Борща]

Прав достаточноПолный адм. доступ).

[maxionans]

ну а какой-нибудь код ошибки показывает? и получается ли записать туда же, например, String?

[Баламут]

Может стоит открыть ключ не только для чтения?

if not Reg.OpenKeyReadOnly(RegPath) then

[Serge_Bliznykov]

Баламут, супер!

вместо этого достаточно

  if not Reg.OpenKey(RegPath, False) then ...

я тоже вчера минут десять дёргал код и безуспешно!
Но очевидного не заметил!

[Баламут]

Да ладно уж...
Просто код своего редактора реестра еще свеж в памяти...

[Человек_Борща]

Аа блин.. может не пишет потому что открыл ключ только только для чтения..?
Думаю сегодня попробую просто Reg.OpenKey('',false) может что-то и получится.

[volod3000]

Вот похожая тема , может поможет .