如何向注册表中写入一个二进制数？？？

Question

var 
  i:tregistry;
  begin
  i:=tregistry.create
  i.rootkey:=HKEY_CURRENT_USER ;
  i.openkey('\Software\aaaaa',true) ;
  reg.riteBinaryData(const Name: String; var Buffer; BufSize: Integer);
  i.closekey;
end;

Answer 1

我很笨，请告诉我，Buffer上，我需要填什么？？？

Answer 2

可以
buf:PChar;
GetMem(buf,8);
strpcopy(buf,'20000000');
在writeBinaryData('sdf',buf^,8);
最后
FreeMem(buf,8);