EDID REG_BINARY als String ausgeben

[Bummi]

Delphi-Quellcode:

var
  s,s2:AnsiString;
  size:Integer;
  i:Integer;
begin
//...SNIP
    SetLength(s,100000);
    size := reg.ReadBinaryData('EDID', s[1], 100000);
    SetLength(s,size);
    for I := 1 to Length(s) do s2 := s2 +  IntToHex(Ord(s[i]),2);

//...SNIP
end;