DruckenMister WongFacebook

Url des aktiven Browserfensters erfahren

System Win9x, WinNT, Win2000, WinXP, Vista, Win7
Ab Delphi-Version Delphi 1
Letzte Änderung 28.09.2010

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. Netscape).


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;