home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MEMORY / MEMORY.PRG < prev   
Encoding:
Text File  |  1993-01-27  |  3.2 KB  |  128 lines
  1. *:*****************************************************************************
  2. *:
  3. *: Procedure file: H:\FOXPROW\GOODIES\FOXTOOLS\GDI.PRG
  4. *:         System: GDI
  5. *:         Author: Bruce Braunstein
  6. *:      Copyright (c) 1993, Bruce Braunstein
  7. *:  Last modified: 01/27/93 at 13:41:24
  8. *:
  9. *:  Procs & Fncts: USERRES()
  10. *:               : FREESPACE()
  11. *:               : GDI()
  12. *:
  13. *:          Calls: GDI()              (function  in GDI.PRG)
  14. *:               : USERRES()          (function  in GDI.PRG)
  15. *:               : FREESPACE()        (function  in GDI.PRG)
  16. *:
  17. *:      Documented 13:41:54                                FoxDoc version 3.00a
  18. *:*****************************************************************************
  19. IF ! _windows
  20.    RETURN
  21. ENDIF
  22. z = 1
  23. E = 1
  24. FOR i = 1 TO 100
  25.    
  26.    x = 'i' + ALLTRIM(STR(i))
  27.    
  28.    DEFINE WIND (x) FROM (MOD(i,10)), ;
  29.       (MOD(i,25)+E) TO (MOD(i,10)+ 13)+E, (MOD(i,25)+40+E) double ;
  30.       title x close zoom grow float
  31.    
  32.    
  33.    ACTI WIND (x)
  34.    ? ALLTRIM(STR(gdi())) + ' GDI MEM % '
  35.    ? ALLTRIM(STR(userres())) +  ' USER MEM % '
  36.    ? ALLTRIM(STR(MEMO())) + ' MEMORY FUNC'
  37.    ? ALLTRIM(STR(z)) + ' WINDOW NUM'
  38.    ? ALLTRIM(STR(freespace())) + ' free mem pool'
  39.    
  40.    
  41.    z = z + 1
  42.    
  43.    IF MOD(z,10) = 0
  44.       E = E + 1
  45.    ENDIF
  46. ENDFOR
  47.  
  48. RETURN
  49.  
  50.  
  51. *!*****************************************************************************
  52. *!
  53. *!       Function: GDI
  54. *!
  55. *!      Called by: GDI.PRG                           
  56. *!
  57. *!          Calls: REGFN()            (function  in ?)
  58. *!               : CALLFN()           (function  in ?)
  59. *!
  60. *!*****************************************************************************
  61. FUNCTION gdi
  62. PRIVATE gfsr, percnt
  63. * returns percent of free gdi memory
  64. SET LIBRARY TO SYS(2004)+"foxtools.fll" ADDITIVE
  65.  
  66.  
  67. #DEFINE gfsr_gdiresources      1
  68.  
  69.  
  70.  
  71. gfsr = regfn("GetFreeSystemResources", "I", "I")
  72.  
  73. percnt = callfn(gfsr,gfsr_gdiresources)
  74.  
  75. RETURN percnt
  76.  
  77.  
  78.  
  79. *!*****************************************************************************
  80. *!
  81. *!       Function: USERRES
  82. *!
  83. *!      Called by: GDI.PRG                           
  84. *!
  85. *!          Calls: REGFN()            (function  in ?)
  86. *!               : CALLFN()           (function  in ?)
  87. *!
  88. *!*****************************************************************************
  89. FUNCTION userres
  90. * returns percent of free user memory
  91. SET LIBRARY TO SYS(2004)+"foxtools.fll" ADDITIVE
  92. PRIVATE gfsr, percnt
  93.  
  94.  
  95. #DEFINE gfsr_userresources     2
  96.  
  97.  
  98.  
  99. gfsr = regfn("GetFreeSystemResources", "I", "I")
  100.  
  101. percnt = callfn(gfsr,gfsr_userresources)
  102.  
  103. RETURN percnt
  104.  
  105.  
  106. *!*****************************************************************************
  107. *!
  108. *!       Function: FREESPACE
  109. *!
  110. *!      Called by: GDI.PRG                           
  111. *!
  112. *!          Calls: REGFN()            (function  in ?)
  113. *!               : CALLFN()           (function  in ?)
  114. *!
  115. *!*****************************************************************************
  116. FUNCTION freespace
  117. * returns percent of free user memory
  118. * this is the amount shown in the About Windows help box.
  119. SET LIBRARY TO SYS(2004)+"foxtools.fll" ADDITIVE
  120. PRIVATE gfs, i, amt
  121. gfs = regfn("GetFreeSpace", "I", "L")
  122. i = 0
  123. amt = callfn(gfs,i)
  124.  
  125. RETURN amt
  126.  
  127. *: EOF: GDI.PRG
  128.