XProfan

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