自制简单的Delphi鼠标自动点击器.rar

一个简单的自制Delphi 鼠标自动点击器源码，功能还需要改进的Delphi自动点击程序，可用在游戏辅助程序的开发中，比如外挂之类的。这个点击器主要是通过Mouse_Event方法实现的。 　　begin 　　 p:=button2.ClientToScreen(Point(button1.Width div 2,button1.height div 2)); 　　 SetCursorPos(p.x,p.y); 　　 Mouse_Event(MOUSEEVENTF_LEFTDOWN,p.X,p.Y,0,0); 　　 Mouse_Event(MOUSEEVENTF_LEFTUP,p.X,p.Y,0,0); 　　end; 　　procedure TForm1.Button2Click(Sender: TObject); 　　begin 　　 MessageDlg('自动点击',mtwarning,[mbok],0); 　　end;