注册表：二进制数值怎么写？

Question

HKEY_LOCAL_MACHINE\SOFTWARE\wealsh\
sss 的数值为：14 00 1F 50 E0 4F D0 20 EA 3A 69 10 A2 D8 08 00 2B 30 30 9D 19 00 23 47 3A 5C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 41 E7 13 00 31 00 00 00 00 00 FD 30 77 88 10 00 73 71 6C 00 00 00 00该怎么写？

Answer 1

tregistry类的writebinarydata()方法行不行

Answer 2

是啊，问题是值怎么写，如：14 00 1F 50 E0 4F D0 20 EA 3A 69 10 A2 D8 08 00 2B 30 30 9D 19 00 23 47 3A 5C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 41 E7 13 00 31 00 00 00 00 00 FD 30 77 88 10 00 73 71 6C 00 00 00 00

Answer 3

做一个数组或者一个指针或者一个流。以指针为例：
var
  p : Pointer;
  i : Integer;
begin
  GetMem(p, 100);
  try
    //写入数据
    for i := 0 to 99 do
      PByteArray(p)[i] := Byte(i);
    //写入注册表
    reg.WriteBinaryData('lalalala', p^, 100);
  finally
    FreeMem(p);
  end;
end;