December 1, 2005 - WinTask - GlobalMemoryStatus
' ' GlobalMemoryStatus '
' "kernel32.dll" alias "GlobalMemoryStatus" (lpBuffer as MEMORYSTATUS) ' 'type MEMORYSTATUS ' dwLength as long ' dwMemoryLoad as long ' dwTotalPhys as long ' dwAvailPhys as long ' dwTotalPageFile as long ' dwAvailPageFile as long ' dwTotalVirtual as long ' dwAvailVirtual as long 'end type
dim ptr as unsigned dim ptr2 as unsigned ptr=allocate(32)
ret=External("kernel32.dll","GlobalMemoryStatus",ptr)
ptr2=ptr+4 var=peekinteger(ptr2,4) msgbox("Memory Load % ="+str$(var),,"GlobalMemoryStatus")
ptr2=ptr+8 var=peekinteger(ptr2,4) msgbox("Total Physical Memory ="+str$(var),,"GlobalMemoryStatus")
ptr2=ptr+12 var=peekinteger(ptr2,4) msgbox("Avail Physical Memory ="+str$(var),,"GlobalMemoryStatus")
ptr2=ptr+16 var=peekinteger(ptr2,4) msgbox("Total Page File Size ="+str$(var),,"GlobalMemoryStatus")
ptr2=ptr+20 var=peekinteger(ptr2,4) msgbox("Avail Page File Size ="+str$(var),,"GlobalMemoryStatus")
ptr2=ptr+24 var=peekinteger(ptr2,4) msgbox("Total Virtual ="+str$(var),,"GlobalMemoryStatus")
ptr2=ptr+28 var=peekinteger(ptr2,4) msgbox("Avail Virtual ="+str$(var),,"GlobalMemoryStatus")
|