文件名称:自制简单的Delphi鼠标自动点击器.rar
文件大小:5KB
文件格式:RAR
更新时间:2022-07-30 12:46:07
Delphi源码-系统相关
一个简单的自制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;
【文件预览】:
codesc.net
----自动单击()
--------Unit1.dfm(663B)
--------Unit1.ddp(51B)
--------Project2.dof(1KB)
--------Project2.res(876B)
--------Unit1.pas(859B)
--------Project2.dpr(188B)
--------Unit1.dcu(4KB)