Записать в реестр данные бинарного вида

var

  Reg: TRegistry;
  buf : array
 [0..4] of
 byte;
  i: Integer;
begin

  Reg := TRegistry.Create;
  try

    Reg.RootKey := HKEY_CURRENT_USER;
    if
 Reg.OpenKey('Software', True
) then
 begin

      for
 i:=1 to
 4 do
 buf[i]:=0;
      buf[0]:=1;
      Reg.WriteBinnaryData('Value', buf, sizeof(buf));
      Reg.CloseKey;
    end
;
  finally

    Reg.Free;
    inherited
;
  end
;
  {...}
end
;

Другое по теме:

• Добавить ссылку на мой файл в меню Пуск|Документы
• Добавление программы в автозапуск
• Браузер по реестру