Delphi打造自己的浏览器

前面给大家做了一个MS网马的生成器的教程 好多人都找我要控件 麻烦！

以后给大家做教程就尽量不使用控件了

今天教大家自己制作一个简单的浏览器

/////////////////////////////////////

制作特别简单！ 下面开始

打开delphi7.0

添加以下组件
1：Coolbar
2：Panel
3：toolbar
4：statusbar
5：imagelist
6: webbrowser
7: idhttp1

webbrowser 组件的 DownloadBegin事件中添加以下代码

StatusBar1.Panels[0].Text:=’正在连接：’+Edit1.text;

DownloadComplete 事件中添加以下代码

StatusBar1.Panels[0].Text:=’完成’+WebBrowser1.LocationURL ;

返回
WebBrowser1.GoBack;
停止
WebBrowser1.Stop;
刷新
WebBrowser1.Refresh;
主页
WebBrowser1.GoHome;

然后在访问的单击事件中添加以下代码
这个可以查询您访问的网站的世界排名~~~

我们去试试

var
p:integer;
s:string;
begin
WebBrowser1.Navigate(Edit1.Text);
s := idHTTP1.Get(’http://data.alexa.com/data?cli=10&dat=snba&url=’ + Edit1.Text) ;
//先得到网页代码
p:=pos(’" TEXT="’,s) + Length(’" TEXT="’);
s:=copy(s,P,30);
p:=pos(’"/>’,s);
Label3.Caption:=Copy(s,1,P -1);
if Edit1.Text=’’ then
ShowMessage(’地址不能为空’);
end;

对不对？
这样呢 一个简单的浏览器就做好了 这里还告诉大家怎样更改程序图标 添加版权信息！

我就随便找一个 下面添加版权信息

好了 我们去看一下~！

OK 大家看到了 XIAOZ软件工作室 ~

好的 教程就到这里 88```