Platforms to show: All Mac Windows Linux Cross-Platform
Required plugins for this example: MBS Util Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Util/SystemInformation
This example is the version from Sun, 17th Mar 2012.
Project "SystemInformation.xojo_binary_project"
FileTypes
Filetype text
End FileTypes
Class Window1 Inherits Window
Control ListBox1 Inherits Listbox
ControlInstance ListBox1 Inherits Listbox
End Control
EventHandler Sub Open()
dim d as Double
d=SystemInformationMBS.PhysicalRAM
ListBox1.AddRow "Total physical RAM: "+Format(D/1024.0/1024.0,"0")+" MegaBytes"
d=SystemInformationMBS.AvailableRAM
ListBox1.AddRow "Available physical RAM: "+Format(D/1024.0/1024.0,"0")+" MegaBytes"
ListBox1.AddRow "User name: "+SystemInformationMBS.Username
ListBox1.AddRow "Computer name: "+SystemInformationMBS.Computername
ListBox1.AddRow "OS Name: "+SystemInformationMBS.OSName
ListBox1.AddRow "OS Version: "+SystemInformationMBS.OSVersionString
ListBox1.AddRow "Mac Serial Number: "+SystemInformationMBS.MacSerialNumber
ListBox1.AddRow "Mac Model: "+SystemInformationMBS.MacModel
ListBox1.AddRow "Mac UUID: "+SystemInformationMBS.MacUUID
ListBox1.AddRow "Mac Address: "+SystemInformationMBS.MACAddressString
ListBox1.AddRow "Mac VRAM Size: "+format(SystemInformationMBS.MacVRAMSize/1024.0/1024.0,"0")+" MegaBytes"
if SystemInformationMBS.MacHasHardwareAcceleratedCoreImage then
ListBox1.AddRow "Mac has Hardware accelerated CoreImage: true"
else
ListBox1.AddRow "Mac has Hardware accelerated CoreImage: true"
end if
End EventHandler
End Class
MenuBar MenuBar1
MenuItem UntitledMenu1 = ""
MenuItem FileMenu = "&File"
MenuItem FileQuit = "Quit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem UntitledMenu0 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "Clear"
End MenuBar
Class App Inherits Application
End Class
End Project
The items on this page are in the following plugins: MBS Util Plugin.