функции для изменения и получения чуствительности мышки |
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