么意思博客

先在uses中加入调用的单元 “shellapi,” 标准的网页地址连接： 标准的EMAIL连接：

先在uses中加入调用的单元 “shellapi,”
标准的网页地址连接：

procedure TForm1.Label7Click(Sender: TObject);  
begin
ShellExecute(handle,nil,pchar('http://www.XXX.com'),nil,nil,sw_shownormal);  
end; 

标准的EMAIL连接：

procedure TForm1.Label8Click(Sender: TObject);  
begin 
ShellExecute(handle,nil,pchar('mailto:mail@XXX.com'),nil,nil,sw_shownormal);  
end;