Link() 打开网址

 

 

uses ShellAPI;

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

通过 为知笔记 发布