检测鼠标指针的改变（使用GetCursorInfo API函数）

1. 第一步:定义全局变量用于状态改变时的对比
2. var
3. Form1: TForm1;
4. OldCI:HICON;
5. 第二步:添加Timer组件,Interval设置随意一般50就可以了. 增加Memo组件用于记录状态改变
6. procedure TForm1.Timer1Timer(Sender: TObject);
7. var
8. CI: TCursorInfo;
9. begin
10. CI.cbSize := SizeOf(CI);
11. GetCursorInfo(CI);
12. if OldCI<>CI.hCursor then
13. begin
14. OldCI:=CI.hCursor;
15. Beep;
16. Memo1.Lines.Add('在坐标 X:'+inttostr(CI.ptScreenPos.X)+' Y:'+inttostr(CI.ptScreenPos.X)+' 发生改变');
17. end;
18. end;

http://blog.csdn.net/qdseashore/article/details/7757190