Реестр vb6

Visual Basic Source Code — Writing to the Registry

For: VB4, VB5, VB6

Visual Basic, by default using GetSetting and SaveSetting allows reading and writing only to the VB and VBA Programs key under HKEY_Current_User\Software. There can be any number of reasons to want to read or write other portions of the registry, and that can be accomplished using API calls. There are two typical ways that this is done; the first is with a Class Module, and the second is with a regular function or sub. I personally prefer the function/sub approach, which is shown in the code below. My earliest versions of this code were published on Compuserve in 1996, and have evolved steadily since then.

With this code, you can write strings to any portion of the registry for which you have permissions. A Read Function is on another page (link at bottom). First you need a number of declares. Not all of these are used for every registry access, but it will not hurt to include them in the declarations portion of the .BAS module that contains your function/subroutine. Copy/Paste from the box below:

Now we are ready for the subs themselves. If the value does not exist, it will be created. This sub will write string (REG_SZ) values:

I prefer a separate subroutine to accept numeric values. This sub will write number (REG_DWORD) values:

This site uses cookies to deliver our services and to show you relevant ads and job listings. By using our site, you acknowledge that you have read and understand our Cookie Policy, Privacy Policy, and our Terms of Service. Your use of Stack Overflow’s Products and Services, including the Stack Overflow Network, is subject to these policies and terms.

Содержание:

C# reads wrong registry data on 64-bit OS

I’m working on a 64-bit Windows and my applicaiton runs with elevated privileges. I have a problem with the following very simple piece of code:

But for some reason HKLMvaluenames array is populated with values from the following key:

Is there a way around this problem?

This is by design, 32-bit programs have a different view of the registry than 64-bit programs. They are redirected to the HKLM\Software\Wow6432Node key when they try to read a value from the HKLM\Software hive. If you build your C# program with Project + Properties, Build tab, Platform Target = Any CPU then it will run as a 64-bit program and won’t get redirected.

32-bit programs can cancel the redirection but that’s not easily done with the .NET RegistryKey class. P/Invoking RegOpenKeyEx with the KEY_WOW64_64KEY option is required. More info is available in this Windows SDK article.

Откуда: Украина, Хмельницкий
Сообщений: 742


Привет!
Пишу прогу на VBA в Word’e.
Нужно прочитать строковый ключ реестра. Как это сделать?

З.Ы. Записывать в реестр получается:

______________________________
Never Surrender — Nothing Impossible!

Откуда: Москва
Сообщений: 1555

Откуда: Майкоп
Сообщений: 592

Как записать\прочитать параметр в реестр

Автор ответа: Dufa
Private Declare Function RegOpenKey Lib «advapi32.dll» Alias «RegOpenKeyA» (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegOpenKeyEx Lib «advapi32» Alias «RegOpenKeyExA» (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib «advapi32» Alias «RegSetValueExA» (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal szData As String, ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib «advapi32» (ByVal hKey As Long) As Long
Private Declare Function RegQueryValueEx Lib «advapi32» Alias «RegQueryValueExA» (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal szData As String, ByRef lpcbData As Long) As Long
Private Declare Function RegCreateKeyEx Lib «advapi32» Alias «RegCreateKeyExA» (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByRef lpSecurityAttributes As Long, phkResult As Long, lpdwDisposition As Long) As Long
Private Declare Function RegCreateKey Lib «advapi32.dll» Alias «RegCreateKeyA» (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long)
‘ Registry keys
Private Enum hKey
HKEY_CLASSES_ROOT = &H80000000
HKEY_CURRENT_USER = &H80000001
HKEY_LOCAL_MACHINE = &H80000002
HKEY_USERS = &H80000003
HKEY_PERFORMANCE_DATA = &H80000004
HKEY_CURRENT_CONFIG = &H80000005
HKEY_DYN_DATA = &H80000006
End Enum
‘ Registry access constants
Private Enum Reg
KEY_QUERY_VALUE = &H1
KEY_SET_VALUE = &H2
KEY_CREATE_SUB_KEY = &H4
KEY_ENUMERATE_SUB_KEYS = &H8
KEY_NOTIFY = &H10
KEY_CREATE_LINK = &H20
KEY_READ = KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY
KEY_WRITE = KEY_SET_VALUE Or KEY_CREATE_SUB_KEY
KEY_ALL_ACCESS = KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_SUB_KEY Or KEY_CREATE_LINK Or KEY_SET_VALUE
REG_OPTION_NON_VOLATILE = 0&
REG_OPTION_VOLATILE = &H1
End Enum
‘ФУНКЦИЯ ДЛЯ ЧТЕНИЯ СТРОКОВОГО ПАРАМЕТРА
Private Function RegGetString(Root As hKey, SubKey As String, Key As String) As String
Dim Buffer As String, hKey As Long, nType As Long, nSize As Long
RegGetString = 0
If Not RegOpenKeyEx(Root, SubKey, 0, KEY_READ, hKey) Then
nSize = 0
Call RegQueryValueEx(hKey, Key, 0, nType, Buffer, nSize)
If hKey And nSize > 0 And nType = 1 Then
Buffer = Space(nSize + 1)
RegQueryValueEx hKey, Key, 0, nType, Buffer, nSize
RegGetString = Left(Buffer, nSize — 1)
Call RegCloseKey(hKey)
End If
End If
End Function
‘ФУНКЦИЯ ДЛЯ ЗАПИСИ СТРОКОВОГО ПАРАМЕТРА
Private Sub RegSetString(Root As Long, SubKey As String, Key As String, Value As String)
Dim hKey As Long, nDisp As Long
If Not RegCreateKeyEx(Root, SubKey, 0, vbNull, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, 0, hKey, nDisp) Then
Call RegSetValueEx(hKey, Key, 0, 1, Value, Len(Value) + 1)
Call RegCloseKey(hKey)
End If
End Sub
‘ФУНКЦИЯ ДЛЯ ЧТЕНИЯ ПАРАМЕТРА ТИПА DWORD
Public Function RegGetDWORD(Root As Long, SubKey As String, strValueName As String) As Long
Dim lResult As Long, lValueType As Long, lBuf As Long, lDataBufSize As Long, keyhand As Long
Call RegOpenKey(Root, SubKey, keyhand)
lDataBufSize = 4
lResult = RegQueryValueEx(keyhand, strValueName, 0&, lValueType, lBuf, lDataBufSize)
If lResult = 0 And lValueType = 4 Then RegGetDWORD = lBuf
Call RegCloseKey(keyhand)
End Function
‘ФУНКЦИЯ ДЛЯ ЗАПИСИ ПАРАМЕТРА ТИПА DWORD
Public Sub RegSetDWORD(Root As Long, SubKey As String, strValueName As String, ByVal Value As Long)
Dim lResult As Long, keyhand As Long
Call RegCreateKey(Root, SubKey, keyhand)
lResult = RegSetValueEx(keyhand, strValueName, 0&, 4, Value, 4)
Call RegCloseKey(keyhand)
End Sub

Docker Registry

Looking for Docker Trusted Registry?

Docker Trusted Registry (DTR) is a commercial product that enables complete image management workflow, featuring LDAP integration, image signing, security scanning, and integration with Universal Control Plane. DTR is offered as an add-on to Docker Enterprise subscriptions of Standard or higher.

What it is

The Registry is a stateless, highly scalable server side application that stores and lets you distribute Docker images. The Registry is open-source, under the permissive Apache license.

Why use it

You should use the Registry if you want to:

  • tightly control where your images are being stored
  • fully own your images distribution pipeline
  • integrate image storage and distribution tightly into your in-house development workflow
  • Alternatives

    Users looking for a zero maintenance, ready-to-go solution are encouraged to head-over to the Docker Hub, which provides a free-to-use, hosted Registry, plus additional features (organization accounts, automated builds, and more).

    Users looking for a commercially supported version of the Registry should look into Docker Trusted Registry.

    Requirements

    The Registry is compatible with Docker engine version 1.6.0 or higher.

    Basic commands

    Start your registry

    Pull (or build) some image from the hub

    Tag the image so that it points to your registry

    Фрилансер Николай Расторгуев msotools — Портфолио — Специализация VBA, VB, VBS и VB. NETОбо мне: Специализация VBA, VB, VBS и VB. NET. Стаж более 2. Один из лучших специалистов VBA в рунете. Любая автоматизация для Microsoft Office (базы Access, Excel, Word, Outlook, Power. Point, Publisher..), Corel. Draw, Auto. CAD, In.

    • Разраборка базы договоров, зашли в тупик MS Access MS Access Учет договоров и дополнительных соглашений MS Access БД ведение складского.
    • Форма оплаты может быть наличными или по безналичному расчету. Скачать отчёт по базе данных с экранными формами бесплатно. Скачать базу данных access Формирование реестра заказов.
    • Выкладываю свой первый вариант, созданный в Access. Избрал его по следующим причинам: есть практически у всех, прост в. Господа юристы, а что если попробовать самим создать, к примеру, базу для ведения договоров, такую какую удобно нам (а получиться и для реестра.
    • Собственная система учета договоров на основе Access. Руководство «Иркутскэнергосвязи» решило отказаться от учета с использованием Excel и перейти на систему, которая строилась бы на основе базы данных.
    • Ведение реестра договоров филиалов ЧОФОМС. Программный продукт предназначен для регистрации договоров филиалов фонда. База данных сделана в MS Access в формате MS Access 2002-2003 и содержит один файл Договора.mde.
    • Вот и я понял, что это лучше реализовать в Access. Сижу, пробую в Access. Да только несилен я в этом деле, но хочу научиться.
    • Реестр договоров через Access. Главный плюс ведения реестра в программе Microsoft Acccess: все проекты доверенностей, их варианты в формате word, сканированные копии, отзывы доверенностей находятся в одном файле.

    Реестр заказов Структура таблицы: Дата заказа, Номер заказа, Код клиента, Стоимость заказа. Отчет «Ведомость заказов» — База данных Access Формирование реестра заказов.

    Design, Illustrator, а также приклад. УЧЕБНЫЕ ЗАДАНИЯ НЕ ПРЕДЛАГАТЬ. ЗА ПРОЕКТЫ МЕНЕЕ $2. НЕ БЕРУСЬ. Сервис автоматического заполнения документов: http: //docwebservice. Фрилансер Николай Расторгуев msotoolsключевые слова: vba,vb,vbs,office,access,excel,word,outlook,powerpoint,visio,coreldraw,autocad,indesign,illustrator,парсер,база данных.

    Скачать базу данных access Договорная деятельность организации. ЗАДАНИЕпо теме «СОЗДАНИЕ БАЗ ДАННЫХ В СУБД ACCESS»ВАРИАНТ . Цель работы. Получение навыков работы по созданию структуры таблиц, модификации структуры таблиц, заполнению таблиц. Создание ключевых полей, индексированных полей, установка связей между таблицами. Удаление информации из связанных таблиц и восстановление этой информации.

    Темы для предварительного изучения. Перед выполнением работы необходимо ознакомиться со следующими темами: Проектирование реляционных баз данных, Создание новой базы данных, Создание таблиц, Типы полей, используемые СУБД Access, Сохранение таблиц, Создание ключевого поля, Изменение структуры таблицы, добавление данных в таблицу, Редактирование и удаление данных, Изменение внешнего вида таблицы, Печать таблицы, Поиск данных в таблице, Добавление индексов в таблицу, Установка связей между таблицами. Задание. Создать структуры таблиц, ключевые и индексные поля. Заполнить таблицы данными, установить связи, удалить данные, восстановить их. Таблица 1. Цель работы. Получение навыков работы по созданию запросов. Темы для предварительного изучения.

    Назначение запросов, типы запросов, создание запросов на выборку из одной или нескольких таблиц, типы запросов на изменение и технология их разработки. Задание. Создать запрос на выборку информации из основной таблицы, из связанных таблиц, создать параметрический запрос, запрос для выбора информации для создания сложного отчета.

    Образец реестра договоров с примером его заполнения Вы можете скачать по ссылке. Используя привычные офисные приложения, такие как MS Excel и MS Access, задачи по ведению учета и регистрации договоров в целом решить можно.

    Задание 2. 3. СОЗДАНИЕ ОТЧЕТОВ1. Цель работы. Получение навыков работы по созданию отчетов.

    Темы для предварительного изучения. Назначение отчетов.

    Порядок создания отчетов. Разделы бланка отчетов. Форматирование элементов управления. Сортировка и группировка. Сохранение и печать отчета. Задание. Создать простой отчет, отображающий результаты обработки информации для Прикладной области, выбранной в соответствии с вариантом задания. Создать сложный отчет на основе ранее созданного запроса.

    Предметная область базы данных выбирается в соответствии с вариантом индивидуального задания. Задание 2. 4. СОЗДАНИЕ ФОРМ1. Цель работы. Получение навыков работы по созданию экранных форм. Темы для предварительного изучения.

    Назначение форм. Создание формы с помощью мастера форм. Создание простой формы в режиме Конструктора. Работа с элементами управления. Создание сложной формы на основе ранее созданных простых форм. Задание выражения для элементов управления. Задание. Создать форму для ввода информации в таблицы в удобном для пользователя формате.

    Создать сложную форму, объединив формы, созданные для разных таблиц. Предметная область базы данных выбирается в соответствии с вариантом индивидуального задания. Задание 2. 5. СОЗДАНИЕ КНОПОЧНОЙ ФОРМЫ1. Цель работы. Получение навыков работы по созданию кнопочных форм. Темы для предварительного изучения. Необходимость создания кнопочных форм. Создание кнопочной формы с помощью диспетчера кнопочных форм.

    Создание новой кнопочной формы, которая открывается из стартовой кнопочной формы. Изменение существующей кнопочной формы. Выбор кнопочной формы, автоматически открываемой при открытии БД. Удаление кнопочной формы. Задание. Создать кнопочную форму для работы с созданными объектами базы данных (таблицы, формы, отчеты). Предусмотреть выход из БД. Структура готовой базы данных: Рис.

    Главная кнопочная форма бд Договорная деятельность организации. Рис. 2 Виды договоров и стороны. Рис. 4 Список контрагентов и ответственных по договору.

    Рис. 5 Установка статуса договора в аксесс. Рис. 7 Отчёт Отбор договоров по статусу.

    Готовая база данных организована в виде следующих таблиц: Рис. Схема базы данных «Договорная деятельность организации» содержит таблицы «Договора», «Виды договоров», «Статусы», «Установка статуса», «Должности», «Сотрудники», «Список контрагентов», «Список ответственных», «Типы ответственных», «Стороны». Таблица «Сотрудники»: номер сотрудника, ФИО, адрес, телефон, должность, оклад. Таблица «Список контрагентов»: . Таблица «Договора»: шифр, вид договора, наименование, дата заключения, дата регистрации, примечание, дата начала, дата окончания, сумма. Таблица «Стороны»: код стороны, вид договора, наименование, обязательства.

    Таблица «Виды договоров»: код вида, наименование, документ. Таблица «Должности»: код должности, наименование. Рис. 9 Таблица «Список ответственных»: . Точная цена зависит от способа оплаты.

    Способы оплаты базы данных Access: Web. Money, Терминалы оплаты, Альфа- клик, Почта России, QIWI, SMS- оплата, Деньги@Mail. Ru, MTC, Мегафон, Яндекс. Деньги, Подарочный сертификат и другие. Скачать базы данных Access подобной тематики: Кредиты и займы организации Скачать базу данных access Кредиты и займы организации. Фирма Скачать базу данных access Фирма. БД налоговой инспекции Скачать базу данных access налоговой инспекции.

    Скачать базу данных «Нотариальная контора» Access Скачать базу данных «Нотариальная контора» Access. Скачать базу данных «Страховая компания» Access Скачать базу данных «Страховая компания» Access. Скачать базу данных (БД) «Туристическая фирма» MS Access Скачать базу данных «Туристическая фирма» Access. Бухгалтерская система оптовой фирмы Скачать базу данных access Бухгалтерская система оптовой фирмы. Адвокатская контора Скачать базу данных access Адвокатская контора. Потенциал предприятия Скачать базу данных Потенциал предприятия«Распределение дополнительных обязанностей» Access Скачать базу данных «Распределение дополнительных обязанностей» Access. Учёт внутриофисных расходов Скачать базу данных «Учёт внутриофисных расходов» Access.

    Учет основных средств по МОЛ Скачать базу данных access Учет основных средств по МОЛУчет совокупного годового дохода Скачать базу данных access Учет совокупного годового дохода. Скачать базу данных АРМ управляющего рекламным агентством Скачать курсовую базу данных «АРМ управляющего рекламным агентством » Access. Скачать базу данных (БД) Учёт оборудования организации Скачать базу данных (БД) Учёт оборудования организации.

    Скачать базу данных (БД) Учёт материальных ценностей Скачать базу данных (БД) Учёт материальных ценностей. Скачать базу данных (БД) «Фирма металлопластиковых окон» MS Access Скачать базу данных (БД) «Фирма металлопластиковых окон» MS Access. Скачать базу данных (БД) «Автоматизация работы фирмы по продаже электронно- вычислительной и оргтехники» MS Access Скачать базу данных (БД) «Автоматизация работы фирмы по продаже электронно- вычислительной и оргтехники» MS Access. Схема базы данных «Договорная деятельность организации» содержит таблицы «Договора», «Виды договоров», «Статусы», «Установка статуса», «Должности», «Сотрудники», «Список контрагентов», «Список ответственных», «Типы ответственных», «Стороны». Таблица «Виды договоров»: код вида, наименование, документ. Таблица «Договора»: шифр, вид договора, наименование, дата заключения, дата регистрации, примечание, дата начала, дата окончания, сумма. Таблица «Должности»: код должности, наименование.

    Таблица «Сотрудники»: номер сотрудника, ФИО, адрес, телефон, должность, оклад. Таблица «Список контрагентов»: . Таблица «Список ответственных»: . Таблица «Статусы»: код статуса, статус.

    Таблица «Стороны»: код стороны, вид договора, наименование, обязательства. Таблица «Типы ответственных»: код, наименование. Таблица «Установка статуса»: . База данных преобразована к формату 2.

    Реестр vb6

    5 people were helped by this reply

    Did this solve your problem?

    How satisfied are you with this response?

    Thanks for your feedback.

    its not a virus, its simple social engineering. all it takes is not paying attention for half a second and clicking a dialog. Or in this case its clicking ctrl + K when you mistype a site address. (all my wife wanted to do was go to the nespresso site for more pods. you figure it out from there. don’t want to do this to anyone else) your Brainless engineering that developed a browser that takes a new homepage that cant be adjusted from anywhere else in the OS, except from the affected browser. guess what, when there is a pop-up on that page, you can’t change the homepage in the registry because it is a policy violation . guess what, the hacks don’t appear to care. (back to chrome we all go. nice job guys) what kind of a builds an internet browser that you cant make adjustments in the file system?

    when you guys finally figure it out, you keep us informed to help you out further. by the way they OWN your identity too, when you go into airplane mode, it even has an MSFT FWlink spoof.

    Sorry this didn’t help.

    Great! Thanks for marking this as the answer.

    How satisfied are you with this reply?

    Thanks for your feedback, it helps us improve the site.

    Сборник примеров кода Visual Basic (стр. 1 из 2)

    Сборник примеров кода Visual Basic

    Создаём оболочку для CD

    1. Откройте блокнот и запишите туда следующее:

    [autorun]
    OPEN = setup.bat

    Сохраните текстовый файл как Autorun.inf

    2.Создайте новый текстовый файл и запишите туда следующее:

    @Echo off
    Rem регистрируем msvbvm60.dll
    regsvr32 msvbvm60.dll

    Rem чтобы зарегистрировать еще один компонент введите ещё одну строку: regsvr32 ИМЯ ВАШЕГО КОМПОНЕНТА, столько раз, сколько компонентов

    Сохраните текстовый файл как Setup.bat

    3. Теперь в корневом каталоге вашего CD обязательно должны быть файлы autorun.inf (ранее созданный текстовый файл), msvbvm60.dll (нужная библиотека), autorun.exe (созданная вами оболочка), setup.bat (ранее созданный исполняемый файл DOS) и все ваши компоненты.

    Теперь при открытии CD появиться столько диалоговых окон о регистрации, сколько компонентов вы регистрируете, после этого будет запущена ваша оболочка.
    В начало

    Копируем и перемещаем файлы.

    Private Declare Function CopyFile Lib «kernel32» Alias _ «CopyFileA» (ByVal lpExistingFileName As String, ByVal _ lpNewFileName As String, ByVal bFailIfExists As Long) As Long

    Private Declare Function MoveFile Lib «kernel32» Alias _ «MoveFileA» (ByVal lpExistingFileName As String, ByVal _ lpNewFileName As String) As Long

    Dim strSource As String

    Dim strTarget As String

    Dim lngRetVal As Long

    lngRetVal = CopyFile(Trim$(strSource), Trim(strTarget), False)

    If lngRetVal Then

    MsgBox «Файл скопирован!»

    lngRetVal = MoveFile(Trim$(strSource), Trim(strTarget))

    MsgBox «Файл перемещен!»

    Проигрываем музыкальные файлы

    1. Проигрываем файл в формате *.mp3:

    Private Declare Function mciExecute Lib «winmm.dll» (ByVal lpstrCommand As String) As Long

    ‘чтобы воспроизвести файл
    Call mciExecute(«play имя вашего файла»)

    ‘чтобы закрыть файл
    Call mciExecute(«close имя вашего файла»)

    2. Проигрываем файл в формате *.mid:

    Private Declare Function mciSendString Lib «winmm.dll» Alias «mciSendStringA» (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uRetrunLength As Long, ByVal hwndCallback As Long) As Long

    Call mciSendString («open ИМЯ ВАШЕГО ФАЙЛА type sequencer alias passport», 0, 0,0)

    Call micSendString («play passport», 0, 0, 0)

    Call micSendString («stop passport», 0, 0, 0)

    3. Проигрываем файл в формате *.wav:

    Private Declare Function sndPlaySound Lib «winmm.dll» Alias «sndPlaySoundA» (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

    Call sndPlaySound(«ИМЯ ВАШЕГО ФАЙЛА», 0)

    1. Перезагрузка компьютера:

    Shell «rundll32 shell32,SHExitWindowsEx 2»
    ‘Если заменить 2 на 1, то получим функцию для выключения компьютера

    2. Вызвать окно «Форматирование: Диск 3,5 (А:):

    Shell «rundll32 shell32,SHFormatDrive»

    3. Открыть «Свойства экрана»:

    Shell»rundll32 shell32,Control_RunDLL desk.cpl»

    4. Выстраивает все не свернутые окна сверху вниз:

    5. Обновить рабочий стол:

    6. Отключить клавиатуру:

    Shell «rundll32 keyboard,disable»

    7. Отключить мышь:

    Shell «rundll32 mouse,disable»

    8. Функция Environ:

    MsgBox Environ («TMP») ‘Выводит директорию временных файлов
    MsgBox Environ («COMSPEC») ‘Выводит загрузчик ДОСовской оболочки (обычно, command.com)
    MsgBox Environ («PATH») ‘Выводит пути, объявленные в autoexec.bat
    MsgBox Environ («WINDIR») ‘Выводит каталог Windows
    В начало

    Средства WinAPI. Реестр

    Const REG_SZ As Long = 1
    Const REG_DWORD As Long = 4
    Const HKEY_CLASSES_ROOT = &H80000000
    Const HKEY_CURRENT_USER = &H80000001
    Const HKEY_LOCAL_MACHINE = &H80000002
    Const HKEY_USERS = &H80000003
    Const HKEY_CURRENT_CONFIG = &H80000005
    Const HKEY_DYN_DATA = &H80000006

    Const KEY_ALL_ACCESS = &H3F

    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Boolean
    End Type

    RegOpenKeyEx — Функция открывает существующий ключ реестра, а точнее определяет его манипулятор.
    Declare Function RegOpenKeyEx Lib «advapi32.dll» Alias «RegOpenKeyExA» (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long

    Основные параметры:
    hKey — имя стандартного ключа (например, HKEY_CLASSES_ROOT)

    lpSubKey — имя открываемого ключа (например, «MyProgram\Options»)

    phkResult — заполняется манипулятором открытого ключа

    Пример:
    Dim Result As Long

    RegOpenKeyEx HKEY_CLASSES_ROOT, «MyProgram\Options», 0, KEY_ALL_ACCESS, Result

    ‘// В этом примере выводится манипулятор ключа HKEY_CLASSES_ROOT\MyProgram\Options

    RegCloseKey — Функция закрывает ключ системного реестра.
    Declare Function RegCloseKey Lib «advapi32.dll» Alias «RegCloseKey» (ByVal hKey As Long) As Long

    Основные параметры:
    hKey — манипулятор закрываемого ключа

    Пример:
    Dim Result As Long

    RegOpenKeyEx HKEY_CLASSES_ROOT, «MyProgram\Options», 0, KEY_ALL_ACCESS, Result ‘// Открытие ключа
    RegCloseKey Result ‘// Закрытие ключа

    RegCreateKeyEx — Функция для создания нового ключа. Если ключ существует, функция открывает его. Declare Function RegCreateKeyEx Lib «advapi32.dll» Alias «RegCreateKeyExA» (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long

    hKey — имя стандартного ключа (например, HKEY_CLASSES_ROOT)
    lpSubKey — имя создаваемого подключа (например, «MyProgram\Options»)

    Пример:
    Dim SA As SECURITY_ATTRIBUTES

    RegCreateKeyEx HKEY_CURRENT_USER, «MyProgram\Options», 0, vbNullString, 0, KEY_ALL_ACCESS, SA, _ Result, &H1

    RegDeleteKey — Функция удаляет указанный ключ
    Declare Function RegDeleteKey Lib «advapi32.dll» Alias «RegDeleteKeyA» (ByVal hKey As Long, ByVal lpSubKey As String) As Long

    Основные параметры:
    hKey — имя стандартного ключа
    lpSubKey — имя удаляемого подключа. В Win9x/Me все подключи указанного подключа также удаляются. В WinNT подключ не должен содержать других подключей.

    Пример:
    RegDeleteKey HKEY_CURRENT_USER, «MyProgram\Options»

    RegSetValueEx — Функция задаёт значение и тип параметра, находящегося в заданном ключе.
    Declare Function RegSetValueEx Lib «advapi32.dll» Alias «RegSetValueExA» (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

    hKey — манипулятор ключа
    lpValueName — имя параметра
    dwType — тип ключа
    lpData — новое значение

    Dim Retval As Long

    ‘// Находим манипулятор нужного ключа
    Retval = RegOpenKeyEx(HKEY_CURRENT_USER, «MyProgram\Options», 0, KEY_ALL_ACCESS, Result)

    ‘// Числовому параметру DWordValue присваивается значение 22
    RegSetValueEx Result, «DWordValue», 0, REG_DWORD, 22, 4

    ‘// Строковому параметру StringValue присваивается значение «Реестр»
    RegSetValueEx Result, «StringValue», 0, REG_SZ, ByVal «Реестр», Len(«Реестр»)
    RegCloseKey Result ‘// Закрытие ключа

    RegDeleteValue — Функция удаляет заданный параметр

    Declare Function RegDeleteValue Lib «advapi32.dll» Alias «RegDeleteValueA» (ByVal hKey As Long, ByVal lpValueName As String) As Long

    hKey — манипулятор ключа
    lpValueName — имя удаляемого параметра

    Dim Result As Long

    ‘// Находим манипулятор нужного ключа
    RegOpenKeyEx HKEY_CURRENT_USER, «MyProgram\Options», 0, KEY_ALL_ACCESS, Result

    ‘// Удаляем параметр с именем StringValue

    RegDeleteValue Result, «StringValue»

    RegCloseKey Result ‘// Закрытие ключа

    RegQueryValueEx — Функция считывает значения параметра

    Declare Function RegQueryValueEx Lib «advapi32.dll» Alias «RegQueryValueExA» (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

    hKey — манипулятор ключа
    lpValueName — имя читаемого параметра
    lpData — заполняется значением заданного параметра

    Пример:
    Dim Result As Long
    Dim DWResult As Long
    Dim STResult As String

    ‘// Находим манипулятор нужного ключа
    RegOpenKeyEx HKEY_CURRENT_USER, «MyProgram\Options», 0, KEY_ALL_ACCESS, Result

    ‘// Считываем значения числового параметра с именем DWordValue
    RegQueryValueEx Result, «DWordValue», 0, 0, DWResult, 4

    ‘// Считываем значения строкового параметра с именем StringValue
    RegQueryValueEx Result, «StringValue», 0, 0, ByVal STResult, Len(STResult)

    RegCloseKey Result ‘// Закрытие ключа

    ‘// Выводим значение параметров

    MsgBox DWResult ‘// Числовое
    MsgBox STResult ‘// Строковое

    Ассоциация с типами файлов

    Private Declare Function RegCreateKeyEx Lib «advapi32.dll» Alias «RegCreateKeyExA» (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long

    Private Declare Function RegSetValueEx Lib «advapi32.dll» Alias «RegSetValueExA» (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

    Private Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Boolean
    End Type

    ‘// Константы
    Const HKEY_CLASSES_ROOT = &H80000000
    Const REG_SZ = 1
    Const KEY_ALL_ACCESS = &H3F

    ‘// Функция для ассоциации типа файла с приложением
    ‘// FileType — расширение файла

    Смотрите так же:

    • Стаж труда на должности Учет трудового стажа при назначении пенсии При формировании пенсионных отчислений в расчет берут полный период стажа, при отсутствии которого любой человек может остаться без общего объема пенсии. Поэтому в нашем материале поговорим об обязательном периоде […]
    • Форма заявления о предоставлении выписки егрюл Заявление с просьбой предоставить сведения в виде выписки Согласно пункту 1 статьи 4 Федерального закона от 8 августа 2001 г. № 129-ФЗ "О государственной регистрации юридических лиц и индивидуальных предпринимателей" в РФ ведется Единый государственный […]
    • Возврат процентов за лечение зубов Что представляет собой налоговый вычет на лечение зубов Работающие граждане, получающие заработную плату с которой удерживается 13% НДФЛ, имеют право на возврат подоходного налога за лечение зубов. Но у данной процедуры имеются свои особенности. И в этой […]
    • Субсидия сотрудникам овд Субсидия на жильё сотруднику полиции Обращайтесь в суд согласно гл. 25 ГПК РФ до истечения 3 мес. со дня, когда узнали о нарушении своих прав на ЕСВ. Госпошлина 200 руб.. Нигде срок выплаты ЕСВ не указан - всё в пределах финансирования по соответствующей […]
    • Какие органы могут расследовать заявление пострадавшего работника Тест по проверке знаний по охране труда 1) Какое определение понятия «охрана труда» будет верным? а) охрана труда — система сохранения жизни и здоровья работников в процессе трудовой деятельности, включающая в себя правовые, социально-экономические, […]
    • Претензия по причинению ущерба имуществу Составляем претензию о возмещении ущерба имуществу Досудебная претензия о добровольном возмещении причиненного ущерба Согласно п. 1 ст. 1064 ГК РФ причиненный имуществу физического или юридического лица ущерб подлежит возмещению в полном объеме. […]
    • Период выплаты пособий по безработице Трудовое право Предмет трудового права Функции трудового права Субъекты трудового права Принципы трудового права Источники трудового права Пособие по безработице Для поддержания материального благосостояния безработных им начисляется и […]
    • Приказ минтранса от 14072018 на-80-р Для предприятий изменились нормы расхода ГСМ Смотрите также: Минтранс дополнил существующие нормы расхода топлива и смазочных материалов на автомобильном транспорте. В них включили автотранспорт после 2008 года выпуска, а также зимние надбавки к расходу […]