URL in aktuellem Firefox/InternetExplorer auslesen

[CalganX]

delphis spassbremse hat hier einen Sourcecode gepostet, mit der man aus einer offenen Firefox- oder InternetExplorer-Instanz die aktuell geöffnete Seite auslesen kann:

Delphi-Quellcode:

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;

alzaimar hat jedoch angemerkt, dass man den Browser auch dazu bringen kann, eine Anwendung automatisch über Änderungen zu informieren. Dazu ist die Verwendung von WWW_RegisterURLEcho erforderlich, wozu es hier in der Microsoft Knowledgebase Informationen gibt.