{$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;

调用方法：