Wenn schon dann so
while Pos( 'https://', GetActiveBrowsersURL('Iexplore') ) = 1 do
aber
durch dieses Polling knallst du natürlich deinen Rechner zu (CPU-Last geht auf 100%)
Besser ist es dafür einen Event zu nutzen
Schaust du mal da vorbei:
http://www.delphipraxis.net/internal...ct.php?t=97775
Der Event wird immer dann ausgelöst, wenn sich der Eintrag in der Adresszeile ändert, und nur dann muss ja auch was gemacht werden.
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)