ValueExists(ValueName: String): Boolean;
ValueName. Наименование параметра, наличие которого необходимо проверить.
Метод ValueExists осуществляет проверку наличия параметра в подразделе реестра.
Метод возвращает значение True, если параметр существует и False, если не существует.
Добавьте ссылку на системную сборку 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. Если параметр существует, то он будет удалён.
См.также: