是用delphi7编写的，专门针对火狐Firefox浏览器。部分源码如下： procedureTForm1.Button1Click(Sender:TObject); vara,b:string; begin //火狐浏览器在最小化或被其它窗口挡住，仍然可以获取成功。 ifGetFirefoxURL(a,b)then//判断是否获取成功。这里只处理火狐， begin//只要火狐浏览器开启就肯定能获取成功，不成功一般是没开启所导致。 LabeledEdit1.Text:=a; LabeledEdit2.Text:=b; end; e