windows – 读取存储在注册表中的GUID值

发布时间：2020-12-14 02:03:35 所属栏目：Windows 来源：网络整理

导读：我尝试在Delphi中读取存储为二进制值的GUID值. 当我用BintoHex读取它时,结果是相反的顺序. 似乎我必须交换字节,但我认为BinToHex会这样做. 我参考了这个帖子,但我找不到合适的解决方案： how to convert byte array to its hex representation in Delphi 这

我尝试在Delphi中读取存储为二进制值的GUID值.
当我用BintoHex读取它时,结果是相反的顺序.
似乎我必须交换字节,但我认为BinToHex会这样做.

我参考了这个帖子,但我找不到合适的解决方案：
how to convert byte array to its hex representation in Delphi
这似乎是由于很少的Eendian.

在下面,您可以看到存储在注册表中的GUID

这是我的代码：

var
s : string;
buffer : pointer;
...

begin
getmem(buffer,1024*1024);
....
reg.ReadBinaryData(iValueOfregistry,buffer^,1024*1024);
....
bintohex(pointer(longint(buffer)+14),PChar(s),32);

输出为s：
90E24D373F126545916439C4925E467B

GUID应为FOLDERID_Downloads GUID：
{374DE290-123F-4565-9164-39C4925E467B}

请帮忙

解决方法

二进制形式的GUID最好被视为记录.确实在Delphi中,记录已经存在 – 它是 TGUID.

您需要做的就是将相关字节直接复制到TGUID类型的变量中,并完成您的工作.如果需要字符串表示,请使用GUIDToString.

var
  GUID: TGUID;
  strGUID: string;
....
GUID := PGUID(PAnsiChar(buffer)+14)^;
strGUID := GUIDToString(GUID);

这将自动处理所有endian问题.我们来看看TGUID的声明：

TGUID = packed record
  D1: LongWord;
  D2: Word;
  D3: Word;
  D4: array[0..7] of Byte;
end;

您的代码将此视为一个直接的字节数组.但是,在记录中,D1,D2和D3是小端机器上的整数类型.因此,您的代码会反转前4个字节,即属于D1的字节.然后它反转D2的两个字节,以及D3的两个字节.当然,GUID末尾的8个字节的数组不会反转.

因此,虽然您可以轻松地自己完成所有字节交换,但使用记录更好,并利用将二进制GUID记录转换为格式正确的GUID字符串的辅助函数.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!