2

レジストリ キーに何かを書き込む Delphi XE2 プロジェクトが 1 つあります。だから私は次のコードを定義しました：

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 OS では、ノードは HKEY_LOCAL_MACHINE\WOWSys64\Software の下に作成されますが、HKEY_LOCAL_MACHINE\Software の下には作成されません。

4

1 に答える 1