OpenSubKey(SubKeyName: String; Writable: Boolean): IRegistryKey;
SubKeyName. Наименование подраздела реестра.
Writable. Параметр, определяющий будет ли подраздел открываться только на чтение.
Метод OpenSubKey открывает подраздел реестра.
Для изменения данных подраздела задайте параметру Writable значение True.
Добавьте ссылку на системную сборку Registry.
Sub UserProc;
Var
RegKey, SubKey: IRegistryKey;
Begin
RegKey := RegistryClass.CurrentUser;
SubKey := RegKey.OpenSubKey("Software\MyProject\Params", True);
If SubKey.ValueExists("Param1") Then
SubKey.DeleteValue("Param1")
End If;
End Sub UserProc;
После выполнения примера в подразделе реестре [HKEY_CURRENT_USER\Software\MyProject\Params] будет осуществлен поиск параметра Param1. Если параметр существует, то он будет удалён.
См.также: