home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
WINDOWS
/
UTILS
/
HA11.ZIP
/
HA.BAS
next >
Wrap
BASIC Source File
|
1992-04-07
|
2KB
|
86 lines
Declare Function LocalInfo Lib "toolhelp.dll" (p As Any, ByVal h As Integer) As Integer
Declare Function LocalFirst Lib "toolhelp.dll" (p As Any, ByVal h As Integer) As Integer
Declare Function LocalNext Lib "toolhelp.dll" (p As Any) As Integer
Declare Function GlobalFirst Lib "toolhelp.dll" (p As Any, ByVal w As Integer) As Integer
Declare Function GlobalNext Lib "toolhelp.dll" (p As Any, ByVal w As Integer) As Integer
Declare Function SystemHeapInfo Lib "toolhelp.dll" (p As Any) As Integer
Declare Function GetVersion Lib "kernel" () As Long
Type sSYSHEAPINFO
dwSize As Long
wUserFreePercent As Integer
wGDIFreePercent As Integer
hUserSegment As Integer
hGDISegment As Integer
End Type
Type sLOCALINFO
dwSize As Long
wcItems As Integer
End Type
Type sLOCALENTRY
dwSize As Long
hHandle As Integer
wAddress As Integer
wSize As Integer
wFlags As Integer
wcLock As Integer
wType As Integer
hHeap As Integer
wHeapType As Integer
wNext As Integer
End Type
Type sGLOBALENTRY
dwSize As Long
dwAddress As Long
dwBlockSize As Long
hBlock As Integer
wcLock As Integer
wcPageLock As Integer
wFlags As Integer
wHeapPresent As Integer
hOwner As Integer
wType As Integer
wData As Integer
dwNext As Long
dwNextAlt As Long
End Type
Global Const NORMAL_HEAP = 0
Global Const USER_HEAP = 1
Global Const GDI_HEAP = 2
Global Const GLOBAL_ALL = 0
Global Const GLOBAL_LRU = 1
Global Const GLOBAL_FREE = 2
Global Const GT_UNKNOWN = 0
Global Const GT_DGROUP = 1
Global Const GT_DATA = 2
Global Const GT_CODE = 3
Global Const GT_TASK = 4
Global Const GT_RESOURCE = 5
Global Const GT_MODULE = 6
Global Const GT_FREE = 7
Global Const GT_INTERNAL = 8
Global Const GT_SENTINEL = 9
Global Const GT_BURGERMASTER = 10
Global Const LT_NORMAL = 0
Global Const LT_GDI_PEN = 1
Global Const LT_GDI_BRUSH = 2
Global Const LT_GDI_FONT = 3
Global Const LT_GDI_PALETTE = 4
Global Const LT_GDI_BITMAP = 5
Global Const LT_GDI_RGN = 6
Global Const LT_GDI_DC = 7
Global Const LT_GDI_DISABLED_DC = 8
Global Const LT_GDI_METADC = 9
Global Const LT_GDI_METAFILE = 10
Global iUserHeap%
Global iGDIHeap%