是用delphi7编写的，专门针对火狐Firefox浏览器。部分源码如下： procedure TForm1.Button1Click(Sender: TObject); var a,b:string; begin //火狐浏览器在最小化或被其它窗口挡住，仍然可以获取成功。 if GetFirefoxURL(a,b) then //判断是否获取成功。这里只处理火狐， begin//只要火狐浏览器开启就肯定能获取成功，不成功一般是没开启所导致。 LabeledEdit1.Text:=a; Lab
Mozilla Firefox，非正式中文名称火狐，是一个开源网页浏览器，使用Gecko引擎(即非ie内核)，由Mozilla基金会与数百个志愿者所开发。原名“Phoenix”（凤凰），之后改名“Mozilla Firebird”（火鸟），再改为现在的名字Firefox。目前最新的正式版本为Firefox 11.0。
