添加菜单到IE的菜单可以照control说的做.<br><br>你可以用DDE的方式得到当前IE的URL和Title(必须是当前浏览器已经载入该页面才有效),<br>下面的函数可以实现该功能:<br><br>参数说明:<br> sBrowerPrgFile: 浏览器exe文件的完整路径<br> sServiceName: 浏览器DDE服务的名字 'Netscape' 或'iexplore'<br> Netscape : boolean类型,确定是否是Netscape浏览器 <br> Title: 用来保存返回的title的文本<br>返回值: pChar类型的URL<br><br><br>function URLInfo(sBrowerPrgFile, sServiceName: string; Netscape: boolean; var Title: string): pChar;<br>var<br> DDEClientConv: TDDEClientConv;<br> StartPtr, EndPtr: pchar;<br> browserWinName: string;<br>begin<br> result:= #0;<br> Title:= '';<br><br> if (sBrowerPrgFile = '') or (not FileExists(sBrowerPrgFile)) then<br> raise EBrowserNotFoundError.create('浏览器程序不存在!');<br><br> ddeClientConv:= TDDEClientConv.Create( nil );<br> try<br> with ddeClientConv do<br> begin<br> ServiceApplication := sBrowerPrgFile;<br> SetLink( sServiceName,'WWW_GetWindowInfo');<br> StartPtr:= RequestData('0xFFFFFFFF');<br> end;<br> finally<br> ddeClientConv.Free;<br> end;<br><br> if startPtr^ = #0 then exit;<br><br> inc(StartPtr);<br> EndPtr:= StartPtr;<br><br> while (EndPtr^ &lt;&gt; '"') do<br> inc(EndPtr);<br><br> EndPtr^:= #0;<br> result:= StartPtr;<br><br> StartPtr:= EndPtr+3;<br> if Netscape then inc(StartPtr,12);<br><br> EndPtr:= StartPtr;<br><br> if Netscape then<br> while (EndPtr^ &lt;&gt; ']') do<br> inc(EndPtr)<br> else<br> while (EndPtr^ &lt;&gt; '"') do<br> inc(EndPtr);<br><br> EndPtr^:= #0;<br> Title:= strPas(StartPtr);<br>end;<br>