delphi鼠标模拟源码

proceduremouseLeftDown;//按下左键 proceduremouseLeftUp;//弹起左键 proceduremouseLeftClick;//鼠标左键单击 proceduremouseRightClick;//鼠标右键单击 proceduremouseMoveClick(x,y:integer);//鼠标移动后左键单击 proceduremouseMoveRClick(x,y:integer);//鼠标移动后右键单击 proceduremouseMoveTo(x,y:in