Изменение ключа в HKEY_LOCAL_MACHINE

@Saliery · Регистрация: 27.01.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Обратил внимание, что когда меняешь ключ в HKEY_CURRENT_USER, то всё работает.
Стоит перейти в HKEY_LOCAL_MACHINE, ничего не происходит.
Почитал в интернете, нашёл кое-какие примеры открытия доступа к HKEY_LOCAL_MACHINE, но ничего не помогло.
Прикрепляю исходник.
Подскажите, пожалуйста, как быть?
Уже и от имени администратора запускал - толку 0.

@Saliery · 13.06.2022, 11:58 **[ТС]**

The trick, он равен 1, я его убирал, без него тоже не работает ничего, уже по-всякому пробовал, не в этом дело

@locm · 13.06.2022, 12:56

Сообщение от Saliery

он равен 1

И что? Для чего добавлять 1?

Сообщение от Saliery

не в этом дело

Конечно не в этом, а в вашей не внимательности. Ответ был дан

Сообщение от The trick

Попробуй для начала указать ключ KEY_WOW64_64KEY.

Saliery, разве KEY_WOW64_64KEY = 1?

@Saliery · 13.06.2022, 13:10 **[ТС]**

Сообщение от locm

разве KEY_WOW64_64KEY = 1?

нет, речь шла о bIsWOW64

Добавлено через 2 минуты

Сообщение от locm

Ответ был дан

как сказали, сделал, не получилось

Visual Basic
1
lRetVal = RegOpenKeyEx(HKEY_LOCAL_MACHINE, sKeyName, 0&, WRITE_OWNER Or KEY_WOW64_64KEY Or KEY_SET_VALUE, hKey)

также пробовал

Visual Basic
1
KEY_WOW64_64KEY Or KEY_SET_VALUE

, отдельно

Visual Basic
1
KEY_WOW64_64KEY

и

Visual Basic
1
KEY_SET_VALUE

результата нет

@locm · 13.06.2022, 13:20

Сообщение от Saliery

нет, речь шла о bIsWOW64

Где упоминается о bIsWOW64 и то что он равен 1?
https://docs.microsoft.com/en-... openkeyexa
https://docs.microsoft.com/en-... ess-rights

Сообщение от Saliery

результата нет

От админа запускали?

@Saliery · 13.06.2022, 14:42 **[ТС]**

Друзья, всем огромное спасибо!
Разобрался, наконец!
В такой связке заработало!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub SetKeyValue(sKeyName As String, sValueName As String, vValueSetting As Variant, lValueType As Long)
    
    
    Dim hKey As Long         'handle of open key
 
       Dim sValue As String
 
 
     RegOpenKeyEx HKEY_LOCAL_MACHINE, sKeyName, 0&, WRITE_OWNER Or KEY_WOW64_64KEY Or KEY_SET_VALUE, hKey
    sValue = vValueSetting & Chr$(0)
   RegSetValueExString hKey, sValueName, 0&, REG_SZ, ByVal sValue, Len(sValue)
    RegCloseKey (hKey)
 
      
End Sub

@Saliery · 15.06.2022, 23:48 **[ТС]**

Здравствуйте ещё раз!

Visual Basic
1
2
3
4
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
 
RegOpenKeyEx HKEY_LOCAL_MACHINE, KeyPath, 0, WRITE_OWNER Or KEY_WOW64_64KEY Or KEY_SET_VALUE, hKey
RegSetValueEx hKey, KeyName, 0, REG_DWORD, Chr(KeyVal), 4

С записью типа REG_SZ всё отлично, но при попытке сделать REG_DWORD, получается только через Chr(KeyVal), а когда значение, например, 268435457, то появляется ошибка рантайма.
Я понимаю, что через Chr() - это не делается, но у меня никак не вышло иначе.
Параметр lpValue менял на Long, нужного результата не дало.
В чём причина может быть, подскажите, пожалуйста.

@Saliery · 17.06.2022, 04:25 **[ТС]**

Разобрался!
УРА!
Дело было в декларации функции:

Visual Basic
1
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpValue As Any, ByVal cbData As Long) As Long

Новые блоги и статьи Все статьи Все блоги /
Транслитерация текста с кириллицы на латиницу (вариант №2) Maks 13.11.2026 Обновленная версия ранее созданной обработки. Добавлено: - Проверка исходного текста на кириллицу, через обращение к стандартной функции "ТолькоКириллицаВСтроке" из общего модуля. . .	Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .
Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .	Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .

@Saliery 9 / 9 / 4 Регистрация: 27.01.2013 Сообщений: 451
	13.06.2022, 11:58 [ТС]
	The trick, он равен 1, я его убирал, без него тоже не работает ничего, уже по-всякому пробовал, не в этом дело 0