Delphi 鼠标模拟点击

//Delphi 鼠标模拟点击
1.把句柄窗口设置成顶置窗口
2.保存鼠标当前位置
3.把鼠标移动到新的位置
4.执行右键或左键操作
5.鼠标移动到原来位置

procedure TForm1.btn2Click(Sender: TObject);
var
  oldPoint,newPoint:TPoint;
  hw2:HWND;
  r:TRect; //获取句柄窗口鼠标位置
  ifor:Integer;
  WIDTH,HEIGHT:integer;
begin
  GetCursorPos(oldPoint); //保存当前鼠标位置。
  hw2:=StrToInt(edt1.Text);

 for ifor:=0 to 3 do begin
   begin //顶置窗口
     GetWindowRect(hw2,r); //获取句柄窗口对应的屏幕鼠标位置
     width:= r.right-r.left;   //句柄窗口的宽度
     height:=r.bottom-r.top;  //句柄窗口的高度
     SetForegroundWindow(hw2); //顶置句柄窗口
     BringWindowToTop(hw2);    //顶置句柄窗口
     SetWindowPos(hw2,HWND_TOPMOST,0,0,width,height,SWP_SHOWWINDOW); //顶置句柄窗口
   end;
  GetWindowRect(hw2,r); //获取句柄窗口对应的屏幕鼠标位置
  newPoint.x:=r.Left+450; //设置新鼠标位置
  newPoint.y:=r.Top+350;  //设置新鼠标位置
  SetCursorPos(newPoint.x,newPoint.y); //设置鼠标新的位置。

//  mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);//模拟按下鼠标右键。
//  mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);//模拟放开鼠标右键。
  mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);//模拟按下鼠标左键。
  mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);//模拟放开鼠标左键。
//  keybd_event(VK_SHIFT,MapVirtualKey(VK_SHIFT,0),0,0); //按下SHIFT键。
//  keybd_event(0x52,MapVirtualKey(0x52,0),0,0);//按下R键。
//  keybd_event(0x52,MapVirtualKey(0x52,0),KEYEVENTF_KEYUP,0);//放开R键。
//  keybd_event(VK_SHIFT,MapVirtualKey(VK_SHIFT,0),KEYEVENTF_KEYUP,0);//放开SHIFT键。
 end;
SetCursorPos(oldPoint.x,oldPoint.y); //移回鼠标原有位置
end;