Ok ich hab jetzt gefunden was alzaimer meinte...
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;
aufruf durch:
Delphi-Quellcode:
// Internetexplorer
edit1.text := GetActiveBrowsersURL('Iexplore');
//Firefox
edit1.text := GetActiveBrowsersURL('Firefox');
müsste eig. auch mit anderen Browsern funzen (like opera)....
einfach mal statt Firefox da den prozessnamen des Browsers ohne.exe einfügen