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

uses

shellapi

procedure

TForm1

.

Button2Click(Sender:
TObject);

begin

ShellExecut(Application

.

Handle,

nil

,

'http://www.sharejs.com'

,

nil

,

nil

,
SW_SHOWNORMAL);

end

;

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

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

procedure

TForm1

.

FormCreate(Sender:
TObject);

begin

WebBrowser1

.

Align
:= alTop;

WebBrowser1

.

Navigate(

'http://www.sharejs.com'

);

end

;