گرفتن لیست برنامه های نصب شده گوشی با کتابخانه PackageManager2

[Kazem Forghani 2,927]

با سلام خدمت کاربران عزیز ،

در این آموزش قصد داریم برنامه های نصب شده در گوشی رو بگیریم و در یک لیست ویو نشون بدیم.

 

بیسیک4اندروید رو باز می کنیم و به بخش دیزاینز می ریم. حالا در لایوت خودمون یک لیست ویو قرار می دیم و اون رو به پروژه معرفی می کنیم.

لایوت رو با نام Main ذخیره می کنیم.

سپس به این صورت لایوت رو به اکتیویتی معرفی می کنیم:

Activity.LoadLayout("Main")

کتابخانه PackageManager2 رو تیک می زنیم در صورتی که اون رو ندارید در انتهای این تاپیک می تونید دانلود کنید.

در Globals یک متغیر با نام PM از نوع PackageManager2 و یک متغیری با نام Apps از نوع List تعریف می کنیم:

Dim PM As PackageManager2
Dim Apps As List

از این به بعد کدهامون رو توی Activity_Create خواهیم نوشت.

برای استفاده از کتابخانه PackageManager2 باید اون رو ابتدا Initialize کنیم:

PM.Initialize

ما می خوایم لیست اپلیکیشن های نصب شده بگیریم، پس باید از متد GetAllInstalledPackages استفاده کنیم:

Apps.Initialize2(PM.GetAllInstalledPackages)

در کد بالا ما لیست مون رو با لیست پکیج های نصب شده روی گوشی Initialize کردیم. خوب تا اینجا ما لیست پکیج های نصب شده روی گوشی کاربر رو گرفتیم و در لیست خودمون ریختیم. برای نمایش اون در لیست ویو با استفاده از حلقه For به این صورت اقدام می کنیم:

For i = 0 To Apps.Size-1
    Dim Icon As BitmapDrawable = PM.GetApplicationIcon(Apps.Get(i))
    Dim Name As String = PM.GetApplicationName(Apps.Get(i))
    Dim PackageName As String = Apps.Get(i)
    ListView1.AddTwoLinesAndBitmap(Name, PackageName, Icon.Bitmap)
Next

در خط اول ما یک متغیر از نوع BitmapDrawble تعریف کردیم تا آیکون برنامه رو در اون بریزیم.

در خط دوم یک متغیر از نوع String تعریف کردیم تا نام برنامه مربوط به پکیج نیم گرفته شده رو در اون بریزیم.

در خط سوم هم یک متغیر از نوع String تعریف کردیم تا Package Name هایی که گرفته بودیم رو در اون بریزیم.

در آخر هم به به لیست ویو برنامه ها رو اضافه کردیم. ( آرگومان اول: متن لیست ویو که نام برنامه رو دادیم | آرگومان دوم: متن دوم لیست ویو که مساوی با پکیج نیم برنامه قرار دادید | آرگومان سوم: عکس متغیر BitmapDrawble رو گرفتیم که برابر با آیکون برنامه بود. )

 

این هم کل کدهایی که تا به اینجا نوشتیم:

Sub Globals
	Private ListView1 As ListView
	Dim PM As PackageManager2
	Dim Apps As List
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Main")
	
	PM.Initialize
	Apps.Initialize2(PM.GetAllInstalledPackages)
	
	For i = 0 To Apps.Size-1
		Dim Icon As BitmapDrawable = PM.GetApplicationIcon(Apps.Get(i))
		Dim Name As String = PM.GetApplicationName(Apps.Get(i))
		Dim PackageName As String = Apps.Get(i)
		ListView1.AddTwoLinesAndBitmap(Name, PackageName, Icon.Bitmap)
	Next
End Sub

برنامه رو کامپایل کنید تا نتیجه رو مشاهده کنید. خودتون می تونید ظاهر برنامه رو درست کنید و یک پکیج منیجر ساده بسازید. (با همین کتابخانه می شه برنامه رو حذف کرد و ...)

در آخر هم این رو بگم که این کتابخانه امکانات دیگه ای هم داره که داخل تاپیک دیگه آموزشی حتماً براتون قرار خواهم داد.

 

موفق باشید

 

PackageManager2.zip

[nastaran 3]

ممنون از اموزش خوبتون

 

میشه بگین چجوری میشه با این سورس کاری کرد که مخاطب با کلیک رو هربرنامه ای بتونه اونارو ارسال کنه

؟؟