发信人: fishy()
整理人: fishy(2000-01-03 19:18:38), 站内信件
|
需要用到的API:
LoadCursorFromFile
SetSystemCursor
LoadCursor
注册表的相应API
首先得到注册表中HKEY_CURRENT_USER\Control Panel\Cursors下
的Arrow的值，这是系统目前使用的鼠标文件，如果为空串表示是默
认鼠标。把这个值记录下来，一会儿还原要用。
然后执行以下代码：
Dim hCuror As Long
hCursor=LoadCursorFromFile("鼠标文件名")
SetSystemCursor hCursor,CLng(OCR_NORMAL) 'OCR_Normal=32512
这样，鼠标就变为你希望的光标了。
还原的时候，如果上面记录的鼠标文件不是默认值，就再使用一次上
面的方法，就可以还原，但如果注册表中的那一项是空串，则使用以
下代码：
Dim hCursor As Long
hCursor=LoadCursor(0,CLng(OCR_NORMAL))
SetSystemCursor hCursor,CLng(OCR_NORMAL)
注意，API查看器中LoadCursor函数的第二个参数是As String，应
该把它定义为As Any
这样修改即使不还原，下次开机也会自动还原，更改注册表中的那一
项可以使其永远更改。
LoadCursor在NT下好象无效。
--
Dim fishy As Friend
回复时请打勾
------------
欢迎大家访问酷码工作室：http://comma.my163.net
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.103.37.23]
|
|