А я уверен, что за нужной информацией далеко ходить не нужно, ибо она наличествует в справке
![Razz :P](./images/smilies/icon_razz.gif)
И дабы не быть голословным, процитирую всю справку касательно :
Инструкция SaveSetting
Сохраняет или создает раздел или запись в разделе приложения в реестре Windows.
Синтаксис
SaveSetting appname, section, key, setting
Синтаксис инструкции SaveSetting содержит следующие именованные аргументы:
Элемент - Описание
appname - Обязательный. Строковое выражение, содержащее имя приложения или проекта, которому соответствует раздел.
section - Обязательный. Строковое выражение, содержащее имя раздела, в котором сохраняется значение.
key - Обязательный. Строковое выражение, содержащее имя сохраняемой записи.
setting - Обязательный. Выражение, содержащее значение записи, указанной в аргументе key.
Дополнительные сведения
Если значение по какой-либо причине сохранить не удается, возвращается ошибка.
Пример использования инструкции SaveSetting
Код:
В данном примере сначала с помощью инструкции SaveSetting заполняются элементы реестра Windows (или файла .INI на 16-разрядных платформах Windows) для приложения MyApp, а затем инструкция DeleteSetting вызывается для их удаления.
' Заполнение реестра.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Удаляем из реестра раздел приложения со всем содержимым.
DeleteSetting "MyApp", "Startup"
Функция GetSettingВозвращает значение записи из раздела, соответствующего приложению в реестре Windows.
Синтаксис
GetSetting(appname, section, key[, default])
Синтаксис функции GetSetting содержит следующие именованные аргументы:
Элемент - Описание
appname - Обязательный. Строковое выражение, содержащее имя приложения или проекта, для которого определяются записи.
section - Обязательный. Строковое выражение, содержащее имя раздела, в котором находится запись.
key - Обязательный. Строковое выражение, содержащее имя возвращаемой записи.
default - Необязательный. Выражение, содержащее значение, возвращаемое в том случае, если значение записи не задано. Если аргумент default не определен, то подразумевается пустая строка ("").
Дополнительные сведения
Если в любом из аргументов указано несуществующее значение, функция GetSetting возвращает значение аргумента default.
Пример использования функции GetSettingКод:
В данном примере сначала с помощью инструкции SaveSetting заполняются элементы реестра Windows (или файла .INI на 16-разрядных платформах Windows) для приложения, указанного в аргументе appname, а затем одна из записей выводится с помощью функции GetSetting. Поскольку аргумент default определен, обязательно будет возвращено некоторое значение. Следует отметить, что имена разделов, указанные в аргументе section, не могут быть возвращены с помощью GetSetting. И наконец, функция DeleteSetting удаляет элементы, относящиеся к приложению.
' Переменная типа Variant, в которую будет записан двумерный
' массив, возвращаемый функцией GetSetting.
Dim MySettings As Variant
' Заполнение реестра.
SaveSetting "MyApp","Startup", "Top", 75
SaveSetting "MyApp","Startup", "Left", 50
Debug.Print GetSetting(appname := "MyApp", section := "Startup", _
key := "Left", default := "25")
DeleteSetting "MyApp", "Startup"
Функция GetAllSettingsВозвращает список записей и их значений (созданных с помощью функции SaveSetting) из раздела, соответствующего приложению, в реестре Windows.
Синтаксис
GetAllSettings(appname, section)
Синтаксис функции GetAllSettings содержит следующие именованные аргументы:
Элемент - Описание
appname - Обязательный. Строковое выражение, содержащее имя приложения или проекта, для которого определяются записи.
section - Обязательный. Строковое выражение, содержащее имя раздела, для которого определяются записи. Функция GetAllSettings возвращает значение типа Variant, содержащее двумерный массив, содержащее двумерный строковый массив с именами всех записей в указанном разделе и их значений.
Дополнительные сведения
Функция GetAllSettings возвращает неинициализированное значение типа Variant, если хотя бы в одном из аргументов appname или section указано несуществующее значение.
Пример использования функции GetAllSettingsКод:
В данном примере сначала с помощью инструкции SaveSetting заполняются элементы реестра Windows (или файла .INI на 16-разрядных платформах Windows) для приложения, указанного в аргументе appname, а затем значения записей выводятся с помощью функции GetAllSettings. Отметим, что функция GetAllSettings не возвращает имена приложений и имена разделов, указанных в аргументе section . И наконец, функция DeleteSetting удаляет элементы, относящиеся к приложению.
' Описываем переменную типа Variant, в которую будет записан двумерный
' массив, возвращаемый функцией GetAllSettings.
' Описываем счетчик с типом Integer.
Dim MySettings As Variant, intSettings As Integer
' Заполнение реестра.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Возвращает записи.
MySettings = GetAllSettings(appname := "MyApp", section := "Startup")
For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
DeleteSetting "MyApp", "Startup"
Инструкция DeleteSettingУдаляет раздел или запись из раздела приложения в реестре Windows.
Синтаксис
DeleteSetting appname, section[, key]
Синтаксис инструкции DeleteSetting содержит следующие именованные аргументы:
Элемент - Описание
appname - Обязательный. Строковое выражение, содержащее имя приложения или проекта, к которому относится раздел или запись.
section - Обязательный. Строковое выражение, содержащее имя раздела, в котором удаляется запись. Если определены только аргументы appname и section, указанный раздел удаляется полностью со всеми записями.
key - Необязательный. Строковое выражение, содержащее имя удаляемой записи.
Дополнительные сведения
Если определены все аргументы, удаляется только указанная запись. Если указанный раздел или запись не существует, инструкция DeleteSetting не имеет последствий.
Пример использования инструкции DeleteSettingКод:
В данном примере сначала с помощью инструкции SaveSetting заполняются элементы реестра Windows (или файла .INI на 16-разрядных платформах Windows) для приложения MyApp, а затем инструкция DeleteSetting вызывается для их удаления. Поскольку аргумент key не определен, удаляется весь раздел, в том числе имя раздела и все содержащиеся в нем записи.
' Заполнение реестра.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Удаление из реестра раздела со всем содержимым.
DeleteSetting "MyApp", "Startup"
Copyright(c) 1996 Microsoft Corporation.