您的位置：首页 > 编程语言 > Delphi

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

2018-06-03 23:28 399 查看

 

https://www.geek-share.com/detail/2702472665.html

正好要用，做个记录。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(Application
.
Handle, 
nil
, 
'http://www.sharejs.com'
, 
nil
, 
nil
, SW_SHOWNORMAL);
  
end
;



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

uses
 
shellapi
 
procedure
 
TForm1
.
Button1Click(Sender: TObject);
 
begin
 
ShellExecute(Application
.
Handle,
'open'
,
'Iexplore.exe'
,
'http://www.sharejs.com'
,
nil
,SW_SHOWNORMAL);
 
end
;
  
procedure
 
TForm1
.
Button2Click(Sender: TObject);
 
begin
 
ShellExecute(Application
.
Handle, 
nil
, 
'http://www.haotu.net'
, 
nil
, 
nil
, SW_SHOWNORMAL);
 
end
;
 
  
//该代码片段来自于: http://www.sharejs.com/codes/delphi/9051
 
uses
 
SHDocVw;
  
procedure
 
TForm1
.
Button4Click(Sender: TObject);
 
var
 
IE : OleVariant;
 
begin
 
IE := CoInternetExplorer
.
Create;
 
IE
.
Visible := 
True
;
 
IE
.
Navigate2(
'http://cy03wqh.blog.163.com'
);
 
end
;
 
  
//该代码片段来自于: http://www.sharejs.com/codes/delphi/9051

3：

comobj
  
procedure
 
TForm1
.
Button1Click(Sender: TObject);
  
procedure
 
OpenInIe(URL:
string
);
  
var
 
Ie:Variant;
  
begin
  
Ie:=CreateOleObject(
'InternetExplorer.Application'
);
 
Ie
.
visible:=
True
;
 
Ie
.
left:=
300
;
 
Ie
.
top:=
200
;
 
Ie
.
height:=
400
;
 
Ie
.
width:=
600
;
 
Ie
.
menubar:=
0
; 
//隐藏菜单栏
  
Ie
.
toolbar:=
0
; 
//隐藏工具栏
  
Ie
.
addressbar:=
0
; 
//隐藏地址栏
 
//
 
Ie
.
statubar:=
0
; 
//不可调整大小
  
Ie
.
resizable:=
0
;
 
Ie
.
navigate(URL);
 
end
;
  
begin
 
OpenInIe(
'http://www.sharejs.com'
);
 
end
;
 
  
//该代码片段来自于: http://www.sharejs.com/codes/delphi/9051

4：用WebBrowser控件

procedure
 
TForm1
.
FormCreate(Sender: TObject);
 
begin
 
WebBrowser1
.
Align := alTop;
 
WebBrowser1
.
Navigate(
'http://www.sharejs.com'
);
 
end
;
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 点击这里给我发消息
标签： 
相关文章推荐
新的分享
章节导航