Platforms to show: All Mac Windows Linux Cross-Platform

/Win/Windows Process Memory Info


Required plugins for this example: MBS Win Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Win/Windows Process Memory Info

This example is the version from Sun, 17th Mar 2012.

Project "Windows Process Memory Info.xojo_binary_project"
FileTypes
Filetype text
End FileTypes
Class Window1 Inherits Window
Control PushButton1 Inherits PushButton
ControlInstance PushButton1 Inherits PushButton
EventHandler Sub Action() m.Append NewMemoryBlock(10*1024*1024) End EventHandler
End Control
Control PushButton2 Inherits PushButton
ControlInstance PushButton2 Inherits PushButton
EventHandler Sub Action() redim m(-1) End EventHandler
End Control
Control Timer1 Inherits Timer
ControlInstance Timer1 Inherits Timer
EventHandler Sub Action() update End EventHandler
End Control
Control StaticText1 Inherits Label
ControlInstance StaticText1 Inherits Label
End Control
Control StaticText2 Inherits Label
ControlInstance StaticText2 Inherits Label
End Control
Control StaticText3 Inherits Label
ControlInstance StaticText3 Inherits Label
End Control
Control StaticText4 Inherits Label
ControlInstance StaticText4 Inherits Label
End Control
Control StaticText5 Inherits Label
ControlInstance StaticText5 Inherits Label
End Control
Control StaticText6 Inherits Label
ControlInstance StaticText6 Inherits Label
End Control
Control StaticText7 Inherits Label
ControlInstance StaticText7 Inherits Label
End Control
Control StaticText8 Inherits Label
ControlInstance StaticText8 Inherits Label
End Control
Control StaticText9 Inherits Label
ControlInstance StaticText9 Inherits Label
End Control
Control StaticText10 Inherits Label
ControlInstance StaticText10 Inherits Label
End Control
Control ProcessID Inherits Label
ControlInstance ProcessID Inherits Label
End Control
Control PageFaultCount Inherits Label
ControlInstance PageFaultCount Inherits Label
End Control
Control PagefileUsage Inherits Label
ControlInstance PagefileUsage Inherits Label
End Control
Control PeakPagefileUsage Inherits Label
ControlInstance PeakPagefileUsage Inherits Label
End Control
Control QuotaNonPagedPoolUsage Inherits Label
ControlInstance QuotaNonPagedPoolUsage Inherits Label
End Control
Control QuotaPeakNonPagedPoolUsage Inherits Label
ControlInstance QuotaPeakNonPagedPoolUsage Inherits Label
End Control
Control QuotaPagedPoolUsage Inherits Label
ControlInstance QuotaPagedPoolUsage Inherits Label
End Control
Control QuotaPeakPagedPoolUsage Inherits Label
ControlInstance QuotaPeakPagedPoolUsage Inherits Label
End Control
Control WorkingSetSize Inherits Label
ControlInstance WorkingSetSize Inherits Label
End Control
Control PeakWorkingSetSize Inherits Label
ControlInstance PeakWorkingSetSize Inherits Label
End Control
EventHandler Sub Open() update End EventHandler
Protected Sub update() dim w as WindowsProcessMemoryInfoMBS w=new WindowsProcessMemoryInfoMBS PageFaultCount.text=Format(w.PageFaultCount,"0") PagefileUsage.text=Format(w.PagefileUsage,"0") PeakPagefileUsage.text=Format(W.PeakPagefileUsage,"0") PeakWorkingSetSize.text=Format(w.PeakWorkingSetSize,"0") ProcessID.text=Format(w.ProcessID,"0") QuotaNonPagedPoolUsage.text=Format(w.QuotaNonPagedPoolUsage,"0") QuotaPagedPoolUsage.text=Format(w.QuotaPagedPoolUsage,"0") QuotaPeakNonPagedPoolUsage.text=Format(w.QuotaPeakNonPagedPoolUsage,"0") QuotaPeakPagedPoolUsage.text=Format(W.QuotaPeakPagedPoolUsage,"0") WorkingSetSize.text=Format(w.WorkingSetSize,"0") End Sub
Property Protected m() As memoryBlock
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

See also:

The items on this page are in the following plugins: MBS Win Plugin.


The biggest plugin in space...