Как сообщить системе об изменении в реестре?

[arthur2]

Меняю ключ реестра:

[HKEY_CURRENT_USER\Control Panel\Accessibility\Keyboard Response]
"Flags"="122"

(это специальные возможности, способ включения фильтрации ввода)

Но изменение начинает работать только после перезагрузки. А мне надо, чтобы сразу. И чтобы потом вернуть всё как было

Как этого добиться? Ведь если менять настройку из панели управления, изменение действует сразу.

[Saturn.65]

Попробуй с этим примером. Создается любой ключ, записывается и число и строка, читается, а если надо, то удаляется. Кода две строчки, все элементарно, правда применяется reg.ocx.

Создать-прочитать ключи.rar

(15.82 Кб) Скачиваний: 155

[Хакер]

arthur2, проверь, нельзя ли этот параметр изменить через SPI-API.

[arthur2]

Нет, проблема не в том, как записать в реестр, а в том, как потом сказать системе, что я записал. Как записать, я знаю: RegSetValueEx

Твой пример делает то же самое: ключ меняется, но способ включения фильтрации ввода остаётся прежним - пока не перезагрузишься. То есть, проблема так и осталась на месте

Хакер
Подскажи, что это такое SPI-API?

Поиск выдаёт что-то непонятное или не о том

[Хакер]

SystemParametersInfo и куча констант, начинающихся на SPI.

[arthur2]

Хакер
Было бы здорово - судя по описанию, то что надо! Изменить настройки без записи в реестр

Но нужной константы найти, увы, не смог

[alibek]

Флаг 0x00000002 не оно (spifSendWinINIChange)?

[arthur2]

alibek
Нет, эту-то константу я как раз нашёл сразу и она мне очень понравилась... то есть, не она, а её антипод siDoNotUpdateINIFile Мне как раз нужно, чтобы мои изменения не сохранялись.

А найти я не мог константы для отключения залипания клавиш и фильтрации ввода.

Собственно, нашёл Сначала нашёл здоровский модуль от GSerg http://www.vbstreets.ru/VB/Sources/65777.aspx

А потом и константы. Вот:

SPI_GETSTICKYKEYS Retrieves information about the StickyKeys accessibility feature. The pvParam parameter must point to a STICKYKEYS structure that receives the information. Set the cbSize member of this structure and the uiParam parameter to sizeof(STICKYKEYS).

SPI_GETFILTERKEYS Retrieves information about the FilterKeys accessibility feature. The pvParam parameter must point to a FILTERKEYS structure that receives the information. Set the cbSize member of this structure and the uiParam parameter to sizeof(FILTERKEYS).

И аналогичные SPI_SETFILTERKEYS SPI_SETFILTERKEYS

По аналогии с примером от GSerg наваял такой код (снятие-установка способа включения залипания клавиш):

модуль SystemInfo

Код: Выделить всё

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" ( _
                  ByVal uAction As Long, _
                  ByVal uParam As Long, _
                  lpvParam As Any, _
                  ByVal fuWinIni As Long) As Long
Public Type STICKKYKEYS
   cbSize As Long
   dwFlags As Long
End Type

Public Const SKF_HOTKEYACTIVE = 4
Private Const SPI_GETSTICKYKEYS = 58
Private Const SPI_SETSTICKYKEYS = 59

Property Get stickkyKeysInf() As STICKKYKEYS 
  stickkyKeysInf.cbSize = Len(stickkyKeysInf)
  SystemParametersInfo SPI_GETSTICKYKEYS, stickkyKeysInf.cbSize, stickkyKeysInf, 0&
End Property
'typedef struct tagSTICKYKEYS {
'    DWORD  cbSize;
'    DWORD  dwFlags;
'} STICKYKEYS, *LPSTICKYKEYS;

Property Let stickkyKeysInf(st As STICKKYKEYS)
  st.cbSize = Len(st)
  SystemParametersInfo SPI_SETSTICKYKEYS, st.cbSize, st, 0&
End Property


Использование:

Код: Выделить всё

Private Sub setStickkyKeysHotKeyActive(YesNo As Boolean)
   
    Dim st As STICKKYKEYS
   
    st = SystemInfo.stickkyKeysInf
 
  If YesNo Then
    st.dwFlags = st.dwFlags Or SKF_HOTKEYACTIVE
  Else
    st.dwFlags = st.dwFlags And (Not SKF_HOTKEYACTIVE)
  End If
    SystemInfo.stickkyKeysInf = st
End Sub


Всё работает! Спасибо огромное за наводку

Один вопросик вдогонку: для включения-выключения того же самого у фильтрации ввода нужна структура:

Код: Выделить всё

typedef struct tagFILTERKEYS { 
    UINT   cbSize;
    DWORD  dwFlags;
    DWORD  iWaitMSec;
    DWORD  iDelayMSec;
    DWORD  iRepeatMSec;
    DWORD  iBounceMSec;
} FILTERKEYS *LPFILTERKEYS;


Что за тип UINT? Это Long?

[iGrok]

Да.

[MIT]

не совсем - это беззнаковый long

[arthur2]

MIT, iGrok
Спасибо, понятно в общем, для этого конкретного случая - просто long.

не она, а её антипод siDoNotUpdateINIFile Мне как раз нужно, чтобы мои изменения не сохранялись

Упс... это я ступил. Они вовсе не антиподы
siDoNotUpdateINIFile = &H0& Не сохранять изменений и ничего никому не сообщать (пока сами не заметят)
siUpdateINIFile = &H1& Сохранить изменения
siSendWinINIChange = &H2& Сообщить всем, что произошли изменения
siUpdateINIFile or siSendWinINIChange и сохранить, и сообщить

[iGrok]

не совсем - это беззнаковый long

Если ещё точнее, то это Unsigned Integer, или беззнаковое 32х-битное целое, полного аналога которому в VB6 просто нету, но аналогом которому в данном конкретном случае может послужить Long.

Такое определение кажется тебе более правильным? =)
Мне просто влом было писать всю фразу целиком. Тем более, достаточно было ответа "Да." =)

[arthur2]

iGrok
Любопытно, а нафига в этой структуре именно беззнаковое целое? Причем, для размера структуры, который всегда один и тот же? Тем более что в аналогичной структуре STICKYKEYS это же поле - dword

[Хакер]

Затем, что размер структуры может быть не один и тот же. Например, в Висте эту структуру захотят расширить. Старые проги будут передавать маленькую структуру, новые — б^`ольшую, чем старая. По содержимому этого поля система точно определит, какого размера структура, чтобы никаких ошибок "переполнения буфера" никогда не произошло.

unsigned — потому, что размер структуры не может быть отрицательным (вопрос стиля программирования). Потому что в сравнится не надо менять знаковые квалификаторы (проще говоря: не надо кастовать к unsigned) при сравнении (вопрос непоявления варнингов от компилятора). Потому, что операции с unsigned быстрее (вопрос быстродействия).

[iGrok]

iGrok
Любопытно, а нафига в этой структуре именно беззнаковое целое? Причем, для размера структуры, который всегда один и тот же? Тем более что в аналогичной структуре STICKYKEYS это же поле - dword

А скорей всего, так захотела левая пятка человека, написавшего именно это определение..

UPD: А, кстати, похоже так и есть:
http://www.tech-archive.net/Archive/VC/ ... 01452.html

Хотя по-моему, действительно объявление как Unsigned будет более правильным, чем как Signed. Почему - написал Хакер постом выше..
У меня правда, пояснение попроще было - "А разве размер может быть отрицательным?" =)

[arthur2]

unsigned — потому, что размер структуры не может быть отрицательным (вопрос стиля программирования). Потому что в сравнится не надо менять знаковые квалификаторы (проще говоря: не надо кастовать к unsigned) при сравнении (вопрос непоявления варнингов от компилятора). Потому, что операции с unsigned быстрее (вопрос быстродействия)

В общем, и понятно и убедительно. Но тогда зачем в STICKYKEYS это же поле - dword? Видимо, эту структуру разрабатывал кто-то с не очень хорошим стилем

А вообще - это я уже так, от любопытства

[Хакер]

Потому что если я правильно помню, DWORD это типо-псевдоним для типа unsigned int, объёвленный через typedef.

То что для unsigned — точно,а вот точно ли, что для int (а не long) — есть сомнения.

[Александр Дмитриев]

Потому что если я правильно помню, DWORD это типо-псевдоним для типа unsigned int, объёвленный через typedef.

То что для unsigned — точно,а вот точно ли, что для int (а не long) — есть сомнения.

DWORD -для long, а UINT - для int.