Cantidad de memoria disponible
Publicado: Mar, 03 Mar 2026, 23:11
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