Delphi用IE浏览器打开网址链接的三种

简单点可以用默认浏览器打开，方法如下：

uses shellapi

procedure TForm1.Button2Click(Sender: TObject);

begin

ShellExecut(Application.Handle, nil, 'http://iisnine.lofter.com', nil, nil, SW_SHOWNORMAL);

end;

IE打开网址链接的方法第一种：

uses SHDocVw;

procedure TForm1.Button4Click(Sender: TObject);

var

IE : OleVariant;

begin

IE := CoInternetExplorer.Create;

IE.Visible := True;

IE.Navigate2('http://iisnine.lofter.com');

end;

第二种：

uses shellapi

procedure TForm1.Button1Click(Sender: TObject);

begin

ShellExecute(Application.Handle, 'open','Iexplore.exe','http://iisnine.lofter.com',nil,SW_SHOWNORMAL);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

ShellExecute(Application.Handle, nil, 'http://iisnine.lofter.com', nil, nil, SW_SHOWNORMAL);

end;

第三种：

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://iisnine.lofter.com');

end;

还可以用WebBrowser控件

procedure TForm1.FormCreate(Sender: TObject);

begin

WebBrowser1.Align := alTop;

WebBrowser1.Navigate('http://iisnine.lofter.com');

end;