檢測鼠標指針的改變（使用GetCursorInfo API函數）

第一步:定義全局變量用於狀態改變時的對比
var
Form1: TForm1;
OldCI:HICON;

第二步:添加Timer組件,Interval設置隨意一般50就可以了. 增加Memo組件用於記錄狀態改變
procedure TForm1.Timer1Timer(Sender: TObject);
var
CI: TCursorInfo;
begin
CI.cbSize := SizeOf(CI);
GetCursorInfo(CI);
if OldCI<>CI.hCursor then
    begin
      OldCI:=CI.hCursor;
      Beep;
      Memo1.Lines.Add('在坐標 X:'+inttostr(CI.ptScreenPos.X)+' Y:'+inttostr(CI.ptScreenPos.X)+' 發生改變');
    end;
end;

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