• Home
 · 
• Windows API Call/Explanation
 · 
• Get the amount of physical and virtual memory free,used using GlobalMemoryStatus API

Get the amount of physical and virtual memory free,used using GlobalMemoryStatus API

Get the amount of physical and virtual memory free,used using GlobalMemoryStatus API

API Declarations


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)



Rate Get the amount of physical and virtual memory free,used using GlobalMemoryStatus API

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim xmem As MEMORYSTATUS
Dim amem, pmem, avirt, tvirt As Long
GlobalMemoryStatus xmem
amem = xmem.dwAvailPhys
pmem = xmem.dwTotalPhys
avirt = xmem.dwAvailVirtual
tvirt = xmem.dwTotalVirtual
MsgBox "Total Physical Memory is " & Format(pmem / 1024, "###,###,###") & " KB" & Chr(13) & "Available Physical Memory is " & Format(amem / 1024, "###,###,###") & " KB" & _
Chr(13) & Chr(13) & "Total Virtual Memory is " & Format(tvirt / 1024, "###,###,###") & " KB" & Chr(13) & "Available Virtual Memory is " & Format(avirt / 1024, "###,###,###") & " KB"
End
End Sub