XProfan

Def @GlobalMemoryStatus(1) !"KERNEL32","GlobalMemoryStatus"
DEcimals 2
Declare MEMORYSTATUS#
DIM MEMORYSTATUS#,32
Long MEMORYSTATUS#,0=32
@GlobalMemoryStatus(MEMORYSTATUS#)
ADDSTRING "Speicher in Gebrauch: "+@Str$(@Long(MEMORYSTATUS#,4))+"%"
ADDSTRING "Physikalischer Speicher gesammt: "+@Str$(((@Long(MEMORYSTATUS#,8)/1024)/1024))+"MB"
ADDSTRING "Freier physikalischer Speicher: "+@Str$(((@Long(MEMORYSTATUS#,12)/1024)/1024))+"MB"
ADDSTRING "Größe der Auslagerungsdatei: "+@Str$(((@Long(MEMORYSTATUS#,16)/1024)/1024))+"MB"
ADDSTRING "Freier Speicher in der Auslagerungsdatei: "+@Str$(((@Long(MEMORYSTATUS#,20)/1024)/1024))+"MB"
ADDSTRING "Gesammter virtueller Speicher: "+@Str$(((@Long(MEMORYSTATUS#,24)/1024)/1024))+"MB"
ADDSTRING "Freier virtueller Speicher: "+@Str$(((@Long(MEMORYSTATUS#,28)/1024)/1024))+"MB"
Dispose MEMORYSTATUS#
@Editbox("Speicherdaten",1)