Url vom Standard-Browser ermitteln

[lowmax_5]

Mit folgender Funktion kann ich die Url vom IE ermitteln:

Code:

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

Aufruf

Code:

GetURL('IExplore'));

==> O.k.

Code:

GetURL('Firefox'));

==> Geht nicht

Code:

GetURL('Edge??'));

==> geht nicht

Kann dieses auch mit anderen Browsern umgesetzt werden z.B. Edge oder FF? oder unterstützen FF oder Edge überhaupt DDE? Wie kann man das erkennen? Habe von DDE keine Ahnung...