编辑：说三道四文库 发布时间：2017-08-19 10:06
HTML文档下载
WORD文档下载
PDF文档下载
很简单----------I'm sorry ,我也忘了！
在onclick事件里shellexecute！
超级连接：（Label1.Caption:='http://www.sina.com.cn'）
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(0, Nil, Pchar((Sender as TLabel).Caption), Nil, Nil, SW_NORMAL);
end;
电子邮件：（Label1.Caption:='mailto:zxtyhy@sina.com'）
procedure TForm1.Label2Click(Sender: TObject);
begin
ShellExecute(0, Nil, Pchar('mailto:'+(Sender as TLabel).Caption), Nil, Nil, SW_NORMAL);
end;
1.在uses 中加入: shellapi
2.
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(Form1.Handle,'Open','链接的URL', Nil, Nil, SW_NORMAL);
end;
网上这样的例子很多的，哥们找找嘛！
找不到我发一个给你！
说三道四