
How to get amount of memory a program is using
|All,
| I am running into an error and I want to be able to write to a
log the
|amount of memory my program is using when it happens. Anyone know
how to do
|this?
|
Here's a quick snapshot sample of how to use GlobalMemoryStatus:
Private Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type
Private Declare Sub GlobalMemoryStatus Lib "kernel32" _
(lpBuffer As MEMORYSTATUS)
Private mMS As MEMORYSTATUS
Private mMemoryUsed As Long
Private mTotalPhysicalMemory As Long
Private mAvailablePhysicalMemory As Long
Private mTotalPagingFile As Long
Private mAvailablePagingFile As Long
Public Sub GetStatus()
mMS.dwLength = Len(mMS)
GlobalMemoryStatus mMS
'fill properties
mMemoryUsed = mMS.dwMemoryLoad
mTotalPhysicalMemory = mMS.dwTotalPhys
mAvailablePhysicalMemory = mMS.dwAvailPhys
mTotalPagingFile = mMS.dwTotalPageFile
mAvailablePagingFile = mMS.dwAvailPageFile
End Sub
;-) Cool
Hasta Luego
Adrian Maull, MCP
(author of the amDeveloper Bar
www.middlebay.com/amware)