Delphi 界面中如何加入网址连接呢？即点击一个图标或文字就打开浏览器连接指定地址。

Question

Delphi 界面中如何加入网址连接呢？即点击一个图标或文字就打开浏览器连接指定地址。
参考：http://61.188.177.64:8080/xyhg/laketemp/personal_website/main/problem/index.htm 的问题2。

Answer 1

ShellExecute(...pchar('http://...')...SW_SHOWNORMAL);

Answer 2

rouqing(*冰雨&双子座奇缘*) 你回复是什么意思？？如何使用？

Answer 3

前边要use shellapi
ShellExecute(Handle, 'open', PChar('http:\\www.163.com'), nil, nil, SW_SHOW)；

Answer 4

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if EdtWurl.Text='' then
  ShowMessage('请输入正确网址')
  else
  begin
  IEApp:=CreateOleObject('InternetExplorer.Application') ;
  IEApp.Visible:=true;
  IEApp.navigate(EdtWurl.Text);
  StatusBar1.Panels[2].Text:='已连接网站'+'  '+EdtWurl.Text;
  end;
end;

Answer 5

uses shellapi;procedure TForm1.Button3Click(Sender: TObject);
begin
   shellexecute(handle,'open','http://www.eastrise.cn/quick2004/netphone.htm',nil,nil,sw_shownormal);
end;