delphi - 如何设置注册表项的值

Question

我有一个 Delphi XE2 项目要在注册表项中写一些东西。所以我定义了以下代码:

procedure TMainForm.BitBtn01Click(Sender: TObject);
var
  RegistryEntry: TRegistry;
begin
  RegistryEntry:= TRegistry.Create(KEY_READ);
  RegistryEntry.RootKey:= HKEY_LOCAL_MACHINE;
  if (not RegistryEntry.KeyExists('Software\MyCompanyName\MyName\')) then
  begin
    RegistryEntry.Access:= KEY_WRITE;
    RegistryEntry.OpenKey('Software\MyCompanyName\MyName\',True);
  end;
  RegistryEntry.CloseKey();
  RegistryEntry.Free;
end;

如果有任何字符串添加我已经定义了以下代码:

if (not RegistryEntry.KeyExists('Licenced To')) then
  begin
    RegistryEntry.WriteString('Licenced To', 'MySurname MyFirstName');
  end;

我的要求:

<强>01。如图所示设置默认值:

<强>02。在 Win64 操作系统中，节点是在 HKEY_LOCAL_MACHINE\WOWSys64\Software 下创建的，而不是在 HKEY_LOCAL_MACHINE\Software 下创建的。

Answer 1

32 位应用程序所需的行为。
如果您需要写入 64 位根目录，您可以使用 KEY_WOW64_64KEY；
在任何情况下，您都需要提升权限才能写入 HKEY_LOCAL_MACHINE

RegistryEntry.Access:= KEY_WRITE or KEY_WOW64_64KEY;