如何向网页的弹出窗口发送点击确定的消息？

Question

网页的标题为　Mircrosoft Internet Expolore 上边有两个按钮　'确定' '取消';如何向其中的确定发送点击消息？我以前看到过相关代码　可是我不太清楚这几个函数的用法　请高手帮忙看看我记得是３个函数
findwindow ,findwindowex , sendmessage我先写了一点点代码procedure TForm1.Button1Click(Sender: TObject);
var
  w: HWND;
  ww:hwnd;
begin
  w := FindWindow( nil, 'Microsoft Internet Explorer' );
  ww:=FindWindowEx(w,0,0,pchar('确定'));
  SendMessage( w, WM_COMMAND, 0, ww );
end;可是这样不行　，helpMe!

Answer 1

w := FindWindow( '#32770', 'Microsoft Internet Explorer' ); //DialogBox
ww:=FindWindowEx(w, 0, 'Button', '确定(&?)'); //(&?):如果有快键要加
SendMessage(ww, BM_Click, 0, 0 );