Internet Explorer: Wie die URLS aller Registerkarten auslesen?

[DelphiPeter]

Hallo Freunde

ich quäle mich im Moment mit dem IE ab, und habe nun die Aufgabe, die URLS der geöffneten Registerkarten auszulesen. Hat da jemand mal einen Tip für mich, wie ich an diese URLs dran komme?


Ich danke für jede Hilfe!

Peter

[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;

[DelphiPeter]

Zitat von 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;

WOW, das ist super, vielen Dank!!!

Siehst du eine Möglichkeit, das ich mir nur die URLS eines IExplore.exe Prozesses zurückgeben lassen kann, quasi anhand eines Fenster handles, oder z.b. das zuletzt aktive IE Fenster? Gut die letzte Methode währe praktikabler, weil ich den Handle auch erst ermitteln müsste...

Kann mir da evtl. die IWebBrowser2::Application Proptery weiterhelfen? Ich weiß nicht wie ich damit arbeiten kann!... http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx


Peter