by Dimitar Madzunkov (3 Submissions)
Category: Windows System Services
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Thu 21st July 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This is Code For a Memory Status Program
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
''''''''''''''''''''''
'
''''
''''''''''''''''''''''
'Created By Dimitar Madzunkov(Macedonia - Gevgelija)
''
'''''''''''''''''''''''''''''
'''''''''''''''''''''''''''
''''''''''''''''''''''''''
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