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

Previous  Top  Next

    
 

 

 

Code:

Function SetMouseSpeed ( NewSpeed : Integer ) : Boolean;

{©Drkb v.3(2007): www.drkb.ru}

 

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;

 

 

©Drkb::01567

Автор: Radmin

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