home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / reschek.exe / RESCHECK.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-01-04  |  1.6 KB  |  56 lines
  1. '===================================================
  2. ' ResCheck - Resource Checker
  3. ' Created by Dan Houck (Compuserve 71441,3227)
  4. '
  5. ' Description: ResCheck monitors the GDI & User heap
  6. ' at 2 second intervals. If either falls below the
  7. ' minimums specified in RESCHECK.INI, a modal dialogue
  8. ' box appears, requiring user acknowledgement.
  9. ' When Icon-ized, a histogram of GDI & User is shown.
  10. ' When not an icon, more info about the environment
  11. ' is shown.
  12. '
  13. ' This program is FreeWare.. Enjoy!
  14. '
  15. ' References:
  16. ' MSJ Sept/Oct 1991 - Article by Paul Yao
  17. '
  18. '====================================================
  19. '**** DTH Visual Basic General Declaration ****
  20. DefInt A-Z
  21.  
  22. Global Const TRUE = -1
  23. Global Const FALSE = 0
  24.  
  25. '**** From WINAPI.TXT ****
  26. Declare Function LoadLibrary Lib "Kernel" (ByVal lpLibFileName As String) As Integer
  27. Declare Sub FreeLibrary Lib "Kernel" (ByVal hLibModule As Integer)
  28.  
  29. Declare Function GlobalSize Lib "Kernel" (ByVal hMem As Integer) As Long
  30. Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags) As Long
  31.  
  32. Declare Function GetWinFlags Lib "Kernel" () As Long
  33.  
  34. Global Const WF_PMODE = &H1
  35. Global Const WF_CPU286 = &H2
  36. Global Const WF_CPU386 = &H4
  37. Global Const WF_CPU486 = &H8
  38. Global Const WF_STANDARD = &H10
  39. Global Const WF_WIN286 = &H10
  40. Global Const WF_ENHANCED = &H20
  41. Global Const WF_WIN386 = &H20
  42. Global Const WF_CPU086 = &H40
  43. Global Const WF_CPU186 = &H80
  44. Global Const WF_LARGEFRAME = &H100
  45. Global Const WF_SMALLFRAME = &H200
  46. Global Const WF_80x87 = &H400
  47.  
  48. '*** ResCheck Specific ****
  49. Global hLibGDI As Integer
  50. Global hLibUser As Integer
  51. Global GDInotified As Integer
  52. Global USERnotified As Integer
  53.  
  54.  
  55.  
  56.