如何实现点击一个按钮，打开指定网址浏览器

[scorpio213]

比如我点击一个按钮，跳出浏览器打开百度页面

[Mit1208]

百度搜索一下ShellExcute函数打开网页的用法就可以了.

[ecjtu5208]

这个简单。

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle,'open','http://www.baidu.com',nil,nil,SW_SHOWNORMAL);
end;

[SQLDebug_Fan]

ShellExecute(Handle,'open','http://www.baidu.com',nil,nil,SW_SHOWNORMAL);

正解，如果不想让打开的窗体一直在自己窗体上面，第一个参数传0就可以了。

[gyk120]

ShellExecute(Handle,'open','http://www.baidu.com',nil,nil,SW_SHOWNORMAL);
或者CreateProcess也行，用法是差不多的

[lyhoo163]

ShellExecute(Handle,'open','http://www.baidu.com',nil,nil,SW_SHOWNORMAL);

[xiaowei_001]

ShellExecute(Handle,'open','http://www.baidu.com',nil,nil,SW_SHOWNORMAL);

[xu7613907]

如果不想使用楼上的方法，在Delphi里有webBrowser控件楼主可以试试。

[linghive]

ShellExecute(Handle,'open','http://www.qq.com',nil,nil,SW_SHOWNORMAL);

[likeyrain]

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle,'open','http://www.baidu.com',nil,nil,SW_SHOWNORMAL);
end;

[bllife]

winexec('explorer http:\\www.baidu.com',sw_show);

这个更简单！

[lhs203203]

方法很多都可以实现的