Как получить URL из Chrome-based браузера в Delphi?

Question

[Docbrain]

Доброе время суток.
У меня есть код, позволяющий узнать какой URL-адрес открыт в данный момент в браузере. Вот он:

procedure TForm1.Button1Click(Sender: TObject);
var
 Temp:WideString;
begin
   DdeClientConv1.SetLink('brausername','WWW_GetWindowInfo');
   Temp:=DdeClientConv1.RequestData('sUrl');
   ShowMessage(Temp);
end;

И еще вариант:

procedure TForm1.Button1Click(Sender: TObject);
var
 Temp,url:WideString;
begin
   DdeClientConv1.SetLink('opera','WWW_GetWindowInfo');
   Temp:=DdeClientConv1.RequestData('sUrl');
   delete(Temp,1,pos('"',temp));
   url:=copy(temp,1,pos('"',temp)-1);
   ShowMessage(Url);
end;

Но тут есть одна беда: данный код не работает в Google Chrome, а также браузерах, основанных на его движке. А так как сейчас практически все браузеры используют движок Chrome (FireFox и IE не в счет), то получается, что данный код не работает вообще.
Кто знает, как можно получить URL-адрес из Chrome? Заранее благодарен.