本文整理自网络,侵删。
uses ShellAPI;
procedure TForm1.FormCreate(Sender: TObject);begin LinkLabel1.Caption := '<a href="http://www.1231818.com/">1231818</a>';end;
procedure TForm1.LinkLabel1LinkClick(Sender: TObject; Link: string; LinkType: TSysLinkType);begin ShellExecute(0, nil, PChar(Link), nil, nil, 1);end;
相关阅读 >>
Delphi 利用windows api判断文件共享锁定状态
Delphi 读文件到十六进制的函数(Delphi 7 下可用)
更多相关阅读请进入《Delphi》频道 >>