Как реализовать запись hex в реестр?

[XuTpbIu]

Посмотри пример, который выложил Kotofff там объявлен буфер buf, и в него пишутся значения , только тебе на писать не buf[i] := random(255),а buf[I] := $XX, где ХХ, как я сказал ранее, 2 цифры(видишь каждое значение состоит у тебя из 2 цифр)
ЗЫ А начинать с реестра действительно опрометчиво.

[Stilet]

Никаких слэшей не нашёл.

Ant1Player выложил импорт ветки из реестра, там по-моему / является переводом каретки, и это только для красоты в файле импорте.

[XuTpbIu]

Хм... кажется ты прав. Тогда у меня родился ещё 1 извращенский способ, ну это как уж КРАЙНЕ альтернативный вариант:
Берём и редактируем экспортированный так файл как текстовый и заменяем искомое значение на нужное нам, а потом тем же винекзеком запускаем этот файл Правда появляется проблема с выполнением подтверждения записи данных в реестр...

[Ant1Player]

Ппц так и не догнал , прост у него в примере нет слова рандом можеш плз кинуть законченный вариант?

[XuTpbIu]

procedure TForm1.Button1Click(Sender: TObject);
const
  ValueAr: array [1..40] of Byte =( $01,$01,$01,$02,$00,$00,$00,$00,
                       			        $00,$a0,$00,$00,$00,$00,$00,$00,
                            			  $00,$40,$01,$00,$00,$00,$00,$00,
                                  	$00,$80,$02,$00,$00,$00,$00,$00,
			                              $00,$00,$05,$00,$00,$00,$00,$00);
var
  Reg: TRegistry;
  buf : array [0..39] of Byte;
  i: Integer;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Control Panel\Mouse', True) then
    begin
    	for I := 0 to 39 do
        buf[I] := ValueAr[I + 1];
      Reg.WriteBinaryData('Value', buf, sizeof(buf));
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;

Примерно так

[Ant1Player]

Спс большое!!

а если нужно сделать 2 изменения?
как тут поминять

  ValueAr: array [1..40] of Byte =( $01,$01,$01,$02,$00,$00,$00,$00,
                       			        $00,$a0,$00,$00,$00,$00,$00,$00,
                            			  $00,$40,$01,$00,$00,$00,$00,$00,
                                  	$00,$80,$02,$00,$00,$00,$00,$00,
			                              $00,$00,$05,$00,$00,$00,$00,$00);

[XuTpbIu]

ун просто подвигай влево да вправо(это если тебе форматирование не нравится) а так это все каждая пара цифр соответсвует паре цифр в строчке, которую целиком ты выкладывал.Знак $ означает что они записаны в 16ричной системе счисления

[Ant1Player]

а,все ,дошло.

Не я имел ввиду 2 изменения всмысле 2 записи в реестре, ща допер.
Спасибо огромное!!!

Можно сказать: моя первая программка написана =)

[omezik]

блин может кто переделает последний код в с++