本文整理自网络,侵删。
uses Androidapi.JNI.GRaphicsContentViewText, Androidapi.Jni, Androidapi.JNI.JavaTypes, Androidapi.Helpers, Androidapi.JNIBridge, Androidapi.JNI.Util, Androidapi.Jni.Provider, Androidapi.Jni.Net, Androidapi.Jni.App;
procedure TForm2.Button3Click(Sender: TObject);var ji: JIntent;begin//打开授权管理 //通知的监听必须有特定的授权没有这个授权,不能接收通知 //该授权还必须是人工点击确认,这点非常重要 //这里是启动手动受权确认功能 ji := TJIntent.JavaClass.init(StringToJString('android.settings.ACTION_NOTIFICATION_LISTENER_SETTINGS')); SharedActivityContext.startActivity(ji); // SharedActivityContext.getSystemService(TJContext.JavaClass.WINDOW_SERVICE); //打开通知监听服务end;
相关阅读 >>
Delphi urldownloadtofile 实现文件下载
Delphi tstringlist utf8编码保存并开启bom
Delphi之tclientsocket和tserversocket使用tcp keepalive心跳机制实现“断网”、"断电"检测
更多相关阅读请进入《Delphi》频道 >>