Question

delphi 后台模拟鼠标点击

procedure TForm1.Timer1Timer(Sender: TObject);
var
Window: HWND;
PHND: THandle;
begin
Window := findwindow(nil, pchar('未命名 - 画图'));
if Window <> 0 then
begin
SendMessage(Window, WM_LBUTTONDOWN, MK_LBUTTON, makelparam(300,300));
SendMessage(Window, WM_LBUTTONUP, MK_LBUTTON, makelparam(300,300));
end;
end;
这段代码怎么对画板窗口没反映了，错再哪里了？、

Answer 1

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;

Answer 2

delphi
后台键盘和鼠标的模拟操作，可以使用
sendmessage
和
postmessage
函数，通过发送鼠标动作消息来完成模拟操作。
需要提示的是，如果是对游戏进行后台操作，由于游戏的反外挂机制，可能会屏蔽这种办法（比如，会检测窗口是否在前台等），会使这种办法无效。