Перейти к содержанию
  • Регистрация
  • 0
Авторизация  
OnePeople

Все приложения (иконка)

Вопрос

Пытаюсь получить список всех приложений(Работает), но если раскомментировать  //  iconapp.Assign(Surface); то не работает(

Как правильно получить иконку приложения???

procedure TForm1.Image20Click(Sender: TObject);
var
LList: JList;
i, ost:integer;
LApplicationInfo: JApplicationInfo;
iconapp: TBitmap;
Drawable: JDrawable;
Bitmap: JBitmap;
Surface: TBitmapSurface;
AppCount: Integer;
begin
  LList:=GetActivityAppList;
      AppCount:=LList.size - 1;
      if AppCount mod (Round(glAllApp.Width) div Round(glAllApp.ItemWidth))>0 then
      ost:=1 else ost:=0;
      glAllApp.Height:=((AppCount div (Round(glAllApp.Width) div round(glAllApp.ItemWidth)))+ost) *glAllApp.ItemHeight;
      for I := 0 to LList.size - 1 do
        begin
          LApplicationInfo := TJResolveInfo.Wrap(TAndroidHelper.JObjectToID(LList.get(I))).activityInfo.applicationInfo;
          if (LApplicationInfo.flags and TJApplicationInfo.JavaClass.FLAG_SYSTEM) = 0 then
          begin


            Drawable := TAndroidHelper.Context.getPackageManager.getApplicationIcon(LApplicationInfo);
            Bitmap := TJBitmapDrawable.Wrap((Drawable as ILocalObject).GetObjectID).getBitmap;
            Surface := TBitmapSurface.Create;
            JBitmapToSurface(Bitmap, Surface);
              try
             //  iconapp.Assign(Surface);
                except

              end;

             AddApplicationTile(JCharSequenceToStr(TAndroidHelper.Context.getPackageManager.getApplicationLabel(LApplicationInfo)),
             JStringToString( TJResolveInfo.Wrap(TAndroidHelper.JObjectToID(LList.get(I))).activityInfo.packageName),
             iconapp);


          Surface.Free;
          end;

        end;

end;

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Рекомендуемые сообщения

Ответы на этот вопрос пока отсутствуют

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

Авторизация  

  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×
×
  • Создать...