Cantidad de memoria disponible

[h0ax]

Visual Basic

Código: Seleccionar todo

Private Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
End Type
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Private Sub Timer1_Timer()
Dim MemStat As MEMORYSTATUS
GlobalMemoryStatus MemStat
Me.Caption = Str$(MemStat.dwAvailPhys / 1048576) & "  Mb  Libres"
End Sub