如何向注册表中写入二进制文件?

Question

说错了，是TRegistry的WriteBinaryData的方法

Answer 1

不是刚有人问过么?再告讼你一遍吧.
var 
  reg:tregistry;
  buffer:array of byte;
begin
  reg:=tregistry.create;
  try 
    reg.rootkey:=hkey_current_user;
    reg.openkey('\somekey');
    try 
      getmem(buffer,4);
      hextobin(pchar('01000000'),pchar(buffer),4);
      reg.WriteBinaryData('BinData',buffer[0],4);      
    finally
      freemem(buffer);
    end;
  finally  
    reg.free;
  end;
end;