问：有消息的句柄，怎么知道消息的内容？

Question

procedure TForm1.Timer1Timer(Sender: TObject);
var
    H,hc: HWND;
begin
  h := findwindow(nil, 'Microsoft Internet Explorer');
  if H > 0 then
    begin
        hc := FindWindowEx(h,0,'Button','确定');
        SendMessage(hc, BM_CLICK, 0, 0);
    end;
end;
如何知道hc消息的提示内容？

Answer 1

解释一下，上面代码的功能是
用TWebBrowser时候如何屏蔽javascript的弹出窗口
我想扩展一下，能否知道，弹出窗口的提示内容

Answer 2

可以通过捕获弹出窗口的句柄发送关闭消息来对付弹出窗口
至于WebBrwoser里怎么用就不清楚了，没用过