За установку части настроек системы отвечает функция SystemParametersInfo. Данная функция содержит 4 параметра. Непосредственно ее поведение зависит от первого параметра. В нашем случае от него будет зависеть скорость перемещения указателя мыши.
Кстати, четвертый параметр функции будет говорить о том, что скорость указателя будет меняться. В то же время, новое значение скорости указателя будет передаваться в третьем параметре.
Ладно, что я все теоретизирую. Перейдем к практике – объясню по ходу дела.
На форму добавляем три компонента: со вкладки Standart берем Edit и Button, со вкладки Win32 берем TrackBar.
В свойствах компонента Edit находим Enabled (доступность) и ставим false. Также задаем свойство Caption для кнопки. Вот и все – дальше нужно создать обработчиков событий (для события нажатия кнопки и события изменения тракбара).
Непосредственно исходный код:
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// событие нажатия кнопки
// изменение скорости перемещения указателя мыши
SystemParametersInfo(SPI_SETMOUSESPEED, 0 , (PVOID)TrackBar1->Position, SPIF_SENDCHANGE);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
//установка выбранного значения тракбара в едит
Edit1->Text=TrackBar1->Position;
}
Внешний вид программы:
Программку можно скачать здесь.
Учтите – установленная в программке скорость движения курсора мыши не изменится после закрытия программы.
Все доступно, кстати получилось даже у меня, не очень-то “соображающей” в подобных вопросах.
Очень хорошее объяснение,искал в интернете,один бред,здесь всё подробно,и доступно)спасибо вам!
спасибо большое.очень хорошее объяснение,у меня все получилось. Еще раз спасибо.
Большое вам спасибо, моя мышка бегает как бешеная, а в других местах либо вирусы,либо глупое обьяснение!