如何向外部程序发送”按下一个回车键”命令

Question

那个程序的句柄我不知道，不知道怎幺获取，是一个网页。能不能给一个获取句柄的程序。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  _hwnd:HWND;
begin
  _hwnd:=findWindow(NIL,'计算器');       //获取计算机的窗口句柄
  setForegroundWindow(_hwnd);
  keybd_event(vk_return,mapVirtualKey(vk_return,0),0,0);  //按下回车键
  keybd_event(vk_return,mapVirtualKey(vk_return,0),1,0);  //释放回车键
end;

Answer 2

var
  html,
  ed1:hwnd;
begin
  html:=FindWIndowEx(0,0,'IEFRAME',nil);
  if html<>0 then
     begin
       showmessage('找到网页');
       setForegroundWindow(html);
       keybd_event(vk_return,mapVirtualKey(vk_return,0),0,0);  //按下回车键
       end
     else showmessage('没找到网页');
     end;

Answer 3

var
  hwnd: THANDLE;
begin
  hwnd := FindWindow(nil,窗口标题);
  setForegroundWindow(hwnd);
  SendMessage(hwnd,WM_RETURN,VK_HOME,0);
end;

Answer 4

不好意思写错var
  hwnd: THANDLE;
begin
  hwnd := FindWindow(nil,窗口标题);
  setForegroundWindow(hwnd);
  SendMessage(hwnd,WM_KEYDOWN,VK_RETURN,0);
end;