Mostrar en la barra de titulo del programa la cantidad de memoria libre de la PC.
Publicado: Dom, 01 Mar 2026, 18:11
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