Saber Memoria Total y utilizada del pc

Con el Api de Windows ...

LOCAL lcBuffer, lcMemUsage, lnTotalPhysical, lnTotalVirtual,
lnAvailableVirtual, lnTotalPage, lnAvailablePage, lnAvailablePhysical

DECLARE INTEGER GlobalMemoryStatus IN Win32API STRING @lcBuffer

lcBuffer = REPLICATE(CHR(0),32)
= GlobalMemoryStatus(@lcBuffer)
lnMemUsage = CharToBin(SUBSTR(lcBuffer,5,4))
lnTotalPhysical = CharToBin(SUBSTR(lcBuffer, 9,4))
lnAvailablePhysical = CharToBin(SUBSTR(lcBuffer,13,4))
lnTotalPage = CharToBin(SUBSTR(lcBuffer,17,4))
lnAvailablePage = CharToBin(SUBSTR(lcBuffer,21,4))
lnTotalVirtual = CharToBin(SUBSTR(lcBuffer,25,4))
lnAvailableVirtual = CharToBin(SUBSTR(lcBuffer,29,4))

? lnMemUsage
? lnTotalPhysical
? lnAvailablePhysical
? lnTotalPage
? lnTotalVirtual

RETURN

FUNCTION CharToBin(pcWord)
LOCAL lnCount, lnWord
lnWord = 0
FOR lnCount = 1 TO LEN(pcWord)
lnWord = lnWord + (ASC(SUBSTR(pcWord, lnCount, 1)) * (2 ^ (8 *
(lnCount - 1))))
ENDFOR
RETURN lnWord
ENDFUNC


David Amador Tapia
Webmaster de "La Web de Davphantom"
www.davphantom.net
Cartagena. Colombia
Tel (5) 6621502 - 6581523


"Rubens Follenti" escribió en el mensaje
news:

Hola a todos:
Necesito saber si hay alguna funcion del fox para

saber

que memoria Total y cuanto de esa memoria esta ocupada de la pc.


desde ya muchas gracias.

rubens