title: How to get the url from Chrome using delphi
body: <p>How can I get the url from a running instance of Chrome using Delphi?</p>
  
  <p>I'm trying to do a Delphi application that gets the url of the active tab of the browser (IE, Mozilla, etc.). I'm using this code that works for IE:</p>
  
  <pre><code> procedure TForm1.GetCurrentURL (var URL, Title : string);
   var
     DDEClient : TDDEClientConv;
     s : string;
   begin
     s := '';
     try
       DDEClient := TDDEClientConv.Create(self);
       with DDEClient do
       begin
         if SetLink('IExplore','WWW_GetWindowInfo') then
           s := RequestData('0xFFFFFFFF,sURL,sTitle')
         else
         if SetLink('Netscape','WWW_GetWindowInfo') then
           s := RequestData('0xFFFFFFFF,sURL,sTitle')
         else
         if SetLink('Mosaic','WWW_GetWindowInfo') then
           s := RequestData('0xFFFFFFFF,sURL,sTitle')
         else
         if SetLink('Netscp6','WWW_GetWindowInfo') then
           s := RequestData('0xFFFFFFFF,sURL,sTitle')
         else
         if SetLink('Mozilla','WWW_GetWindowInfo') then
           s := RequestData('0xFFFFFFFF,sURL,sTitle')
         else
         if SetLink('Firefox','WWW_GetWindowInfo') then
           s := RequestData('0xFFFFFFFF,sURL,sTitle');
       end;
       if s &lt;&gt; '' then
       begin
         delete(s,1,1);
         URL := copy(s,1,pos('","',s)-1);
         delete(s,1,pos('","',s)+2);
         Title := copy(s,1,pos('"',s) - 1);
       end;
       exit;
     except
       MessageDlg('URL attempt failed!',mtError,[mbOK],0);
     end;
   end;
  </code></pre>
  
  <p>But this code doesn't work with Chrome.</p>
  
  <p>Thanks.</p>