如何用编程实现:控制鼠标移动的速度。(50分)

  • 主题发起人 主题发起人 圣东方
  • 开始时间 开始时间

圣东方

Unregistered / Unconfirmed
GUEST, unregistred user!
不知道可以不?
const
SPI_SETMOUSESPEED = 113;
SPI_GETMOUSESPEED = 112 ;

procedure SetMouseSpeed;
var
Speed : integer;
begin
Speed := 100;
SystemParametersInfo(SPI_SETMOUSESPEED, 0, @Speed, 0);
end;
 
要改一下
type
pInteger = ^intger;


SystemParametersInfo(SPI_SETMOUSESPEED, 0, pInteger((@Speed)^), 0);
没有问题,通过。
 
好象速度不能高于100,我用20可以,小也可以了。
 
接受答案了.
 
后退
顶部