Home » Tipps & Tricks » Netzwerk/Internet » Browser » Url des aktiven Browserfensters erfahren

Url des aktiven Browserfensters erfahren

Um die Url und die Titelzeile des gerade aktiven Browserfensters zu erhalten, kann folgender Code verwandt werden. Als Parameter muss der Name der Exe-Datei des Browsers ohne .exe übergeben werden (Bsp.: IExplore bzw. Firefox).

uses ddeman;
function GetActiveBrowsersURL(Service: string): String;
var
  ClDDE: TDDEClientConv;
  zwi:PChar;
begin
  Result:= '';
  ClDDE:= TDDEClientConv.Create(nil);
  with ClDDE do
  begin
    SetLink(Service,'WWW_GetWindowInfo');
    zwi:= RequestData('0xFFFFFFFF');
    Result:= StrPas(zwi);
    StrDispose(zwi);
    CloseLink;
  end;
  ClDDE.Free;
end;