by Nidhi (2 Submissions)
Category: Windows API Call/Explanation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 30th July 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Give us Complete Memory Status
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
Private Sub Command1_Click()
Dim memstat As MEMORYSTATUS
Call GlobalMemoryStatus(memstat)
Label1.Caption = Format(memstat.dwAvailPageFile)
Label2.Caption = Format(memstat.dwAvailPhys)
Label3.Caption = Format(memstat.dwAvailVirtual)
Label4.Caption = Format(memstat.dwLength)
Label5.Caption = Format(memstat.dwMemoryLoad)
Label6.Caption = Format(memstat.dwTotalPageFile)
Label7.Caption = Format(memstat.dwTotalPhys)
Label8.Caption = Format(memstat.dwTotalVirtual)
End Sub