有关鼠标的问题

Question

如何得知当前鼠标的形状，当前鼠标应该有个结构体包括了鼠标的所有信息吧，如何显示出来，或者是其他方法，谢谢，请副原码

Answer 1

var
  cur: TIcon;
  p: TPoint;
  hwd: THandle;
  tid: THandle;cur := TIcon.Create;
GetCursorPos(p)//获得当前坐标
hwd := WindowFromPoint(p);//获得当前窗体坐标
tid := GetWindowThreadProcessId(hwd, nil);
AttachThreadInput(GetCurrentThreadId, tid, True);//将输入附加到当前窗口
cur.Handle := GetCursor;//获得光标
AttachThreadInput(GetCurrentThreadId, tid, False);其它GetIconInfo什么的自己研究~~~