ReadVariantDef(ValueName: String; DefaultValue: Variant): Variant;
ValueName. Наименование параметра, значение которого необходимо получить.
DefaultValue. Значение, которое будет подставляться, если параметр не существует.
Метод ReadVariantDef осуществляет считывание значения в формате Variant из строкового параметра в реестре.
Если параметр с наименованием ValueName не существует, то метод возвращает значение параметра DefaultValue.
Добавьте ссылку на системную сборку Registry.
Sub Main;
Var
RegKey, SubKey: IRegistryKey;
v: Variant;
Begin
RegKey := RegistryClass.CurrentUser;
SubKey := RegKey.OpenSubKey("Software\MyProject\Params", False);
v := SubKey.ReadVariantDef("Param1", "Not found");
End Sub Main;
После выполнения примера из параметра с наименованием Param1, расположенного в подразделе реестра [HKEY_CURRENT_USER\Software\MyProject\Params], в переменную v будет считано значение. Если параметр не существует, то в переменную будет установлено значение «Not found».
См.также: