本文整理自网络，侵删。
{$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 导出excel报错：ole error 800a03ec
Delphi xe2 idhttp 获取utf-8编码中文网页
Delphi xe7的android应用设定wifi的有效无效
Delphi中使用内联变量(inline variables) 的5个理由
更多相关阅读请进入《Delphi》频道 >>
