Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Obtain some system/hardware information
Message
 
 
À
30/09/2002 15:23:46
Emerson Reed
Folhamatic Tecnologia Em Sistemas
Americana - São Paulo, Brésil
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00706087
Message ID:
00706524
Vues:
21
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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform