高分求助：WebBrowser浏览页面，怎样控制window.close弹出的窗口？

要浏览页面的html代码大概如下：
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>用户管理系统</title>
</head>
<body bgcolor="f1f1f1">
<script language="javascript">
   alert('OK!');
   window.close();
</script>
</body>
</html>利用WebBrowser浏览这页面：WebBrowser1.Navigate('D:\delphi_test\htm\test.htm')
会弹出2个对话框，第一个是alert弹出来的，我用
var
  Hwnd: THandle;  Hwnd := FindWindow(PChar('#32770'), PChar('Microsoft Internet Explorer'));
  if Hwnd <> 0 then
    SendMessage(Hwnd, WM_CLOSE, 0, 0);
  就可以把alert弹出来的窗口关闭掉但是，现在就没有办法关闭window.close弹出的对话框：  你查看的网页正在试图关闭窗口。
  是否关闭此窗口？
  
我的思路是：
  模似一个点击“是”按钮的消息给这个窗口，另到这个窗口关闭。
  我利用SendMessage(null,VK_RETURN,0,0);发送回车消息给这个窗口，但是，一点反应都没有郁闷！！！怎样做才可以关闭window.close弹出的窗口？
请给出相关的函数、代码或思路。在此先谢谢各位的帮助了