Изменение времени на двойной клик мыши в Windows.

[Ефрейтор]

Люди добрые, здраствуйте.
Дело вот в чём. Изменяю настройки реестра

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


Dim DoubleClickRegistry As Microsoft.Win32.RegistryKey
DoubleClickRegistry = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Control Panel\Mouse", True)
DoubleClickRegistry.SetValue("DoubleClickSpeed", "1")


Все вроде просто. Но после выполнения кода время отводимое Windows на двойной клик реально не изменилось .
Так же реальное время двойного клика не изменяется если тупо зайти в реестр и поменять значение на 1 милисекунду для двойного клика мыши.
Но если после изменения в реестре времени двойного клика на 1 милисекунду зайти:
Пуск/Настройка/Панель управления/Мышь
и нечего не меняя в окне свойств мыши, просто нажать "Ok", то настройка времени 1 милисекунда начнёт действовать.
Как заставить программно изменить реальное поведение мыши в соответствии с заданым значением времени на двойной клик в реестре?

Заранее благодарен.

[GSerg]

Во-первых, менять этот параметр надо не реестром, а через SystemParametersInfo. Во-вторых, за самовольное изменение параметров системы афтарам программ надо отрывать ручки.

[Klinifini]

перезагрузить компьютер

[Ефрейтор]

GSerg
Согласен, что в реестре исправлять не хорошо, просто задача спецефическая и край нужно уменьшить время двойного клика мыши.
Как я понял SystemParametersInfo это API Windows. К сожалению документов в иннете я не смог найти как добраться до времени двойного клика через API Windows. Единственное что я смог найти на эту тему это строка:

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

Declare Function SystemParametersInfo Lib "User" (ByVal uAction As Integer, ByVal uparam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer


Но как этим всем пользоваться моего интелекта не хватило.

Может кто небольшой примерчик продемонстрирует как добраться до времени двойного клика через SystemParametersInfo ?

[Viper]

Константа SPI_SETDOUBLECLICKTIME (значение константы автор найдет сам) спасет автора и, возможно, демократию. Также все вышеуказанное спасает функция SetDoubleClickTime, ну и на всякий случай GetDoubleClickTime.

[Ефрейтор]

Вот нашёл.
Правда не через SystemParametersInfo:

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

Private Declare Function SetDoubleClickTime Lib "user32" (ByVal wCount As Long) As Long


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim s As Long
        s = SetDoubleClickTime(1)
    End Sub


Всем спасибо.

[Viper]

Правда декларация то неправильная. Меняй Long на Integer.

[Ефрейтор]

Ещё вопросик по поводу двойного клика. Можно его через Win API на заблокировать на время?