Чтение и запись в реестр Windows в произвольную ветку можно произвести при помощи функций объекта WScript.Shell: RegRead и RegWrite Первая функция возвращает значение, считанное из реестра, вторая - записывает заданное значение в реестр. При попытке считать несуществующий параметр возникает ошибка,
Пара функций для примера: (получаем настройки программы из реестра Windows) Function DefaultMailAccount() As String ' читает из реестра настройки почтового ящика, ' установленного в TheBAT! как "ящик по-умолчанию" ' возвращает адрес почты, или пустую строку, если TheBAT! не настроен On Error Resume Next: Err.Clear key$ = "HKEY_CURRENT_USER\Software\RIT\The Bat!\Users depot\Default" DefaultMailAccount = CreateObject("WScript.Shell").RegRead(key$) End Function Function ПутьКФайлуПрограммыTheBAT() As String ' читает из реестра путь к исполняемому файлу программы TheBAT! ' возвращает путь к файлу, или пустую строку, если TheBAT! не установлен On Error Resume Next: Err.Clear key$ = "HKEY_CURRENT_USER\Software\RIT\The Bat!\EXE path" ПутьКФайлуПрограммыTheBAT = CreateObject("WScript.Shell").RegRead(key$) End Function
|
|||
Комментарии
Отправить комментарий