qinyi75 发表于 2011-3-31 09:33:27

请问如何用delphi 模拟移动点击鼠标

请问如何用delphi 模拟移动点击鼠标,实现后台的!!!谢谢~

zy530900999 发表于 2011-3-31 09:33:40

var
mousein:tagINPUT;   

mousein.type=INPUT_MOUSE;   
mousein.mouseData=0;   
mousein.time=0;   
mousein.dwFlags=MOUSEEVENTF_LEFTDOWN;   
SendInput(1,&in,sizeof(in));   
mousein.dwFlags=MOUSEEVENTF_LEFTUP;   
SendInput(1,mousein,sizeof(mousein));
页: [1]
查看完整版本: 请问如何用delphi 模拟移动点击鼠标