注册表读取字节流

function ReadBinary(const Name: string;
  const Registry: TRegistry): TByteDynArray;
var
  RDT: TRegDataType;
  Size: Integer;
begin
  Size := Registry.GetDataSize(Name);
  SetLength(Result, Size);
  Registry.ReadBinaryData(Name, PByte(Result)^, Size);
end;