Registriert seit: 2. Mär 2004
5.508 Beiträge
Delphi 5 Professional
|
AW: Internet Explorer: Wie die URLS aller Registerkarten auslesen?
6. Sep 2011, 17:04
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;
Andreas
|