Delphi - Milyen web helyen jár a felhasználó?

forráskód letöltése
Programból könnyedén lekérdezhetjük, hogy milyen web cím került beírásra aktuálisan az Internet Explorer-be. Ha ezt rendszeresen megtesszük az alkalmazásunkból, akkor folyamatosan nyomon követhetjük, hogy merre is jár felhasználónk a világhálón...
Ennek az információnak a lekérdezését egy DDE kapcsolaton keresztül valósítjuk meg. Ehhez tegyünk a Form-ra egy TDdeClientConv komponenst, majd programból hívjuk meg a SetLink függvényét, mely létrehozza a kapcsolatot az IE és az alkalmazásunk között. Fontos, hogy ekkor már legyen egy futó IE, különben nincs mihez kapcsolódni.
Ha a kapcsolatfelvétel sikeres, akkor egy RequestData hívással lekérdezhetjük a számunkra szükséges adatokat. E függvénynek paraméterként a '0xFFFFFFFF' értéket átadva sztringként visszakapjuk az aktuális böngésző által megcímzett URL-t, valamint a weblap fejlécét (title).
procedure TForm1.Button1Click(Sender: TObject);
begin
  if DdeClientConv1.SetLink('IExplore', 'WWW_GetWindowInfo') then begin
    Label1.Caption:=DdeClientConv1.RequestData('0xFFFFFFFF');
  end;
end;
Ezt a megoldást használhatjuk Netscape esetén is, csak ekkor a kapcsolatfelvétel másképp történik: SetLink('Netscape','WWW—Activate');