home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / RDBLIB.ZIP / GLOBAL.BAS < prev    next >
BASIC Source File  |  1992-06-14  |  6KB  |  124 lines
  1. ' Windows function declarations
  2.  
  3. Declare Function GetModuleUsage Lib "KERNEL" (ByVal InstanceID%) As Integer
  4.  
  5. '******************************************************
  6. '           DLL Declarations                          *
  7. '******************************************************
  8. Type POINTAPI
  9.     x As Integer
  10.     y As Integer
  11. End Type
  12.  
  13. Declare Function LoadMenu Lib "User" (ByVal hInstance As Integer, ByVal lpString As String) As Integer
  14. Declare Function GetMenu Lib "User" (ByVal hWnd As Integer) As Integer
  15. Declare Function SetMenu Lib "User" (ByVal hWnd As Integer, ByVal hMenu As Integer) As Integer
  16. Declare Function HiliteMenuItem Lib "User" (ByVal hWnd As Integer, ByVal hMenu As Integer, ByVal wIDHiliteItem As Integer, ByVal wHilite As Integer) As Integer
  17. Declare Function GetMenuString Lib "User" (ByVal hMenu As Integer, ByVal wIDItem As Integer, ByVal lpString As String, ByVal nMaxCount As Integer, ByVal wFlag As Integer) As Integer
  18. Declare Function GetMenuState Lib "User" (ByVal hMenu As Integer, ByVal wId As Integer, ByVal wFlags As Integer) As Integer
  19. Declare Sub DrawMenuBar Lib "User" (ByVal hWnd As Integer)
  20. Declare Function GetSystemMenu Lib "User" (ByVal hWnd As Integer, ByVal bRevert As Integer) As Integer
  21. Declare Function GetSubMenu Lib "User" (ByVal hMenu As Integer, ByVal nPos As Integer) As Integer
  22. Declare Function GetMenuItemID Lib "User" (ByVal hMenu As Integer, ByVal nPos As Integer) As Integer
  23. Declare Function GetMenuItemCount Lib "User" (ByVal hMenu As Integer) As Integer
  24. Declare Function TrackPopupMenu Lib "User" (ByVal hMenu As Integer, ByVal wFlags As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nReserved As Integer, ByVal hWnd As Integer, lpReserved As Any) As Integer
  25. Declare Function InsertMenu Lib "User" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer, ByVal wIDNewItem As Integer, ByVal lpNewItem As Any) As Integer
  26. Declare Function AppendMenu Lib "User" (ByVal hMenu As Integer, ByVal wFlags As Integer, ByVal wIDNewItem As Integer, ByVal lpNewItem As Any) As Integer
  27. Declare Function ModifyMenu Lib "User" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer, ByVal wIDNewItem As Integer, ByVal lpString As Any) As Integer
  28. Declare Function RemoveMenu Lib "User" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
  29. Declare Function DeleteMenu Lib "User" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
  30.  
  31. Declare Function ExitWindows Lib "User" (ByVal dwReserved As Long, wReturnCode) As Integer
  32. Declare Function GetDeviceCaps Lib "GDI" (ByVal hDC As Integer, ByVal nIndex As Integer) As Integer
  33. Declare Function GetActiveWindow Lib "User" () As Integer
  34. Declare Sub GetCursorPos Lib "User" (lpPoint As POINTAPI)
  35. Declare Function GetSystemMetrics Lib "User" (ByVal nIndex As Integer) As Integer
  36. Declare Function GetFocus Lib "User" () As Integer
  37. Declare Function SetActiveWindow Lib "User" (ByVal hWnd As Integer) As Integer
  38. Declare Function GetModuleHandle Lib "Kernel" (ByVal lpModuleName As String) As Integer
  39. Declare Function GetModuleFileName Lib "Kernel" (ByVal hModule As Integer, ByVal lpFilename As String, ByVal nSize As Integer) As Integer
  40. Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags As Integer) As Long
  41.  
  42. 'Indices for GetSystemMetrics
  43. Global Const SM_CXSIZE = 30
  44. Global Const SM_CYSIZE = 31
  45.  
  46. 'Indices for GetDeviceCaps
  47. Global Const HORZRES = 8    '  Horizontal width in pixels
  48. Global Const VERTRES = 10   '  Vertical width in pixels
  49.  
  50. 'Menu flags for Add/Check/EnableMenuItem()
  51. Global Const MF_INSERT = &H0
  52. Global Const MF_CHANGE = &H80
  53. Global Const MF_APPEND = &H100
  54. Global Const MF_DELETE = &H200
  55. Global Const MF_REMOVE = &H1000
  56.  
  57. Global Const MF_BYCOMMAND = &H0
  58. Global Const MF_BYPOSITION = &H400
  59.  
  60. Global Const MF_SEPARATOR = &H800
  61.  
  62. Global Const MF_ENABLED = &H0
  63. Global Const MF_GRAYED = &H1
  64. Global Const MF_DISABLED = &H2
  65.  
  66. Global Const MF_UNCHECKED = &H0
  67. Global Const MF_CHECKED = &H8
  68. Global Const MF_USECHECKBITMAPS = &H200
  69.  
  70. Global Const MF_STRING = &H0
  71. Global Const MF_BITMAP = &H4
  72. Global Const MF_OWNERDRAW = &H100
  73.  
  74. Global Const MF_POPUP = &H10
  75. Global Const MF_MENUBARBREAK = &H20
  76. Global Const MF_MENUBREAK = &H40
  77.  
  78. Global Const MF_UNHILITE = &H0
  79. Global Const MF_HILITE = &H80
  80.  
  81. Global Const MF_SYSMENU = &H2000
  82. Global Const MF_HELP = &H4000
  83. Global Const MF_MOUSESELECT = &H8000
  84.  
  85. '  Menu item resource format
  86. Type MENUITEMTEMPLATEHEADER
  87.     versionNumber As Integer
  88.     offset As Integer
  89. End Type
  90.  
  91. Type MENUITEMTEMPLATE
  92.     mtOption As Integer
  93.     mtID As Integer
  94.     mtString As Long
  95. End Type
  96.  
  97. Global Const MF_END = &H80
  98.  
  99. '  System Menu Command Values
  100. Global Const SC_SIZE = &HF000
  101. Global Const SC_MOVE = &HF010
  102. Global Const SC_MINIMIZE = &HF020
  103. Global Const SC_MAXIMIZE = &HF030
  104. Global Const SC_NEXTWINDOW = &HF040
  105. Global Const SC_PREVWINDOW = &HF050
  106. Global Const SC_CLOSE = &HF060
  107. Global Const SC_VSCROLL = &HF070
  108. Global Const SC_HSCROLL = &HF080
  109. Global Const SC_MOUSEMENU = &HF090
  110. Global Const SC_KEYMENU = &HF100
  111. Global Const SC_ARRANGE = &HF110
  112. Global Const SC_RESTORE = &HF120
  113. Global Const SC_TASKLIST = &HF130
  114.  
  115. '******************************************************
  116. '*          OpenFile Modes                            *
  117. '******************************************************
  118. Global Const REPLACEFILE = 0
  119. Global Const READFILE = 1
  120. Global Const APPENDFILE = 2
  121. Global Const RANDOMFILE = 3
  122. Global Const BINARYFILE = 4
  123.  
  124.