模拟鼠标怎么在后台运行？

Question

就是比如一个窗口是最小化的，但要通过鼠标来点击（200，100）这个位置，该如何实现了？窗口是最小化的.
查了API(SetCursorPos)这个好想不能最小化的。

Answer 1

//试试procedure TForm1.Button1Click(Sender: TObject);
var
xxxRect: TRect;
Temp:HWND;
procedure xxClicked(x, y: integer);
begin
PostMessage(Temp, WM_LBUTTONDOWN, MK_LBUTTON, x + y shl 16);
PostMessage(Temp, WM_LBUTTONUP, MK_LBUTTON, x + y shl 16);
end;
begin
Temp := findwindow(nil,pchar('测试测试测试'));
GetWindowRect(Temp, xxxRect);
with xxxRect do xxClicked(100,200);end;