Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Obtain some system/hardware information
Message
From
01/10/2002 14:54:09
 
 
To
30/09/2002 15:23:46
Emerson Reed
Folhamatic Tecnologia Em Sistemas
Americana - São Paulo, Brazil
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00706087
Message ID:
00706524
Views:
20
Try this for the memory information.
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))
*&
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
HTH.

>How can I obtain these informations:
>
>- Total amount of memory
>- Total disk space / free disk space
Previous
Reply
Map
View

Click here to load this message in the networking platform