|
发表于 2010-7-13 17:38:20
|
显示全部楼层
本帖最后由 netegg 于 2010-7-13 18:02 编辑
Dim Const $SPIF_UPDATEINIFILE = 1
Dim Const $SPIF_SENDWININICHANGE = 2
Dim Const $SPI_GETMOUSE = 3
Dim Const $SPI_SETMOUSE = 4
Dim $tMouse = DllStructCreate('INT MouseThreshold1; INT MouseThreshold2; INT MouseSpeed')
Dim $aResult = DllCall('user32.dll', 'int', 'SystemParametersInfo', 'uint', $SPI_GETMOUSE, 'uint', 0, _
'ptr', DllStructGetPtr($tMouse), 'uint', 0)
If $aResult[0] Then
For $i = 1 To 3
ConsoleWrite(DllStructGetData($tMouse, $i) & @TAB)
Next
ConsoleWrite(@LF)
EndIf
#cs;下面是设置
DllStructSetData($tMouse, 1, 6)
DllStructSetData($tMouse, 2, 10)
DllStructSetData($tMouse, 3, 1)
$aResult = DllCall('user32.dll', 'int', 'SystemParametersInfo', 'uint', $SPI_SETMOUSE, 'uint', 0, _
'ptr', DllStructGetPtr($tMouse), 'uint', BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDWININICHANGE))
#ce
$tMouse = 0 |
|