현재 떠있는 익스플로러 타이틀과 URL 가져오기

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_WebBrowser) = S_OK) then
         begin
            if (Trim(m_WebBrowser.LocationURL) = '') or (Copy(m_WebBrowser.LocationURL, 1, 6) = 'file:/') then Continue;

            Result := Format('%s' + _URL_CHAR_LEFT + '%s' + _URL_CHAR_RIGHT + '%s', [Result, m_WebBrowser.LocationName, m_WebBrowser.LocationURL]);
         end;
      end;

      if Copy(Result, 1, 1) = _URL_CHAR_LEFT then
         Delete(Result, 1, 1);

   finally
      ShellWindow := nil;
   end;
end;