Internet Explorer: Wie die URLS aller Registerkarten auslesen?

[shmia]

Hier ist etwas Code dazu:

Delphi-Quellcode:

uses ...,SHDocVw;
...
procedure TMainForm.TabSheet5Show(Sender: TObject);
var
   sws : IShellWindows;
   sw : IDispatch;
   i : Integer;
   wb : IWebBrowser2;
begin
   sws := CoShellWindows.Create;

   // Schleife über alle offenen IE-Browser
   for i := 0 to sws.Count-1 do
   begin
      sw := sws.Item(i);
      wb := sw as IWebBrowser2;
      Memo1.Lines.Add(wb.LocationURL);
   end;
end;