Delphi中打开网页连接的几种方法

概述  https://blog.csdn.net/zisongjia/article/details/69398143 正好要用，做个记录。Mark下。   使用了第一种 uses shellapiprocedure TForm1.Button2Click(Sender: TObject);begin ShellExecut(Application.Handle, nil, ‘http:

 

https://blog.csdn.net/zisongjia/article/details/69398143

正好要用，做个记录。Mark下。

 

使用了第一种

uses shellAPIprocedure TForm1.button2Click(Sender: TObject);begin    ShellExecut(Application.Handle,nil,‘http://www.shareJs.com‘,nil,nil,SW_SHOWnorMAL); end;

 

Delphi打开网址链接的几种方法： 
1： 
用默认浏览器打开 

uses shellAPI

procedure TForm1.button2Click(Sender: TObject);

begin

ShellExecut(ApplicationHandle, nil, ‘http://www.sharejs.com‘

end;

2： 
用IE浏览器打开的3种方法： 

button1Click(Sender: TObject);

ShellExecute(Application‘open‘‘IExplore.exe‘;

button2Click(Sender: TObject);

begin

‘http://www.haotu.net‘;

//该代码片段来自于: http://www.sharejs.com/codes/delphi/9051

SHDocVw;

button4Click(Sender: TObject);

var

IE : oleVariant;

IE := CoInternetExplorerCreate;

IEVisible := TrueNavigate2(‘http://cy03wqh.blog.163.com‘);

//该代码片段来自于: http://www.sharejs.com/codes/delphi/9051

3：

comobj

button1Click(Sender: TObject);

OpenInIE(URL:stringvar

IE:Variant;

IE:=CreateoleObject(‘InternetExplorer.Application‘);

IEvisible:=left:=300top:=200height:=400wIDth:=600menubar:=0; //隐藏菜单栏

toolbar:=//隐藏工具栏

addressbar:=//隐藏地址栏

//

statubar:=//不可调整大小

resizable:=navigate(URL);

OpenInIE(4：用Webbrowser控件 FormCreate(Sender: TObject);

Webbrowser1Align := altop;

Navigate(;

总结

以上是内存溢出为你收集整理的Delphi中打开网页连接的几种方法全部内容，希望文章能够帮你解决Delphi中打开网页连接的几种方法所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。