home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / system / bug_de / buggy.bas next >
Encoding:
BASIC Source File  |  1995-01-10  |  1.2 KB  |  39 lines
  1. Option Explicit
  2. '=============================================
  3. ' Global Constants Section
  4. '=============================================
  5. ' WindowState
  6. Global Const NORMAL = 0    ' 0 - Normal
  7. Global Const MINIMIZED = 1 ' 1 - Minimized
  8. Global Const MAXIMIZED = 2 ' 2 - Maximized
  9.  
  10. ' GetFreeSystemResources Constants
  11. Global Const GFSR_SYSTEMRESOURCES = 0
  12. Global Const GFSR_GDIRESOURCES = 1
  13. Global Const GFSR_USERRESOURCES = 2
  14.  
  15. ' Windows flag bitmasks
  16. Global Const WF_PMODE = &H1
  17. Global Const WF_STANDARD = &H10
  18. Global Const WF_ENHANCED = &H20
  19.  
  20. '=============================================
  21. ' API/DLL Procedure Declaration Section
  22. '=============================================
  23. ' Windows API functions
  24. Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags As Integer) As Long
  25. Declare Function GetFreeSystemResources Lib "User" (ByVal fuSysResource As Integer) As Integer
  26. Declare Function GetWinFlags Lib "Kernel" () As Long
  27. Declare Function GetVersion Lib "Kernel" () As Long
  28.  
  29. '=============================================
  30. ' Type Definition Declaration Section
  31. '=============================================
  32. Type SizeStruct
  33.     Top As Single
  34.     Left As Single
  35.     Height As Single
  36.     Width As Single
  37. End Type
  38.  
  39.