Функции для изменения и получения чуствительности мышки

Delphi , ОС и Железо , Мышка и Курсор

Функции для изменения и получения чуствительности мышки

Code:

Function SetMouseSpeed ( NewSpeed : Integer )  : Boolean;

        begin

        Result  := SystemParametersInfo(SPI_SETMOUSESPEED, 1, Pointer(NewSpeed), SPIF_SENDCHANGE );

        End;

         

        Function GetMouseSpeed : Integer;

        Var

        Int :  Integer;

        begin

        SystemParametersInfo(SPI_GETMOUSESPEED, 0, @Int, SPIF_SENDCHANGE );

        Result  := Int;

        End;

Автор: Radmin

Взято с Vingrad.ru http://forum.vingrad.ru

Статья Функции для изменения и получения чуствительности мышки раздела ОС и Железо Мышка и Курсор может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

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

:: Главная :: Мышка и Курсор ::

18.04.2024 22:18:23/0.037275075912476/2