https://blog.csdn.net/zisongjia/article/details/69398143
使用了第一种
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;
|