获取当前鼠标指针特征码值

var
Form1: TForm1;
OldCI:HICON;

procedure TForm1.Timer1Timer(Sender: TObject);
var
CI: TCursorInfo;
begin
CI.cbSize := SizeOf(CI);
GetCursorInfo(CI);
if OldCI<>CI.hCursor then
begin
OldCI:=CI.hCursor;
form1.Caption:=‘鼠标特征值’+IntToStr(oldcI);
//form1.Caption:=ci.cbSize.ToString +’----’+ci.flags.ToString+’—’;
Beep;
form1.Memo1.Lines.Add(‘在坐标 X:’+inttostr(CI.ptScreenPos.X)+’ Y:’+inttostr(CI.ptScreenPos.X)+’ 发生改变’);
end;
end;