Con esta función API podrás conocer el estado actual de la memoria de tu PC.
Crea un PRG y agrega el siguiente código:
Declare
GlobalMemoryStatus In kernel32 String @ lpBuffer
lpBuffer = Repli (Chr(0), 250)
= GlobalMemoryStatus (@lpBuffer)
= _display ("This buffer length, in bytes ..........:", 1)
= _display ("Memory in use, % ......................:", 5)
= _display ("Physical memory, in bytes .............:", 9)
= _display ("Physical memory available, in bytes ...:", 13)
= _display ("Committed memory limit, in bytes ......:", 17)
= _display ("Available memory to commit, in bytes ..:", 21)
= _display ("User mode portion..., in bytes ........:", 25)
= _display ("Unreserved/uncommitted memory .........:", 29)
Procedure _display (lcCaption, lnOffs)
? lcCaption +
Trans(buf2dword(Substr(lpBuffer,lnOffs,4)),;
"999,999,999,999,999,999")
Return
Function buf2dword (lcBuffer)
Return;
Asc(Substr(lcBuffer, 1,1)) + ;
Asc(Substr(lcBuffer, 2,1)) * 256 +;
Asc(Substr(lcBuffer, 3,1)) * 65536 +;
Asc(Substr(lcBuffer, 4,1)) * 16777216
Endfunc
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
