Link() 打开网址

 
 
uses ShellAPI;
{打开网址}
//调用 Link('www.baidu.com');
procedure Link(URL:string);
begin
  ShellExecute(Application.Handle,nil, PChar(URL), 0, 0, SW_SHOWNORMAL);
end;





posted @ 2012-07-26 08:50  XE2011  阅读(229)  评论(0编辑  收藏  举报