Aufgerufene Url ermitteln (über FIFO oder IE)

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:

markieren

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

Aufgerufene Url ermitteln (über FIFO oder IE)

Re: Aufgerufene Url ermitteln (über FIFO oder IE)

Forumregeln