Auslastung des Arbeitsspeichers ermitteln Hier wird gezeigt, wie sich Informationen über die Größe und Auslastung des verfügbaren Arbeitsspeichers ermitteln lässt.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  12.561
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 12 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

In unserem nachfolgenden Tipp zeigen wir, wie man Informationen über die Größe und Auslastung des verfügbaren Arbeitsspeichers ermitteln kann.

Erstellen Sie hierzu ein neues Projekt und platzieren auf die Form folgende Steuerelemente:

• Timer1 (Timer-Control)
• Label1, Label2, Label3 (für die Anzeige der RAM-Infos)

Fügen Sie nachfolgenden Code in den Codeteil der Form ein:

Option Explicit
 
' Benötigte API-Deklarationen
Private Declare Sub GlobalMemoryStatus Lib "kernel32" ( _
  lpBuffer As MEMORYSTATUS)
 
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

Private Sub Form_Load()
  ' Timer initialisieren
  Timer1.Interval = 1000
  Timer1.Enabled = True
 
  Timer1_Timer
End Sub

Private Sub Timer1_Timer()
  ' Arbeitsspeicher-Auslastung
  Dim oBuffer As MEMORYSTATUS
 
  With oBuffer
    ' Länge des Puffers
    .dwLength = Len(oBuffer)
 
    ' Infos holen
    GlobalMemoryStatus oBuffer
 
    ' Arbeitsspeicher gesamt
    Label1.Caption = Format$(.dwTotalPhys \ 1024, "0,000") & " KB"
 
    ' Freier Speicher
    Label2.Caption = Format$(.dwAvailPhys \ 1024, "0,000") & " KB"
 
    ' aktuelle Auslastung
    Label3.Caption = CStr(.dwMemoryLoad) & " %"
  End With
End Sub