Mostrar en la barra de titulo del programa la cantidad de memoria libre de la PC.

[h0ax]

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