Freien Arbeitsspeicher herausfinden?

[Jilocasin]

Code: Alles auswählen

Procedure.l RAMFree()  ; Gibt zurück wieviel Platz (in Byte) im Arbeitsspeicher zurzeit frei sind.
   Protected Info.MEMORYSTATUS
   Info\dwLength = SizeOf(MEMORYSTATUS)
   GlobalMemoryStatus_(@Info)
   ProcedureReturn Info\dwAvailPhys
EndProcedure

Procedure.l RAMTotal()  ; Gibt die Größe des installierten Arbeitsspeichers zurück.
   Protected Info.MEMORYSTATUS
   Info\dwLength = SizeOf(MEMORYSTATUS)
   GlobalMemoryStatus_(@Info)
   ProcedureReturn Info\dwTotalPhys
EndProcedure

Procedure.l RAMUsed()  ; Gibt zurück wieviel Platz (in Byte) im Arbeitsspeicher zurzeit belegt sind.
   Protected Info.MEMORYSTATUS
   Info\dwLength = SizeOf(MEMORYSTATUS)
   GlobalMemoryStatus_(@Info)
   ProcedureReturn Info\dwTotalPhys-Info\dwAvailPhys
EndProcedure

[Marvin]

Und das ganze geht auch noch mit der Auslagerungsdatei, indem du ein "Phys" durch ein "PageFile" ersetzt (z.B. dwAvailPhys -> dwAvailPageFile).