关于光标的问题(20分)

请问各位大峡如何将光标固定在某一区域？谢谢！！！

关于键盘：<br>var KHK: HHook;<br>&nbsp; &nbsp; tmp: integer;<br>function HookProc(ICode: integer;WP:WParam;LP:LParam):LResult;<br>begin<br>&nbsp; Result:=CallNextHookEx(KHK,0,0,0);<br>end;<br>开始锁定：<br>KHK:=SetWindowsHookex(WH_JOURNALPLAYBACK,@HookProc,HInstance,0);<br>结束锁定：<br>UnHookWindowsHookEx(KHK);<br>这时候不能屏蔽Windows的系统键Ctrl+Alt+Tab,Ctrl+Esc,Alt+Tab等<br>你就可以使用：<br>SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @tmp, 0);//锁起来<br>SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @tmp, 0);//打开吧<br><br>关于鼠标：<br>procedure TMyForm.RestrictMouse ;//限制鼠标<br>var<br>&nbsp; &nbsp;r : TRect ;<br>begin<br>&nbsp; &nbsp; &nbsp;r := Rect(Left, Top, Left + Width, Top + Height) ;<br>&nbsp; &nbsp;ClipCursor( @r ) ;<br>end ;<br>procedure TMyForm.UnRestrictMouse ;//解除鼠标限制<br>begin<br>&nbsp; &nbsp; &nbsp;ClipCursor( nil ) ;<br>end ;

好像值要 ClipCursor 函数调用就行，连 SetWindowsHookEx 函数都不要用。

接受答案了.