почему то ВинАпи'нским способом не получается ( или просто че то не так делаю.. подскажите пожалуйста.
вот decls:
.lib "user32"
apiSystemParametersInfo%(Action%, Param%, pParam*, WinIni%) : "SystemParametersInfoA"
и код:
Const SPI_GETMOUSESPEED = 112
Const SPI_SETMOUSESPEED = 113
Const SPIF_SENDWININICHANGE = 2
Function GetMouseSpeed%()
Local TempSpeed%, Speed%
TempSpeed% = CreateBank(4)
apiSystemParametersInfo(SPI_GETMOUSESPEED, 0, TempSpeed%, 0)
Speed% = PeekInt(TempSpeed%, 0)
FreeBank TempSpeed%
Return Speed%
End Function
Function SetMouseSpeed(Speed%)
Local TempSpeed%, Flags%
TempSpeed% = CreateBank(4)
PokeInt TempSpeed%, 0, Speed%
Flags% = SPIF_SENDWININICHANGE
apiSystemParametersInfo(SPI_SETMOUSESPEED, 0, TempSpeed%, Flags)
FreeBank TempSpeed%
End Function
Graphics 1024,768,32,2
SetBuffer BackBuffer()
Repeat
SetMouseSpeed(4)
Text 10,10,GetMouseSpeed()
Flip
Until KeyHit(1)
End
скорость мыши пишет всегда 20. Менял все цыфр и все равно 20.