如何获取浏览器标题及地址的问题

Question

1、如果只是获取当前的网页地址就不用说了】
如何获取所有打开的网页的地址？以IE为例，一个浏览器，但有N个标签，每个标签都是一个打开的网页，那么怎么把所有的网页地址同时得到呢？
      是同时所有！
是同时所有！
是同时所有！
是同时所有！
是同时所有！
是同时所有！
如果觉得分少，可以另开贴再加，只要能回答满意。邮箱：[email protected]

Answer 1

http://it.china-b.com/cxsj/delphi/20090820/146211_1.html
dde参考地址。

Answer 2

还有一种方法，只适合IE内核。Using   IShellWindows Click   Button1   to   have   the   locationurls   from   all   running   instances   of   Internet   Explorer   -   including   open   folders   and   Windows   Explorer   -   shown   in   a   listbox. uses 
    shdocvw_tlb; procedure   TForm1.Button1Click(Sender:   TObject); 
var 
    x:   Integer; 
    Sw:   IShellWindows; 
begin 
    sw   :=   CoShellWindows.Create; 
    for   x   :=   0   to   SW.Count   -   1   do 
        Listbox1.Items.Add((Sw.Item(x)   as   IWebbrowser2).LocationUrl); 
end;   
Sinking   events   from   IShellWindows. DShellWindowsEvent   has   two   events   OnWindowRegistered   (called   when   a   new   instance   of   IE   is   created)   and   OnWindowRevoked   (called   whel   an   instance   of   IE   is   closed). Drop   a   DShellWindowEvent-component   on   your   form   and   connect   it   to   your   instance   of   IShellwindows: var 
  sw   :   Ishellwindows; begin 
    sw   :=   CoShellWindows.Create; 
    DshellwindowsEvents1.Connect(sw); 
end; 
  
The   following   code   will   keep   track   of   running   instances   of   Internet   Explorer   -   add   or   remove   them   from   a   listbox   based   on   information   from   OnWindowRegistered   and   OnWindowRevoked   uses 
shdocvw_tlb; 
procedure   TForm1.DShellWindowsEvents1WindowRegistered(Sender:   TObject;lCookie:   Integer); 
begin 
Listbox1.Items.Add( 'Instance   with   Cookie   no:   '+InttoStr(lCookie)); 
end; procedure   TForm1.DShellWindowsEvents1WindowRevoked(Sender:       TObject;lCookie:   Integer); 
begin 
  Listbox1.Items.Delete(Listbox1.Items.IndexOf( 'Instance   with   Cookie   no:   '+InttoStr(lCookie))); 
end; procedure   TForm1.FormCreate(Sender:   TObject); 
var 
  sw   :   Ishellwindows; 
begin 
  FormStyle:=fsStayOnTop;   
  sw   :=   CoShellWindows.Create; 
  DshellwindowsEvents1.Connect(sw); 
end; 
    Sending   commands   to   a   running   instance   of   IE You   can   obtain   an   IWebbrowser2-interface   from   each   of   the   running   instances   listed   in   IShellwindows   by   simple   typecasting   if   WB:=Shellwindows.Items(x)   as   IWebbrowser2;   
The   following   code   will   close   all   running   instances   of   IE   when   Button1   is   clicked: 
procedure   TForm1.Button1Click(Sender:   TObject); 
var 
    x   :   Integer; 
    sw:   Ishellwindows; 
    wb:   IWebbrowser2; 
begin 
    sw   :=   CoShellWindows.Create; 
    for   x   :=   0   to   sw.count   do 
        begin 
            WB   :=   Sw.Item(x)   as   IWebbrowser2; 
            if   wb <> nil   then   WB.Quit; 
      end; 
end; 
    Sinking   Events   from   a   running   instance   of   IE. Drop   a   DWebbrowserEvents2-component   on   your   form   and   connect   it   to   an   instance   of   IE   by   using     DWebbrowserEvents21.Connect(IE); 
var 
    ShellWin   :   shdocvw_tlb.IShellWindows; 
    IE   :   IWebbrowser2; begin 
    IE:=shellwin.Item(Shellwin.Count-1)   as   IWebbrowser2; 
    DWebbrowserEvents21.Connect(IE); 
end; 
  
The   following   code   opens   a   new   instance   of   IE,   lets   it   navigate   and   captures   the   statustext-change   in   a   listbox: uses 
shdocvw_tlb; procedure   TForm1.Button1Click(Sender:   TObject); 
var 
x:   Olevariant; 
sw:   Ishellwindows; 
wb:   IWebbrowser2; 
begin 
    WB   :=   CoInternetExplorer.Create; 
    WB.Visible   :=   True; 
    DWebbrowserEvents21.Connect(WB); 
    WB.Navigate( 'http://www.euromind.com/iedelphi ',   x,   x,   x,   x); 
end; procedure   TForm1.DWebBrowserEvents21StatusTextChange(Sender:   TObject;const   Text:   WideString); 
begin 
    listbox1.items.add(text); 
end; procedure   TForm1.DWebBrowserEvents21Quit(Sender:   TObject); 
begin 
    DWebbrowserEvents21.DisConnect; 
end; 
    The   demo   LogView   demonstrates   how   to   log   events   from   all   running   instances   of   IE   to   a   common   log-listbox.   The   demo   uses   DWebbrowserEvents2   and   ShellWindowEvents:   
var 
    ShellWin:   IShellWindows;   //NB!! 
    Connection:   Integer; procedure   InterfaceConnect(const   Source:   IUnknown;   const   IID:   TIID; 
    const   Sink:   IUnknown;   var   Connection:   Longint); 
var 
    CPC:   IConnectionPointContainer; 
    CP:   IConnectionPoint; 
begin 
    Connection   :=   0; 
    if   Succeeded(Source.QueryInterface(IConnectionPointContainer,   CPC))   then 
        if   Succeeded(CPC.FindConnectionPoint(IID,   CP))   then 
            CP.Advise(Sink,   Connection); 
end; 
procedure   TForm1.FormCreate(Sender:   TObject); 
var 
    X:   Integer; 
begin 
    ShellWin   :=   CoShellWindows.Create; 
    ShellWinEvents.Connect(ShellWin); 
    for   x   :=   0   to   ShellWin.Count   -   1   do 
        InterfaceConnect(ShellWin.Item(x)   as   IWebbrowser2,   DwebbrowserEvents2,   WBevents,   Connection); 
end; procedure   TForm1.ShellWinEventsWindowRegistered(Sender:   TObject;     lCookie:   Integer); 
begin 
    InterfaceConnect(ShellWin.Item(ShellWin.Count   -   1)   as   IWebbrowser2,   DwebbrowserEvents2,   WBevents,   Connection); 
end; procedure   TForm1.WBEventsBeforeNavigate2(Sender:   TObject; 
    const   pDisp:   IDispatch;   var   URL,   Flags,   TargetFrameName,   PostData, 
    Headers:   OleVariant;   var   Cancel:   WordBool); 
begin 
    listbox1.items.add(url); 
end; 以上方法亲测通过，前提只适合IE内核浏览器，如果你用了搜狗、360的高速内核，是不行的