XProfan

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