Link() 打开网址
uses ShellAPI;
{打开网址}
//调用 Link('www.baidu.com');
procedure Link(URL:string);
begin
ShellExecute(Application.Handle,nil, PChar(URL), 0, 0, SW_SHOWNORMAL);
end;
//调用 Link('www.baidu.com');
procedure Link(URL:string);
begin
ShellExecute(Application.Handle,nil, PChar(URL), 0, 0, SW_SHOWNORMAL);
end;
