查看鼠标信息的软件

.如果 (GetSystemMetrics (19) ＞ 0)
标签2.标题 ＝ “已安装鼠标”
.否则
标签2.标题 ＝ “未安装鼠标”
.如果结束
.如果 (GetSystemMetrics (75) ＞ 0)
标签3.标题 ＝ “鼠标带滚轮”
.否则
标签3.标题 ＝ “鼠标不带滚轮”
按钮5.禁止 ＝ 真
.如果结束
编辑框2.内容 ＝ 到文本 (GetDoubleClickTime ()) ' 取鼠标双击间隔时间
标签1.标题 ＝ “你的鼠标是” ＋ 到文本 (GetSystemMetrics (43)) ＋ “键鼠标” ' 取鼠标按键数
.如果 (GetSystemMetrics (23) ＞ 0) ' 鼠标左右键是否互换
选择框2.选中 ＝ 真
.否则
选择框2.选中 ＝ 假
.如果结束
SystemParametersInfo (106, 0, val, 0) ' 取子菜单延时(ms)
编辑框1.内容 ＝ 到文本 (val)
SystemParametersInfo (4122, 0, val, 0)
.如果 (val ＞ 0) ' 是否显示鼠标阴影
选择框3.选中 ＝ 真
.否则
选择框3.选中 ＝ 假
.如果结束
SystemParametersInfo (95, 0, val, 0)
.如果 (val ＞ 0) ' 是否自动将指针移到对话框的默认按钮
选择框4.选中 ＝ 真
.否则
选择框4.选中 ＝ 假
.如果结束
SystemParametersInfo (8198, 0, val, 0) ' 取光标宽度
编辑框3.内容 ＝ 到文本 (val)
SystemParametersInfo (94, 0, val, 0) ' 取鼠标踪迹值
编辑框4.内容 ＝ 到文本 (val)
SystemParametersInfo (104, 0, val, 0) ' 取滚动滚轮一个齿格可以滚动的行数
编辑框5.内容 ＝ 到文本 (val)