-
Постов
2 517 -
Зарегистрирован
-
Посещение
-
Победитель дней
265
Весь контент Равиль Зарипов (ZuBy)
-
Ставлю по стандартным путям ничего не меняя, не было никаких проблем эти времена давно прошли, как внедрили Unicode
-
видимо андроид
-
1) InputDialog 2) своё окошко с TEdit
-
для понимания что такое стили, посетите курсы Ярослава. правда незнаю актуальны они еще или нет
-
попробуйте вот так, переписал var List: JList; // Iterator: JIterator; ActivityServiceManager: JObject; FActivityManager: JActivityManager; ri: JActivityManager_RunningServiceInfo; i: Integer; begin ActivityServiceManager := TAndroidHelper.Context.getSystemService(TJContext.JavaClass.ACTIVITY_SERVICE); FActivityManager := TJActivityManager.Wrap((ActivityServiceManager as ILocalObject).GetObjectID); List := FActivityManager.getRunningServices(MAXINT); // Iterator := List.Iterator; for i := 0 to List.size - 1 do begin ri := TJActivityManager_RunningServiceInfo.Wrap((List.get(i) as ILocalObject).GetObjectID); with ListView1.Items.Add do begin Text := JStringToString(ri.service.getPackageName); Detail := JStringToString(ri.service.getClassName); end; end; { while Iterator.hasNext do begin ri := TJActivityManager_RunningServiceInfo.Wrap((Iterator.next as ILocalObject).GetObjectID); with ListView1.Items.Add do begin Text := JStringToString(ri.service.getPackageName); Detail := JStringToString(ri.service.getClassName); end; end; }
-
нет, не нужен рут (в коде нет запроса рут, без запроса не будет предоставлен доступ) он же написал NULL, значит проверить procedure TForm9.Button2Click(Sender: TObject); var List: JList; Iterator: JIterator; ActivityServiceManager: JObject; FActivityManager: JActivityManager; ri: JActivityManager_RunningServiceInfo; begin ActivityServiceManager := TAndroidHelper.Context.getSystemService(TJContext.JavaClass.ACTIVITY_SERVICE); FActivityManager := TJActivityManager.Wrap((ActivityServiceManager as ILocalObject).GetObjectID); List := FActivityManager.getRunningServices(MAXINT); Log.d('---> ' + List.size.ToString); Iterator := List.Iterator; Log.d('---> ' + List.Iterator.hasNext.ToString(true)); exit; while Iterator.hasNext do begin ri := TJActivityManager_RunningServiceInfo.Wrap((Iterator.next as ILocalObject).GetObjectID); with ListView1.Items.Add do begin Text := JStringToString(ri.service.getPackageName); Detail := JStringToString(ri.service.getClassName); end; end; end; лог предоставите? только не через монитор, а через встроенный
-
всего-то нужны было дописать procedure TForm9.Button2Click(Sender: TObject); // Androidapi.JNI.GraphicsContentViewText, Androidapi.JNI.JavaTypes, // Androidapi.JNIBridge, Androidapi.JNI.App, Androidapi.Helpers, Androidapi.JNI.ActivityManager; var ActivityServiceManager: JObject; FActivityManager: JActivityManager; List: JList; Iterator: JIterator; ri: JActivityManager_RunningServiceInfo; begin ActivityServiceManager := TAndroidHelper.Context.getSystemService(TJContext.JavaClass.ACTIVITY_SERVICE); FActivityManager := TJActivityManager.Wrap((ActivityServiceManager as ILocalObject).GetObjectID); List := FActivityManager.getRunningServices(MAXINT); Iterator := List.Iterator; while Iterator.hasNext do begin ri := TJActivityManager_RunningServiceInfo.Wrap((Iterator.next as ILocalObject).GetObjectID); with ListView1.Items.Add do begin Text := JStringToString(ri.service.getPackageName); Detail := JStringToString(ri.service.getClassName); end; end; end; ri.service.getPackageName - показывает родителя сервиса (т.е. приложение)
-
function TForm1.ServicesStarted: String; var ActivityServiceManager: JObject; FActivityManager : JActivityManager; List: JList; Iterator: JIterator; ri: JActivityManager_RunningServiceInfo; s: String; begin s:=''; Result:=''; ActivityServiceManager := TAndroidHelper.Context.getSystemService(TJContext.JavaClass.ACTIVITY_SERVICE); FActivityManager := TJActivityManager.Wrap((ActivityServiceManager as ILocalObject).GetObjectID); List := FActivityManager.getRunningServices(MAXINT); Iterator := List.iterator; while Iterator.hasNext do begin ri := TJActivityManager_RunningServiceInfo.Wrap((Iterator.next as ILocalObject).GetObjectID); s := s+ JStringToString(ri.service.getClassName) + ' |'; end; Result:=s; end; чем этот код не устроил? у меня все показало