delphi webbrowser模拟鼠标调用JS超链接解决办法

delphi webbrowser模拟鼠标调用JS超链接
     最近公司要用delphi的webbrowser插件模拟鼠标调用URL，有一段网页超链接的源代码如下：
<DIV class=dTreeNode><IMG alt="delphi webbrowser模拟鼠标调用JS超链接解决办法" src="images/join.gif"><IMG id=itree1 alt="delphi webbrowser模拟鼠标调用JS超链接解决办法" src="images/2j1.gif"><A id=stree1 class=node onclick="javascript: tree.s(1);" href="comm/sms.jsp" target=welcome>发送短信</A></DIV>
    
   我现在想请教各位大侠一下，在delphi中，如何模拟鼠标在网页上点击"发送短信"这个超链接。
[解决办法]
http://blog.csdn.net/bdmh/article/details/6069485
[解决办法]

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
//这里面可以根据URL进行截取判断
end;