难题：如何监控另外一个程序的鼠标变化

Question

各位朋友：
    小弟做了一个模拟的程序，然后模拟鼠标对另外一个程序的其中一个按键进行了点击的动作，当另外一个程序的按键被鼠标点击之后，鼠标会先变成漏斗的形状，然后间隔一段时间，就会变回平常的箭头形状。问题：有没有办法，可以知道鼠标在什么时候，变回箭头形状，然后开始进行自己想要的操作。
请各位朋友赐教，谢谢！！！

Answer 1

我在QQ群里面的回答可能有点麻烦，你可以用一个Timer，在鼠标点击以后打开它，然后执行如下代码。
procedure TForm1.Timer1Timer(Sender: TObject);
var
  GBI:TCursorInfo;
begin
  GBI.cbSize:=SizeOf(GBI);
  GetCursorInfo(GBI);
  If GBI.hCursor<>65557 Then
    //在这里添加完成以后的代码
  Else
    //其它线程的工作还没有结束等待中 
  End;
end;