home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code2 / printset / global.bas < prev    next >
BASIC Source File  |  1991-07-27  |  2KB  |  62 lines
  1. '  Global Memory Flags
  2. Global Const GMEM_MOVEABLE = &H2
  3. Global Const GMEM_ZEROINIT = &H40
  4. Global Const GHND = (GMEM_MOVEABLE Or GMEM_ZEROINIT)
  5.  
  6. Declare Function CallAddr Lib "CallAddr.dll" (ByVal a As String, ByVal b As String, ByVal c As String, ByVal d As Integer) As Integer
  7. Declare Function GlobalAlloc Lib "Kernel" (ByVal wFlags As Integer, ByVal dwBytes As Long) As Integer
  8. Declare Function GlobalFree Lib "Kernel" (ByVal hMem As Integer) As Integer
  9. Declare Function GlobalLock Lib "Kernel" (ByVal hMem As Integer) As Long
  10. Declare Function GlobalUnlock Lib "Kernel" (ByVal hMem As Integer) As Integer
  11. Declare Function GetProfileString Lib "Kernel" (ByVal lpAppName As String, lpKeyName As Any, lpDefault As Any, ByVal lpReturnedString As String, ByVal nSize As Integer) As Integer
  12. Declare Function LoadLibrary Lib "Kernel" (ByVal lpLibFileName As String) As Integer
  13. Declare Sub FreeLibrary Lib "Kernel" (ByVal hLibModule As Integer)
  14.  
  15.  
  16. Global Const IDC_ARROW = 32512&
  17. Global Const IDC_IBEAM = 32513&
  18. Global Const IDC_WAIT = 32514&
  19. Global Const IDC_CROSS = 32515&
  20. Global Const IDC_UPARROW = 32516&
  21. Global Const IDC_SIZE = 32640&
  22. Global Const IDC_ICON = 32641&
  23. Global Const IDC_SIZENWSE = 32642&
  24. Global Const IDC_SIZENESW = 32643&
  25. Global Const IDC_SIZEWE = 32644&
  26. Global Const IDC_SIZENS = 32645&
  27.  
  28. Declare Function LoadCursor Lib "User" (ByVal hInstance As Integer, ByVal lpCursorName As Any) As Integer
  29. Declare Function SetCursor Lib "User" (ByVal hCursor As Integer) As Integer
  30. Type OFSTRUCT
  31.     cBytes As String * 1
  32.     fFixedDisk As String * 1
  33.     nErrCode As Integer
  34.     reserved As String * 4
  35.     szPathName As String * 128
  36. End Type
  37.  
  38. '  OpenFile() Flags
  39. Global Const OF_READ = &H0
  40. Global Const OF_WRITE = &H1
  41. Global Const OF_READWRITE = &H2
  42. Global Const OF_SHARE_COMPAT = &H0
  43. Global Const OF_SHARE_EXCLUSIVE = &H10
  44. Global Const OF_SHARE_DENY_WRITE = &H20
  45. Global Const OF_SHARE_DENY_READ = &H30
  46. Global Const OF_SHARE_DENY_NONE = &H40
  47. Global Const OF_PARSE = &H100
  48. Global Const OF_DELETE = &H200
  49. Global Const OF_VERIFY = &H400
  50. Global Const OF_CANCEL = &H800
  51. Global Const OF_CREATE = &H1000
  52. Global Const OF_PROMPT = &H2000
  53. Global Const OF_EXIST = &H4000
  54. Global Const OF_REOPEN = &H8000
  55.  
  56. Declare Function OpenFile Lib "Kernel" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Integer) As Integer
  57.  
  58.  
  59. Global Const TRUE = -1
  60. Global Const FALSE = 0
  61.  
  62.