XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
System: Speicher-Informationen anzeigen
PRFellow-Vorlage
Autor: Thomas Hölzer
Zeigt Speicher-Informationen an
Declare MemStat#

Proc ShowMemoryStatus

    Def GlobalMemoryStatus(1) !KERNEL32,GlobalMemoryStatus
    Def Mbyte(1) Round(Div(&(1),$0100000),0)
    Dim MemStat#,32
    Long MemStat#,0=32
    GlobalMemoryStatus(MemStat#)
    Print Str$(Long(MemStat#,4)),% Speicherauslastung
    Print MByte(Long(MemStat#,8)),MB gesamter physik. Speicher
    Print MByte(Long(MemStat#,12)), MB physik. Speicher frei
    Print MByte(Long(MemStat#,16)), MB max. Größe der Swapdatei
    Print MByte(Long(MemStat#,20 )),MB max. in Swapdatei belegbar
    Print MByte(Long(MemStat#,24)),MB max. virtueller Speicher für Prozess
    Print MByte(Long(MemStat#,28)), MB max. virtueller Speicher für Prozess aktuell verfügbar
    Dispose MemStat#

EndProc

Cls
Decimals 0
ShowMemoryStatus
Waitinput