Aktuelle URL im Browser finden

[Dax]

delphis spassbremse zeigt hier, wie man ohne riesige Verrenkungen einen Browser dazu bringen kann, die aktuelle URL im Browserfenster zurückzuliefern:

Delphi-Quellcode:

uses DDEMan;

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

Die Verwendung des Schnipsels gestaltet sich auch schön einfach: einfach den Dateinamen des Browsers (nicht den Pfad!) ohne das Suffix in die Funktion werfen.

Delphi-Quellcode:

// IE
edit1.text := GetActiveBrowsersURL('Iexplore');

//Firefox
edit1.text := GetActiveBrowsersURL('Firefox');

[edit=Matze]Ein paar Absätze hinzugefüt. Mfg, Matze[/edit]