delphi - TRegistry 可以写入 REG_NONE 值吗？

Question

我正在尝试使用 TRegistry 来使用扩展程序的 OpenWithProgids key 。我没有看到 TRegistry 可以写入这些值(需要 REG_NONE 类型)。我知道我可以使用 API RegSetValueEx 函数来设置这些值，但我想知道 TRegistry 中是否缺少一些可以做吧。

Answer 1

确实，TRegistry 不直接支持 REG_NONE 值。但是，通过 protected hack，您可以欺骗它创建零长度的二进制 REG_NONE 值:

type
  TRegistryHack = class(TRegistry);
....
TRegistryHack(Registry).PutData(ValueName, nil, 0, rdUnknown);

您需要使用 protected hack 来访问 protected 成员 PutData。更简洁的方法是使用类助手或从 TRegistry 派生的真正类，但您明白了。