Delphi 跨平台打开网址链接

本文整理自网络，侵删。

 
{$IF DEFINED(MSWINDOWS)}
uses shellapi;
{$ENDIF}

{$IF DEFINED(ANDROID)}
uses Androidapi.Helpers, Androidapi.JNI.Os,Androidapi.JNI.GraphicsContentViewText, FMX.Helpers.Android, Androidapi.JNI.Net;
{$ENDIF}

procedure THeaderFooterForm.openurl(UrlStr: string);
//调用系统WEB显示网页
{$IF DEFINED(ANDROID)}
var
    intent: JIntent;
begin
    //安卓下调用WEB显示指定网页
    intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW,
        StrToJURI(UrlStr));
    SharedActivityContext.startActivity(intent);
{$ELSEIF DEFINED(MSWINDOWS)}
begin
    //Win
  //  ShellExecute(0, nil, PChar(UrlStr), nil, nil, SW_SHOWDEFAULT);
{$ELSE}
begin
{$IFDEF IOS}
    SharedApplication.OpenUrl(StrToNSUrl(UrlStr));
{$ELSE}
    _system(MarshaledAString(TEncoding.Default.GetBytes('open ' + UrlStr)));
{$ENDIF}
{$ENDIF}
end;


调用方法：
openurl('http://www.1231818.com/');
 

相关阅读 >>

理解Delphi中sender用法

Delphi结合winrar生成自解压文件

Delphi webbrowser设置自己定义user-agent

Delphi 如何遍历整个硬盘的各个目录，就像windows的查找功能那样

Delphi中tframe组件的使用

Delphi webbrowser 去除滚动条和边框

Delphi 随意将函数执行权限提高到ring0源代码

Delphi idhttp控件学习(图片下载)

Delphi 反转字符串方法2

Delphi 10 seattle中录制音频

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 跨平台打开网址链接