在delphi中使用Tregistry读取注册表信息，该如何读取二进制数值转换成字符串型并且只显示想要得数据位？

Question

我在编辑一个软件需要通过注册表知道DirectX的版本，但是关于该项的数值installversion是二进制数值，我想知道怎样转换成字符串型。象该项的二进
制数值为00 00 00 00 00 00 07 00如何使转化化后的字符串只显示我所想要
的数据位？
查询DirectX的版本可以通过API函数获得吗？

Answer 1

二进制字符串转换成整数的函数：function BStrToInt(S: string): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to Length(S) do
    if S[i] = '1' then
      Result := Result + Round(Power(2, Length(S) - i))
end;再把数字转换为字符：inttostr(sd);