文件名称:获取和控制Firefox火狐非IE核心浏览器的URL网址
文件大小:4KB
文件格式:RAR
更新时间:2013-11-25 06:02:48
控制 Firefox 火狐 URL 浏览器
是用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;
【文件预览】:
设置和读取火狐URL
----Project.res(876B)
----Unit1.dfm(2KB)
----Unit1.pas(1KB)
----FirefoxURL.dcu(2KB)
----Project.dpr(187B)