Die URL aus Google Chrome auslesen

[LuckySpacy]

Ich bin jetzt schon seit Stunden verzweifelt am Suchen, wie man die URL aus dem Browser Chrome auslesen kann.
Alles was ich bisher gefunden habe, funktioniert nicht.

Was gut funktioniert ist das:

Delphi-Quellcode:

uses
  DdeMan;

function TForm1.GetURL(Service: string): string;
var
  ClDDE: TDDEClientConv;
  temp: PChar;
begin
  Result := '';
  ClDDE := TDDEClientConv.Create(nil);
  with ClDDE do
  begin
    SetLink(Service, 'WWW_GetWindowInfo');
    temp := RequestData('0xFFFFFFFF'); //FEHLER!
    Result := StrPas(temp);
    StrDispose(temp);
    CloseLink;
  end;
  ClDDE.Free;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
   Memo1.Lines.Add(GetURL('IExplore'));
end;

Das ist aber nicht das was ich suche.
Ich möchte einzig und alleine die URL aus dem Chrome Browser auslesen.
Ich wäre für jeden Hinweis dankbar.