EnableExplicit

Define memex.MEMORYSTATUSEX

memex.MEMORYSTATUSEX
memex\dwLength = SizeOf(MEMORYSTATUSEX)
GlobalMemoryStatusEx_(@memex)
MessageRequester("","Größe des virtuellen Speichers: "+Str(memex\ullTotalVirtual/1024/1024)+" MB",0)