drag0n's blog

版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://drag0n.blogbus.com/logs/47041139.html

uses shellapi;

procedure TForm1.FormCreate(Sender: TObject);
begin
  LinkLabel1.Caption:='<a href="www.baidu.com" target="_blank">test</a>';
end;

procedure TForm1.LinkLabel1LinkClick(Sender: TObject; const Link: string;
  LinkType: TSysLinkType);
begin
  ShellExecute(Handle,'OPEN',PChar(Link),nil,nil,SW_NORMAL);
end;