function GetWebBrowserURL: String; var m_WebBrowser : IWebBrowser2; ShellWindow : IShellWindows; WebIE : OleVariant; TmpIE : OleVariant; Loop : Integer; begin ShellWindow := CoShellWindows.Create; try for Loop := ShellWindow.Count-1 downto 0 do begin WebIE := ShellWindow.Item( Loop ); if not Assigned( IDispatch(WebIE) ) then Continue; if (IDispatch(WebIE).QueryInterface(IWebBrowser2, m_WebBrowse..