谢谢!

解决方案 »

  1.   

    引用SHELLAPI单元  
    ShellExecute(0,'open','http://www.SINA.com',nil,nil,sw_ShowNormal);
      

  2.   

    在uses加上ShellAPI,在事件中写以下代码:ShellExecute(0,'open','http://www.SINA.com',nil,nil,sw_ShowNormal);
      

  3.   

    uses shellapi;procedure TForm1.Button1Click(Sender: TObject);
    begin
      ShellExecute(0,'open','IEXPLORE.EXE','www.eastrise.cn/quick2004',nil,sw_ShowNormal);
    end;
      

  4.   

    最简单的办法,两行代码搞定:
    1. 在窗体上放一个TActionList
    2. 双击它,添加一个Standard Action:TBrowseUrl,命名为actBrowseUrl
    3. 代码:
    actBrowseUrl.Url = 'http://community.csdn.net';
    actBrowseUrl.Execute;这样就可以喽!
    不知道我说的清楚不清楚:)