home *** CD-ROM | disk | FTP | other *** search
/ Shareware Breakthrough: Utilities & Productivity / SharewearBreakthroughUtil_ProdCol.cdr / util / ha / ha.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1992-04-07  |  7.7 KB  |  208 lines
  1. haForm
  2. Heap Alert 1.1
  3. wwwwwwwp
  4. wwwwwwwwwwwp
  5. Form1,
  6. Label5
  7. Label3
  8. Used:
  9. Label8
  10. Free:
  11. Label1
  12. User:
  13.     userCount
  14.     userBytes
  15. userPercent
  16. Label2
  17. gdiCount
  18. gdiBytes
  19. gdiPercent
  20. Label12
  21. Fonts:
  22.     fontCount
  23. sampleTimer
  24. Label13
  25. Bitmaps:
  26. bitmapCount
  27. Label14
  28. dcCount
  29. Label16
  30. Brushes:
  31. brushCount
  32. autoSample
  33. &Auto
  34. Label17
  35. Regions:
  36. regionCount
  37. Label19
  38.     Palettes:
  39. paletteCount
  40. getInfo
  41. &Sample
  42. Label15
  43. Pens:
  44. penCount
  45. Label6
  46. Other:
  47. otherCount
  48. Label18
  49. Metafiles:
  50. metafileCount
  51. Label4
  52. MetaDCs:
  53. metaDCCount
  54. Label7
  55. DisDCs:
  56. disabledDCCount
  57. getInfo_Click
  58.     sUSERINFOh
  59. sGDIINFO
  60. sUSERHEAPINFOF
  61. sGDIHEAPINFO
  62. UserHeapInfo!
  63. GDIHeapInfoq
  64. userPercent
  65. caption
  66. wPercentFreeT
  67. gdiPercentS
  68. dwSize5
  69. sizeUSERHEAPINFO
  70. sizeGDIHEAPINFO
  71. userFreev
  72.     wHeapFree
  73. gdiFreeo
  74. LocalFirst    
  75. sLOCALENTRY
  76. hSegment
  77.     LocalNext|
  78. wType
  79. iFonts
  80. iBitmapsQ
  81. iPens$
  82. iBrushes5
  83. iRegionsc
  84. iMetafiles
  85.     iPalettesQ
  86. LT_GDI_FONT
  87. LT_GDI_|
  88. LT_GDI_BITMAP:
  89.     LT_GDI_DCq
  90. LT_GDI_PEN!
  91. LT_GDI_BRUSH
  92. LT_GDI_REGION
  93. LT_GDI_RGN
  94. LT_GDI_METAFILE
  95. LT_GDI_PALETTE(
  96.     fontCount
  97. bitmapCount-
  98. dcCount
  99. penCount0
  100. brushCount3
  101. regionCountw
  102. metafileCount
  103. paletteCount
  104. sizeLOCALENTRY:
  105. makeLong
  106.     iGDICounth
  107. gdiCount
  108.     userCount
  109. iUSERCount`
  110. autoSample_Click
  111. autoSample
  112. value
  113. sampleTimer
  114. enabled
  115. retrieveData
  116. sampleTimer_Timer
  117. lewTypeo
  118. Form_Click
  119. @    Form_Load5
  120. haForm
  121. mousePointer
  122. screenu
  123. GlobalFirst
  124. GLOBAL_ALL
  125. hOwner
  126. GT_CODEq
  127.     codeCount
  128.     codeBytes
  129. dwBlockSize
  130.     GT_DGROUP+
  131. wHeapPresent
  132.     LocalInfo
  133. hBlock
  134.     wHeapTypeI
  135. GDI_HEAP
  136. wFlags
  137. LF_FREE
  138. wSize
  139.     localHeap
  140. localHeapBytes
  141. hTask
  142. taskMemL
  143. taskAllocs
  144. GlobalNext
  145. sGLOBALENTRY
  146. sLOCALINFO
  147. Elsif
  148.     USER_HEAP
  149. dgiBytes
  150.     userBytes
  151. gdiBytes{
  152. andIf"
  153. iNumGDIHeaps
  154. iNumUserHeapsK
  155. LT_GDI_METADC
  156. iMetaDC
  157. LT_DISABLED_DC
  158. iDisabledDC
  159. metaDCCount
  160. iMetaDCCount
  161. disabledDCCount
  162. iDisabledDCCount
  163. LT_GDI_DISABLED_DC
  164. iOther
  165. LT_OTHER
  166. otherCount
  167.     LT_NORMALl
  168. sSYSTEMHEAPINFO
  169. SystemHeapInfoE
  170. sSYSHEAPINFO
  171. wUserFreePercent
  172. wGDIFreePercent8
  173. hGDISegment
  174. hUserSegment
  175.     iUserHeap&
  176. iGDIHeap
  177. Form_Unload
  178. Cancel
  179. Version
  180. GetVersion!
  181. LT_PEN
  182. check
  183. WindowsVersion/
  184. Major
  185. Minor
  186. brushCount_Click
  187. disabledDCCount_Click
  188. metaDCCount_Click
  189. getInfo_Click
  190. makeLong
  191.  Visual Basic needs unsigned integers!
  192. autoSample_Click
  193. retrieveData
  194.  initialize the sizes of these structures 
  195.  find the User and GDI heaps, but only the first time 
  196.  in 3.0 the heaps are 1 greater than sh.hX
  197.  in 3.1 the heaps are 1 less than sh.hX.
  198.  walk the User heapG
  199.  walk the GDI heap
  200.  for some reason, 3.1 counts metafiles as "other"A
  201.  not sure why these numbers don't come out the same.
  202.  according to the documentation they should.
  203. userPercent.caption = LTrim$(Str$(100-CInt(100 * CSng(ub&) / 65536!))) + "%"
  204. gdiPercent.caption = LTrim$(Str$(100-CInt(100 * CSng(gb&) / 65536!))) + "%""
  205. sampleTimer_Timer
  206. Form_Load
  207. Heap Alert 1.1 Requires at least Windows 3.1 commercial.
  208.