حجم برنامه ی نصب شده

[hosseinkarimian 100]

سلام دوستان چطوری میشه مثلا پکیج نیم برنامه ای رو بدیم و حجم اون برنامه که روی گوشی نصب شده رو نشون بده

 

 

[hosseinkarimian 100]

در 1 ساعت قبل، maxnet13 گفته است :

سلام دوستان چطوری میشه مثلا پکیج نیم برنامه ای رو بدیم و حجم اون برنامه که روی گوشی نصب شده رو نشون بده

 

 

سلام دوستان خودم آخر فهمیدم یکم خلاقیت به خرج دادم .

 

Sub getsiseapp(Package As String) As Long
	Dim r As Reflector
	Dim obj2 As Reflector
	Dim sourceDir As String
	Dim size_app As Long
	r.Target = r.GetContext
	r.Target = r.RunMethod("getPackageManager")
	'get PacakgeInfo
	r.Target = r.RunMethod4("getPackageInfo", Array As Object(Package, 0x00001000), _
      Array As String("java.lang.String", "java.lang.int"))

	obj2.Target=r.GetField("applicationInfo")
	
	sourceDir=obj2.GetField("sourceDir")
	size_app=File.Size(sourceDir,"")
	
	Return size_app
End Sub

و استفاده از تابع

 

	ToastMessageShow(getsiseapp("packagename"),False)