B4A Library OS Library

Erel said:

Killing other processes doesn't work on most devices.

Click to expand...

XverhelstX said:

Thanks a lot Erel!
Here's some example code:

B4X:

Msgbox(OS.AvailableExternalMemorySize,OS.AvailableInternalMemorySize)
Msgbox(OS.AvailableMemory,OS.Board)
Msgbox(OS.CPUABI,OS.Host)
Msgbox(OS.myPid,OS.myTid)
Msgbox(OS.RunningAppProcesses,"Processes")
Msgbox(OS.ReadCPUinfo,"Processes")
Msgbox(OS.RunningAppProcess,OS.Time)
Msgbox(OS.formatSize(256),"FormatSize")

Msgbox(OS.getRunningServices(10),"Running Services")
Msgbox(OS.getRunningTasks(10),"Running Tasks")
OS.killProcess(OS.myPid)

It works, however, I still have a question:

Using this:

B4X:

Msgbox(OS.RunningAppProcesses,"Processes")

I receive the following information:



How can I 'interpretate' this?
Is it possible to get names, etc out of it?

Thanks

XverhelstX

Click to expand...

os.RunningAppProcesses()

XverhelstX said:

Updated to 1.4.
I hope this is what you are after Cableguy.

Includes:
- density: The logical density of the display.
- densityDpi: The screen density expressed as dots-per-inch.
- heightPixels: The absolute height of the display in pixels.
- scaledDensity: A scaling factor for fonts displayed on the display.
- widthPixels: The absolute width of the display in pixels.
- xdpi :The exact physical pixels per inch of the screen in the X dimension.
- ydpi :The exact physical pixels per inch of the screen in the Y dimension.

I also added physicalScreenWidth and physicalScreenHeight.
= xdpi * widthPixels and ydpi * heightPixels.

Tomas

Click to expand...

XverhelstX said:

Hello everyone,

I present you thé OS Lib. aka. the Operating System Library.:sign0025:
This 'giant' library has around 60+ commands.
Everything is explained in the library itself.

What does it cover:

- Memory size of directories
- Tons of hardware strings (e.g model, device, host, ...)
- A unique, very easy countdown timer with 2 events (easier than timer :sign0103:

B4X:

Dim OS As OperatingSystem
OS.Initialize("OS")
OS.CountDownTimer(1000)

Sub OS_ontick (ms as long)
       toastmessageshow(ms,false)
end sub

Sub OS_onfinish (OS As String)
   Msgbox(OS,"OS Library") 'get the secret message in here ;)
End Sub

- CPU information
- Running services, tasks, sending signals
- Rebooting (and wiping data)
- and a lot more!

Note that it is still in beta and errors may still occur. ( I haven't tested all functions yet.)
Please tell it here when, why, what, etc happened.
It is also possible that I didn't add a certain permission as I can't find them always.

I like feedback as it gives me more motivation.
(now go and make your own task killer :^))


Cheerz!
Tomas

Click to expand...

Dim OS As OperatingSystem : OS.Initialize("OS")
Dim ProcessName, PIDs, NamePIDs, RunningApps As List
ProcessName.Initialize : PIDs.Initialize : NamePIDs.Initialize : RunningApps.Initialize
RunningApps = OS.RunningAppProcessInfo(ProcessName, PIDs, NamePIDs)