home *** CD-ROM | disk | FTP | other *** search
/ The Final Windows Shareware CD / _.img / winshare / winutil / ha11 / ha.bas < prev    next >
BASIC Source File  |  1992-04-07  |  2KB  |  86 lines
  1. Declare Function LocalInfo Lib "toolhelp.dll" (p As Any, ByVal h As Integer) As Integer
  2. Declare Function LocalFirst Lib "toolhelp.dll" (p As Any, ByVal h As Integer) As Integer
  3. Declare Function LocalNext Lib "toolhelp.dll" (p As Any) As Integer
  4. Declare Function GlobalFirst Lib "toolhelp.dll" (p As Any, ByVal w As Integer) As Integer
  5. Declare Function GlobalNext Lib "toolhelp.dll" (p As Any, ByVal w As Integer) As Integer
  6. Declare Function SystemHeapInfo Lib "toolhelp.dll" (p As Any) As Integer
  7. Declare Function GetVersion Lib "kernel" () As Long
  8.  
  9. Type sSYSHEAPINFO
  10.   dwSize As Long
  11.   wUserFreePercent As Integer
  12.   wGDIFreePercent As Integer
  13.   hUserSegment As Integer
  14.   hGDISegment As Integer
  15. End Type
  16.  
  17. Type sLOCALINFO
  18.   dwSize As Long
  19.   wcItems As Integer
  20. End Type
  21.  
  22. Type sLOCALENTRY
  23.   dwSize As Long
  24.   hHandle As Integer
  25.   wAddress As Integer
  26.   wSize As Integer
  27.   wFlags As Integer
  28.   wcLock As Integer
  29.   wType As Integer
  30.   hHeap As Integer
  31.   wHeapType As Integer
  32.   wNext As Integer
  33. End Type
  34.  
  35. Type sGLOBALENTRY
  36.   dwSize As Long
  37.   dwAddress As Long
  38.   dwBlockSize As Long
  39.   hBlock As Integer
  40.   wcLock As Integer
  41.   wcPageLock As Integer
  42.   wFlags As Integer
  43.   wHeapPresent As Integer
  44.   hOwner As Integer
  45.   wType As Integer
  46.   wData As Integer
  47.   dwNext As Long
  48.   dwNextAlt As Long
  49. End Type
  50.  
  51. Global Const NORMAL_HEAP = 0
  52. Global Const USER_HEAP = 1
  53. Global Const GDI_HEAP = 2
  54.  
  55. Global Const GLOBAL_ALL = 0
  56. Global Const GLOBAL_LRU = 1
  57. Global Const GLOBAL_FREE = 2
  58.  
  59. Global Const GT_UNKNOWN = 0
  60. Global Const GT_DGROUP = 1
  61. Global Const GT_DATA = 2
  62. Global Const GT_CODE = 3
  63. Global Const GT_TASK = 4
  64. Global Const GT_RESOURCE = 5
  65. Global Const GT_MODULE = 6
  66. Global Const GT_FREE = 7
  67. Global Const GT_INTERNAL = 8
  68. Global Const GT_SENTINEL = 9
  69. Global Const GT_BURGERMASTER = 10
  70.  
  71. Global Const LT_NORMAL = 0
  72. Global Const LT_GDI_PEN = 1
  73. Global Const LT_GDI_BRUSH = 2
  74. Global Const LT_GDI_FONT = 3
  75. Global Const LT_GDI_PALETTE = 4
  76. Global Const LT_GDI_BITMAP = 5
  77. Global Const LT_GDI_RGN = 6
  78. Global Const LT_GDI_DC = 7
  79. Global Const LT_GDI_DISABLED_DC = 8
  80. Global Const LT_GDI_METADC = 9
  81. Global Const LT_GDI_METAFILE = 10
  82.  
  83. Global iUserHeap%
  84. Global iGDIHeap%
  85.  
  86.