uses
ShellApi;procedure TAboutForm.Label1Click(....)
begin
ShellExecute(Handle,nil,Pchar('http://www.csdn.net'),nil,nil,SW_ShowNormal);
end;
ShellApi;procedure TAboutForm.Label1Click(....)
begin
ShellExecute(Handle,nil,Pchar('http://www.csdn.net'),nil,nil,SW_ShowNormal);
end;
procedure TAboutForm.Label1Click(....)
var
s:pchar;
begin
s:="mailto:[email protected]";
ShellExeCute(handle,nil,S,nil,nil,SW_ShowNoRmal);
end