Aktuelle URL aus Firefox auslesen

[Felix]

Hallo,

ich möchte ein kleines Programm schreiben, das ich per Hotkey von Firefox aus starte und dann die gerade aktuelle URL in eine Datenbank schreibe.

Weiß jemand, wie ich diese URL ermitteln kann? Das Handle von Firefox ist mir ja bekannt. Kann man daraus möglicherweise auch an das Handle der Adresszeile ermitteln und diese auslesen?

Danke im Voraus - Felix

[Stefan Bodenburg]

Hallo hätte da folgendes für dich:

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

Aufruf:
url.text:= GetActiveBrowsersURL('firefox');

Du brauchst damit nur den namen der exe des Browsers übergeben, geht also mit allen Browsern nicht nur mit Mozilla

Gruss

Stefa

[Felix]

Vielen Dank. Hatte schon gar nicht mehr mit einer Lösung gerechnet und länger nicht reingeschaut.

Gruß Feli