求助：怎样把一个好的光电鼠标打造成“broken”鼠标

Question

在程序中需要把鼠标模拟成一只坏鼠标，大家在学校机房、网吧一定碰到过的那种。delphi控件一般都有OnMouseMove事件，鼠标一移动(OnMouseMove)我就调SetCursorPos函数让它移到别的位置，但是SetCursorPos函数能产生一个MouseMove事件，所以鼠标动一下就会不停的动下去。这是一个问题，OnMouseMove只是控件能响应，能不能让整个系统都响应啊，这个鼠标要一直是坏的。请各位高手多多指教！

Answer 1

Form.OnMouseMove := NIL;
SetCursorPos;
Form.OnMouseMove := FormMouseMove;