XProfan

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