如何实现对桌面上的非当前窗口进行操作？？？？

Question

进行键盘输入和鼠标的点击,最后有例子。谢谢了

Answer 1

SendMessage之前加一句 SetForegroundWindow(Wnd);
举例：
//在记事本中输入TAB键
procedure TForm1.Button1Click(Sender: TObject);
var
  Wnd: HWND;
begin  Wnd := FindWindow('notepad',nil);
  if Wnd <> 0 then
  begin
    SetForegroundWindow(Wnd);
    keybd_event(VK_TAB, MapVirtualKey(VK_TAB, 0), 0, 0);
    keybd_event(VK_TAB, MapVirtualKey(VK_TAB, 0), KEYEVENTF_KEYUP, 0);
  end;end;

Answer 2

不要说是非当前窗口，就是隐藏的也是可以的，只要它是存在的，用 FindWindow('notepad',nil)找到窗口句柄
在用sendMessage发送就可以了。