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

发布时间：2020-12-15 09:56:18 所属栏目：大数据来源：网络整理

导读：? https://blog.csdn.net/zisongjia/article/details/69398143 正好要用，做个记录。Mark下。 ? 使用了第一种 uses shellapi procedure TForm1.Button2Click(Sender: TObject); begin ShellExecut(Application.Handle, nil , ‘ http://www.sharejs.com ‘ ,

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

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

使用了第一种

uses shellapi
procedure 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(;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!