各位C语言编程高手帮个忙

来源:百度知道 编辑:UC知道 时间:2024/05/09 04:41:52
我想用TC编写程序显示鼠标的光标,于是调用鼠标驱动程序显示光标的功能,但是在windowsXP下显示不出来。后来知道了在XP下通过调用鼠标驱动程序是不能显示鼠标光标的。后来编写了一些程序来显示光标,确总是出现CPU遇到无效指令。如果哪位高手知道能够在TC中显示鼠标光标的好办法的话,请告诉小弟,小弟感激不尽
我是要用C语言在TC下解决,不知道有没有人可以告诉我

*-- 如何显示/隐藏 鼠标的光标

*0 - 隐藏鼠标; 1 - 显示鼠标

Declare INTEGER ShowCursor IN user32 INTEGER bShow

*-- 用法:

* = ShowCursor(0) && 隐藏

* = ShowCursor(1) && 显示

*-- 以下是通过代码创建一个表单,以一个时钟每半秒钟间断性隐藏和显示而达到闪烁的效果!

*-- 如果只是想隐藏或显示鼠标指针,直接上面三行代码即可!

Publ oform

oform = createobject("鼠标闪烁表单")

oform.visible = .T.

Retu

Define CLASS 鼠标闪烁表单 AS form

*-- 初始化表单

ShowWindow = 2

AutoCenter = .T.

Caption = "鼠标闪烁演示"

BackColor = RGB(255,128,192)

lShow = 1

*--添加一个时钟

Add OBJECT mytime AS timer WITH ;

Interval = 500, ;

Name = "mytime"

*--设置时钟事件

Procedure mytime.timer

Thisform.lShow = iif(thisform.lShow=0, 1, 0)

= ShowCursor (thisform.lShow)

Endproc

*--关闭表单,显示鼠标,并释放资源

Procedure QueryUnlo