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

Question

我尝试在Delphi的注册表中读取存储为binary值的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}

请帮忙

Answer 1

二进制形式的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字符串的辅助函数。