是用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;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//简单的判断如果网址低于4位则认为是不正确的网页。您可以加入其它判断方法。最简单的网址应该是：g.cn
if length(trim(LabeledEdit2.Text))<4 then exit;
Set_URL(LabeledEdit2.Text); //在火狐上开启新网页。火狐在最小化时仍然可以开启。
end;
- 1
- 2
前往页