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;
转载于:https://www.cnblogs.com/fyen/archive/2011/01/15/1936083.html