Rubrik: System/Windows · Sonstiges | VB-Versionen: VB5, VB6 | 11.06.07 |
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: | Views: 12.576 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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