delphi 后台模拟鼠标点击

procedure TForm1.FormCreate(Sender:TObject)

function MyFindWindow:THandle

const

A_szClassName:array[0..2] of PChar=(

'MSPaintApp',

'AfxFrameOrView42u',

'Afx:1000000:8'

)

var

i:Integer

hLastWin:THandle

begin

hLastWin:=FindWindow(A_szClassName[0],nil)

for i:=1 to 2 do

begin

hLastWin:=FindWindowEx(hLastWin,THandle(nil),

A_szClassName[i],nil)

end

result:=hLastWin

end

var

h:THandle

begin

h:=MyFindWindow()

SendMessage(h, WM_LBUTTONDOWN, MK_LBUTTON, makelparam(300,300))

SendMessage(h, WM_LBUTTONUP, MK_LBUTTON, makelparam(300,300))

end

delphi 后台键盘和鼠标的模拟操作，可以使用 SendMessage 和 PostMessage 函数，通过发送鼠标动作消息来完成模拟操作。

需要提示的是，如果是对游戏进行后台操作，由于游戏的反外挂机制，可能会屏蔽这种办法（比如，会检测窗口是否在前台等），会使这种办法无效。

---