cariurlbrowser_form

Mencari dan mendapatkan url browser yang sedang aktif dapat juga dilakukan melalui delphi. Dengan cara ini kita dapat mengetahui url yang sedang aktif di browser kita. Bila browser yang kita gunakan mendukung multitab, maka url yang akan ditampilkan adalah url dari tab yang aktif tersebut. Komponen yang digunakan adalah TDDEClientConv, namun kali ini kita akan membuat komponen tersebut secara runtime. Fungsi yang digunakan adalah SetLink.

function TDdeClientConv.SetLink(const Service, Topic: string): Boolean;

Langkah-langkah :

  1. Buat Form seperti gambar diatas.
  2. Ketik kode (di event OnClick) untuk Button1.
  3. Run Program.

Download SourceCode