WriteVariant(ValueName: String; Value: Variant);
ValueName. Наименование параметра, значение которого необходимо изменить;
Value. Значение, которое необходимо установить для параметра в реестре.
Метод WriteVariant осуществляет изменение значения параметра типа Variant.
В качестве значений параметра Value могут передаваться только данные простых типов (String, Integer и т.д.).
Если параметр, либо подраздел не существуют, то они создаются автоматически. Если параметр существует - тип и значение будут изменены в соответствии с заносимыми данными.
Если необходимо изменить значение параметра по умолчанию - необходимо в качестве наименования передать пустую строку ("").
Для выполнения примера в реестре предполагается наличие параметра с наименованием Param1, расположенного в подразделе [HKEY_CURRENT_USER\Software\MyProject\Params].
Добавьте ссылку на системную сборку Registry.
Sub UserProc;
Var
RegKey, SubKey: IRegistryKey;
Begin
// Получим подраздел с настройками пользователя
RegKey := RegistryClass.CurrentUser;
SubKey := RegKey.OpenSubKey("Software\MyProject\Params", True);
// Установим строковое значение для параметра
SubKey.WriteVariant("Param1", "Изменено:" + DateTime.Now.ToString);
End Sub UserProc;
В результате выполнения примера, для параметра с наименованием Param1, расположенном в подразделе [HKEY_CURRENT_USER\Software\MyProject\Params], будет установлено строковое значение «Изменено: <текущая дата и время>».
См. также: