是用delphi7编写的,专门针对火狐Firefox浏览器。部分源码如下:
procedure TForm1.Button1Click(Sender: TObject);
var a,b:string;
begin
//火狐浏览器在最小化或被其它窗口挡住,仍然可以获取成功。
if GetFirefoxURL(a,b) then //判断是否获取成功。这里只处理火狐,
begin//只要火狐浏览器开启就肯定能获取成功,不成功一般是没开启所导致。
LabeledEdit1.Text:=a;
LabeledEdit2.Text:=b;
end;
e
相关下载链接:
//download.csdn.net/download/mwy654321/2810324?utm_source=bbsseo