procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
Browser: IWebBrowser2;
sw : TShellWindows ;
begin
sw := TShellWindows.Create(Application);
try
for i := 0 to sw.Count - 1 do
begin
try
Browser := sw.Item(i) as IWebBrowser2;
ShowMessage(Browser.LocationURL);
except
end;
end;
finally
sw.Free ;
end;
end;
