• Home
 · 
• Windows System Services
 · 
• gives the memory status of your system

gives the memory status of your system

gives the memory status of your system

API Declarations


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




Rate gives the memory status of your system

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Sub command1_click()
   Dim MS As MEMORYSTATUS
   MS.dwLength = Len(MS)
   GlobalMemoryStatus MS
   Dim msg$
   msg = "MEMORY STATUS" + vbCrLf
   msg = msg + "============================" + vbCrLf
   msg = msg + "Loaded memory = " + Format$(MS.dwMemoryLoad, "###,###,###,###") + " % used" + vbCrLf
   msg = msg + "--------------------------------" + vbCrLf
   msg = msg + "Physical memory = " + Format$(MS.dwTotalPhys / 1024, "###,###,###,###") + " Kb" + vbCrLf
   msg = msg + "Free Physical memory = " + Format$(MS.dwAvailPhys / 1024, "###,###,###,###") + " Kb" + vbCrLf
   msg = msg + "--------------------------------" + vbCrLf
   msg = msg + "Paging file = " + Format$(MS.dwTotalPageFile / 1024, "###,###,###,###") + " Kb" + vbCrLf
   msg = msg + "Free Paging file = " + Format$(MS.dwAvailPageFile / 1024, "###,###,###,###") + " Kb" + vbCrLf
   msg = msg + "--------------------------------" + vbCrLf
   msg = msg + "Virtual memory : " + Format$(MS.dwTotalVirtual / 1024, "###,###,###,###") + " Kb" + vbCrLf
   msg = msg + "Free Virtual memory = " + Format$(MS.dwAvailVirtual / 1024, "###,###,###,###") + " Kb"
MsgBox msg
End Sub