跨平台+开源 调用Windows/MacOS/Android/IOS 默认浏览器打开网页的方法

chinacodegear 5月前 852

 非我原创,从网上搜集来的,然后整合了一下,感谢原创者。

 实现 用统一的函数方法,调用系统默认浏览器打开网页,有时候在移动端需要这个功能。

支持Windows/MacOS/Android/IOS .

使用方法: 

uses OpenViewURL; // 引用单元

procedure TForm1.Button1Click(Sender: TObject);

begin

  if  OpenURL(Edit1.Text) then // 打开 给定的 URL

  begin

    Text1.Text := '访问成功';

  end

  else

  begin

    Text1.Text := '访问失败';

  end;

end;


样例 和 封装好的单元 见附件。

再次感谢原创者。

上传的附件:
最新回复 (4)
返回