誰可以教我在delphi中實現超聯接(100分)

誰可以教我在delphi中實現超聯接﹐就象在网頁上的那樣

(1)使用Delphi提供的UrlMon单元中的函数HlinkNavigateString，如
HlinkNavigateString（Nil,'http://www.borland.com'）;
必须在uses子句中加入UrlMon。

(2)使用API函数ShellExecute，必须在uses子句中加入ShellAPI。以下代码可使得
名为mylabel的label控件在被点击时直接启动缺省浏览器浏览borland公司的主页：

procedure TForm1.mylabelClick(Sender:TObject);
begin
ShellExecute(0,Nil,'www.borland.com',Nil,Nil,SW_NORMAL);
end;

shellexecute(0,'open','http://url',nil,nil,SW_SHOW);

Thanks for everyone,

接受答案了.