如何用delphi命令打开一个网页?比如说www.baidu.com

来源:百度知道 编辑:UC知道 时间:2024/05/15 01:52:37
如何用delphi命令打开一个网页?比如说www.baidu.com

1.新建一个工程
2.窗体上放一个TWebBrowser控件,位置在“Internet”页上
3.窗体的OnCreate事件中录入以下代码:
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('www.baidu.com');
end;

4.编译运行程序

你就可以看到结果了...
=============================================
补充:如果你是要打开一个IE,并浏览www.baidu.com的话:
1.先uses shellapi单元
2.在按钮的OnClick事件中:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Self.handle,'open',PChar('IEXPLORE.EXE'),'http://www.baidu.com','',sw_shownormal);
end;