Hmmm, so auf die schnelle würde ich sagen du verwendest die TBrowser Komponente, rufst deine
URL auf und 5 Sekunden später fragst einfach die
URL ab.
Ist eine halbe Pfusch Lösung aber schnell zum umsetzten
EDIT: Habs mal schnell ausprobiert und es geht, ist halt nicht 100% sicher:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
start,stop:longint;
begin
webbrowser1.Navigate('
http://www.delphipraxis.de/');
start := gettickcount;
repeat
stop := gettickcount;
application.processmessages;
until (stop - start ) >= 5000;
showmessage('
Url is: ' + webbrowser1.LocationURL);
end;