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

Question

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

我参考了这个帖子,但我找不到合适的解决方案: 如何在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字符串的辅助函数.