home *** CD-ROM | disk | FTP | other *** search
/ Wacky Windows Stuff... / WACKY.iso / rackcode / win31ext.txt < prev    next >
Text File  |  1992-10-20  |  30KB  |  812 lines
  1. ' ------------------------------------------------------------------------
  2. '
  3. '    WIN31EXT.TXT -- Windows 3.1 API Declarations for Visual Basic
  4. '
  5. '              Copyright (C) 1992 Microsoft Corporation
  6. '
  7. '
  8. '  This file contains the Const, Type, and Declare statements for
  9. '  Windows 3.1 APIs.  If you only want to reference Windows 3.0 APIs,
  10. '  use WIN30API.TXT.
  11. '
  12. '  You must use this file together with WIN30API.TXT in Visual Basic
  13. '  if you want the references to match up properly.
  14. '
  15. '  You have a royalty-free right to use, modify, reproduce and distribute
  16. '  this file (and/or any modified version) in any way you find useful,
  17. '  provided that you agree that Microsoft has no warranty, obligation or
  18. '  liability for its contents.  Refer to the Microsoft Windows Programmer's
  19. '  Reference for further information.
  20. '
  21. '*************************** Windows 3.1 Extensions ***************************
  22. ' Window 3.1 commands to pass WinHelp()
  23. Global Const HELP_CONTENTS = &H3     ' Display Help for a particular topic
  24. Global Const HELP_SETCONTENTS = &H5  ' Display Help contents topic
  25. Global Const HELP_CONTEXTPOPUP = &H8 ' Display Help topic in popup window
  26. Global Const HELP_FORCEFILE = &H9    ' Ensure correct Help file is displayed
  27. Global Const HELP_COMMAND = &H102    ' Execute Help macro
  28. Global Const HELP_PARTIALKEY = &H105 ' Display topic found in keyword list
  29. Global Const HELP_SETWINPOS = &H203  ' Display and position Help window
  30.  
  31. Declare Function GetFreeSystemResources Lib "User" (ByVal fuSysResource As Integer) As Integer
  32.  
  33. Global Const GFSR_SYSTEMRESOURCES = &H0000
  34. Global Const GFSR_GDIRESOURCES = &H0001
  35. Global Const GFSR_USERRESOURCES = &H0002
  36.  
  37. Declare Sub LogError Lib "Kernel" (ByVal uErr As Integer, lpvInfo As Any)
  38.  
  39.  
  40. ' ***** LogParamError/LogError values *****
  41.  
  42. ' Error modifier bits 
  43. Global Const ERR_WARNING = &H8000
  44. Global Const ERR_PARAM = &H4000
  45.  
  46. Global Const ERR_SIZE_MASK = &H3000
  47. Global Const ERR_BYTE = &H1000
  48. Global Const ERR_WORD = &H2000
  49. Global Const ERR_DWORD = &H3000
  50.  
  51.  
  52. ' ***** LogParamError() values *****
  53.  
  54. ' Generic parameter values 
  55. Global Const ERR_BAD_VALUE = &H6001
  56. Global Const ERR_BAD_FLAGS = &H6002
  57. Global Const ERR_BAD_INDEX = &H6003
  58. Global Const ERR_BAD_DVALUE = &H7004
  59. Global Const ERR_BAD_DFLAGS = &H7005
  60. Global Const ERR_BAD_DINDEX = &H7006
  61. Global Const ERR_BAD_PTR = &H7007
  62. Global Const ERR_BAD_FUNC_PTR = &H7008
  63. Global Const ERR_BAD_SELECTOR = &H6009
  64. Global Const ERR_BAD_STRING_PTR = &H700a
  65. Global Const ERR_BAD_HANDLE = &H600b
  66.  
  67. ' KERNEL parameter errors 
  68. Global Const ERR_BAD_HINSTANCE = &H6020
  69. Global Const ERR_BAD_HMODULE = &H6021
  70. Global Const ERR_BAD_GLOBAL_HANDLE = &H6022
  71. Global Const ERR_BAD_LOCAL_HANDLE = &H6023
  72. Global Const ERR_BAD_ATOM = &H6024
  73. Global Const ERR_BAD_HFILE = &H6025
  74.  
  75. ' USER parameter errors 
  76. Global Const ERR_BAD_HWND = &H6040
  77. Global Const ERR_BAD_HMENU = &H6041
  78. Global Const ERR_BAD_HCURSOR = &H6042
  79. Global Const ERR_BAD_HICON = &H6043
  80. Global Const ERR_BAD_HDWP = &H6044
  81. Global Const ERR_BAD_CID = &H6045
  82. Global Const ERR_BAD_HDRVR = &H6046
  83.  
  84. ' GDI parameter errors 
  85. Global Const ERR_BAD_COORDS = &H7060
  86. Global Const ERR_BAD_GDI_OBJECT = &H6061
  87. Global Const ERR_BAD_HDC = &H6062
  88. Global Const ERR_BAD_HPEN = &H6063
  89. Global Const ERR_BAD_HFONT = &H6064
  90. Global Const ERR_BAD_HBRUSH = &H6065
  91. Global Const ERR_BAD_HBITMAP = &H6066
  92. Global Const ERR_BAD_HRGN = &H6067
  93. Global Const ERR_BAD_HPALETTE = &H6068
  94. Global Const ERR_BAD_HMETAFILE = &H6069
  95.  
  96.  
  97. ' ***** LogError() values *****
  98.  
  99. ' KERNEL errors 
  100. Global Const ERR_GALLOC = &H0001
  101. Global Const ERR_GREALLOC = &H0002
  102. Global Const ERR_GLOCK = &H0003
  103. Global Const ERR_LALLOC = &H0004
  104. Global Const ERR_LREALLOC = &H0005
  105. Global Const ERR_LLOCK = &H0006
  106. Global Const ERR_ALLOCRES = &H0007
  107. Global Const ERR_LOCKRES = &H0008
  108. Global Const ERR_LOADMODULE = &H0009
  109.  
  110. ' USER errors 
  111. Global Const ERR_CREATEDLG = &H0040
  112. Global Const ERR_CREATEDLG2 = &H0041
  113. Global Const ERR_REGISTERCLASS = &H0042
  114. Global Const ERR_DCBUSY = &H0043
  115. Global Const ERR_CREATEWND = &H0044
  116. Global Const ERR_STRUCEXTRA = &H0045
  117. Global Const ERR_LOADSTR = &H0046
  118. Global Const ERR_LOADMENU = &H0047
  119. Global Const ERR_NESTEDBEGINPAINT = &H0048
  120. Global Const ERR_BADINDEX = &H0049
  121. Global Const ERR_CREATEMENU = &H004a
  122.  
  123. ' GDI errors 
  124. Global Const ERR_CREATEDC = &H0080
  125. Global Const ERR_CREATEMETA = &H0081
  126. Global Const ERR_DELOBJSELECTED = &H0082
  127. Global Const ERR_SELBITMAP = &H0083
  128.  
  129. ' Debugging support (DEBUG SYSTEM ONLY) 
  130. Type WINDEBUGINFO
  131.     flags As Integer
  132.     dwOptions As Long
  133.     dwFilter As Long
  134.     achAllocModule As String * 8
  135.     dwAllocBreak As Long
  136.     dwAllocCount As Long
  137. End Type
  138.  
  139. Declare Function GetWinDebugInfo Lib "Kernel" (lpwdi As WINDEBUGINFO, ByVal flags As Integer) As Integer
  140. Declare Function SetWinDebugInfo Lib "Kernel" (lpwdi As WINDEBUGINFO) As Integer
  141. Declare Sub DebugOutput Lib "Kernel" (flags As Integer, ByVal lpszFmt As String)
  142.  
  143. ' WINDEBUGINFO flags values 
  144. Global Const WDI_OPTIONS = &H0001
  145. Global Const WDI_FILTER = &H0002
  146. Global Const WDI_ALLOCBREAK = &H0004
  147.  
  148. ' dwOptions values 
  149. Global Const DBO_CHECKHEAP = &H0001
  150. Global Const DBO_BUFFERFILL = &H0004
  151. Global Const DBO_DISABLEGPTRAPPING = &H0010
  152. Global Const DBO_CHECKFREE = &H0020
  153. Global Const DBO_SILENT = &H8000
  154. Global Const DBO_TRACEBREAK = &H2000
  155. Global Const DBO_WARNINGBREAK = &H1000
  156. Global Const DBO_NOERRORBREAK = &H0800
  157. Global Const DBO_NOFATALBREAK = &H0400
  158. Global Const DBO_INT3BREAK = &H0100
  159.  
  160. ' DebugOutput flags values 
  161. Global Const DBF_TRACE = &H0000
  162. Global Const DBF_WARNING = &H4000
  163. Global Const DBF_ERROR = &H8000
  164. Global Const DBF_FATAL = &Hc000
  165.  
  166. ' dwFilter values 
  167. Global Const DBF_KERNEL = &H1000
  168. Global Const DBF_KRN_MEMMAN = &H0001
  169. Global Const DBF_KRN_LOADMODULE = &H0002
  170. Global Const DBF_KRN_SEGMENTLOAD = &H0004
  171. Global Const DBF_USER = &H0800
  172. Global Const DBF_GDI = &H0400
  173. Global Const DBF_MMSYSTEM = &H0040
  174. Global Const DBF_PENWIN = &H0020
  175. Global Const DBF_APPLICATION = &H0008
  176. Global Const DBF_DRIVER = &H0010
  177.  
  178. Global Const EW_REBOOTSYSTEM = &H43
  179.  
  180. Declare Function ExitWindowsExec Lib "User" (ByVal lpszExe As String, ByVal lpszParams As String) As Integer
  181. Declare Function IsBadReadPtr Lib "Kernel" (ByVal lp As String, ByVal cb As Integer) As Integer
  182. Declare Function IsBadWritePtr Lib "Kernel" (ByVal lp As String, ByVal cb As Integer) As Integer
  183. Declare Function IsBadStringPtr Lib "Kernel" (ByVal lpsz As String, ByVal cchMax As Integer) As Integer
  184. Declare Function IsTask Lib "Kernel" (ByVal htask As Integer) As Integer
  185.  
  186. Global Const OBM_UPARROWI = 32737
  187. Global Const OBM_DNARROWI = 32736
  188. Global Const OBM_RGARROWI = 32735
  189. Global Const OBM_LFARROWI = 32734
  190.  
  191. Declare Function lstrcpyn Lib "Kernel" (ByVal lpszString1 As String, ByVal lpszString2 As String, ByVal cChars As Integer) As String
  192. Declare Function IsDBCSLeadByte Lib "Kernel" (ByVal bTestChar As Integer) As Integer
  193.  
  194. Type SIZE
  195.     cx As Integer
  196.     cy As Integer
  197. End Type
  198.  
  199. ' Drawing bounds accumulation APIs 
  200. Declare Function SetBoundsRect Lib "GDI" (ByVal hdc As Integer, lprcBounds As RECT, ByVal flags As Integer) As Integer
  201. Declare Function GetBoundsRect Lib "GDI" (ByVal hdc As Integer, lprcBounds As RECT, ByVal flags As Integer) As Integer
  202.  
  203. Global Const DCB_RESET = &H0001
  204. Global Const DCB_ACCUMULATE = &H0002
  205. Global Const DCB_DIRTY = DCB_ACCUMULATE
  206. Global Const DCB_SET = (DCB_RESET Or DCB_ACCUMULATE)
  207. Global Const DCB_ENABLE = &H0004
  208. Global Const DCB_DISABLE = &H0008
  209.  
  210. Declare Function SetWindowOrgEx Lib "GDI" (ByVal hdc As Integer, ByVal nX As Integer, ByVal nY As Integer, lpPoint As POINTAPI) As Integer
  211. Declare Function GetWindowOrgEx Lib "GDI" (ByVal hdc As Integer, lpPoint As POINTAPI) As Integer
  212. Declare Function SetWindowExtEx Lib "GDI" (ByVal hdc As Integer, ByVal nX As Integer, ByVal nY As Integer, lpSize As SIZE) As Integer
  213. Declare Function GetWindowExtEx Lib "GDI" (ByVal hdc As Integer, lpSize As SIZE) As Integer
  214. Declare Function OffsetWindowOrgEx Lib "GDI" (ByVal hdc As Integer, ByVal nX As Integer, ByVal nY As Integer, lpPoint As POINTAPI) As Integer
  215. Declare Function ScaleWindowExtEx% Lib "GDI" (ByVal hdc%, ByVal nXnum%,  ByVal nXdenom%, ByVal nYnum%, ByVal nYdenom%, lpSize As SIZE)
  216. Declare Function SetViewportExtEx Lib "GDI" (ByVal hdc As Integer, ByVal nX As Integer, ByVal nY As Integer, lpSize As SIZE) As Integer
  217. Declare Function GetViewportExtEx Lib "GDI" (ByVal hdc As Integer, lpSize As SIZE) As Integer
  218. Declare Function SetViewportOrgEx Lib "GDI" (ByVal hdc As Integer, ByVal nX As Integer, ByVal nY As Integer, lpPoint As POINTAPI) As Integer
  219. Declare Function GetViewportOrgEx Lib "GDI" (ByVal hdc As Integer, lpPoint As POINTAPI) As Integer
  220. Declare Function OffsetViewportOrgEx Lib "GDI" (ByVal hdc As Integer, ByVal nX As Integer, ByVal nY As Integer, lpPoint As POINTAPI) As Integer
  221. Declare Function ScaleViewportExtEx% Lib "GDI" (ByVal hdc%, ByVal nXnum%, ByVal nXdenom%, ByVal nYnum%, ByVal nYdenom%, lpSize As SIZE)
  222.  
  223. Global Const COLOR_INACTIVECAPTIONTEXT = 19
  224. Global Const COLOR_BTNHIGHLIGHT = 20
  225.  
  226. Declare Function GetBrushOrgEx Lib "GDI" (ByVal hdc As Integer, lpPoint As POINTAPI) As Integer
  227. Declare Function MoveToEx Lib "GDI" (ByVal hdc As Integer, ByVal x As Integer, ByVal y As Integer, lpPoint As POINTAPI) As Integer
  228. Declare Function GetCurrentPositionEx Lib "GDI" (ByVal hdc As Integer, lpPoint As POINTAPI) As Integer
  229. Declare Function GetTextExtentPoint Lib "GDI" (ByVal hdc As Integer, ByVal lpszString As String, ByVal cbString As Integer, lpSize As SIZE) As Integer
  230.  
  231. Global Const OUT_TT_PRECIS = 4
  232. Global Const OUT_DEVICE_PRECIS = 5
  233. Global Const OUT_RASTER_PRECIS = 6
  234. Global Const OUT_TT_ONLY_PRECIS = 7
  235.  
  236. Global Const CLIP_LH_ANGLES = &H10
  237. Global Const CLIP_TT_ALWAYS = &H20
  238. Global Const CLIP_EMBEDDED = &H80
  239.  
  240. Declare Function GetAspectRatioFilterEx Lib "GDI" (ByVal hdc As Integer, lpAspectRatio As SIZE) As Integer
  241.  
  242. Global Const TMPF_TRUETYPE = &H04
  243.  
  244. Type PANOSE
  245.     bFamilyType As String * 1
  246.     bSerifStyle As String * 1
  247.     bWeight As String * 1
  248.     bProportion As String * 1
  249.     bContrast As String * 1
  250.     bStrokeVariation As String * 1
  251.     bArmStyle As String * 1
  252.     bLetterform As String * 1
  253.     bMidline As String * 1
  254.     bXHeight As String * 1
  255. End Type
  256.  
  257. Type OUTLINETEXTMETRIC
  258.     otmSize As Integer
  259.     otmTextMetrics As TEXTMETRIC
  260.     otmFiller As String * 1
  261.     otmPanoseNumber As PANOSE
  262.     otmfsSelection As Integer
  263.     otmfsType As Integer
  264.     otmsCharSlopeRise As Integer
  265.     otmsCharSlopeRun As Integer
  266.     otmItalicAngle As Integer
  267.     otmEMSquare As Integer
  268.     otmAscent As Integer
  269.     otmDescent As Integer
  270.     otmLineGap As Integer
  271.     otmsCapEmHeight As Integer
  272.     otmsXHeight As Integer
  273.     otmrcFontBox As RECT
  274.     otmMacAscent As Integer
  275.     otmMacDescent As Integer
  276.     otmMacLineGap As Integer
  277.     otmusMinimumPPEM As Integer
  278.     otmptSubscriptSize As POINTAPI
  279.     otmptSubscriptOffset As POINTAPI
  280.     otmptSuperscriptSize As POINTAPI
  281.     otmptSuperscriptOffset As POINTAPI
  282.     otmsStrikeoutSize As Integer
  283.     otmsStrikeoutPosition As Integer
  284.     otmsUnderscorePosition As Integer
  285.     otmsUnderscoreSize As Integer
  286.     otmpFamilyName As Long
  287.     otmpFaceName As Long
  288.     otmpStyleName As Long
  289.     otmpFullName As Long
  290. End Type
  291.  
  292. Declare Function GetOutlineTextMetrics Lib "GDI" (ByVal hdc As Integer, ByVal cbData As Integer, lpotm As OUTLINETEXTMETRIC) As Integer
  293.  
  294. ' Structure passed to FONTENUMPROC 
  295. ' NOTE: NEWTEXTMETRIC is the same as TEXTMETRIC plus 4 new fields 
  296. Type NEWTEXTMETRIC
  297.     tmHeight As Integer
  298.     tmAscent As Integer
  299.     tmDescent As Integer
  300.     tmInternalLeading As Integer
  301.     tmExternalLeading As Integer
  302.     tmAveCharWidth As Integer
  303.     tmMaxCharWidth As Integer
  304.     tmWeight As Integer
  305.     tmItalic As String * 1
  306.     tmUnderlined As String * 1
  307.     tmStruckOut As String * 1
  308.     tmFirstChar As String * 1
  309.     tmLastChar As String * 1
  310.     tmDefaultChar As String * 1
  311.     tmBreakChar As String * 1
  312.     tmPitchAndFamily As String * 1
  313.     tmCharSet As String * 1
  314.     tmOverhang As Integer
  315.     tmDigitizedAspectX As Integer
  316.     tmDigitizedAspectY As Integer
  317.     ntmFlags As Long
  318.     ntmSizeEM As Integer
  319.     ntmCellHeight As Integer
  320.     ntmAvgWidth As Integer
  321. End Type
  322.  
  323. ' ntmFlags field flags 
  324. Global Const NTM_REGULAR = &H00000040&
  325. Global Const NTM_BOLD = &H00000020&
  326. Global Const NTM_ITALIC = &H00000001&
  327.  
  328. Global Const LF_FULLFACESIZE = 64
  329.  
  330. Global Const TRUETYPE_FONTTYPE = &H0004
  331.  
  332. Declare Function GetFontData& Lib "GDI" (ByVal hdc%, ByVal dwTable&, ByVal dwOffset&, ByVal lpvBuffer$, ByVal cbData&)
  333. Declare Function CreateScalableFontResource% Lib "GDI" (ByVal fHidden%, ByVal lpszResourceFile$, ByVal lpszFontFile$, ByVal lpszCurrentPath$)
  334.  
  335. Type GLYPHMETRICS
  336.     gmBlackBoxX As Integer
  337.     gmBlackBoxY As Integer
  338.     gmptGlyphOrigin As POINTAPI
  339.     gmCellIncX As Integer
  340.     gmCellIncY As Integer
  341. End Type
  342.  
  343. Type FIXED
  344.     fract As Integer
  345.     value As Integer
  346. End Type
  347.  
  348. Type MAT2
  349.     eM11 As FIXED
  350.     eM12 As FIXED
  351.     eM21 As FIXED
  352.     eM22 As FIXED
  353. End Type
  354.  
  355. Declare Function GetGlyphOutline& Lib "GDI" (ByVal hdc%, ByVal uChar%, ByVal fuFormat%, lpgm As GLYPHMETRICS, ByVal cbBuffer&, ByVal lpBuffer$, lpmat2 As MAT2)
  356.  
  357. ' GetGlyphOutline constants 
  358. Global Const GGO_METRICS = 0
  359. Global Const GGO_BITMAP = 1
  360. Global Const GGO_NATIVE = 2
  361.  
  362. Global Const TT_POLYGON_TYPE = 24
  363.  
  364. Global Const TT_PRIM_LINE = 1
  365. Global Const TT_PRIM_QSPLINE = 2
  366.  
  367. Type POINTFX
  368.     x As FIXED
  369.     y As FIXED
  370. End Type
  371.  
  372. Type TTPOLYCURVE
  373.     wType As Integer
  374.     cpfx As Integer
  375.     apfx As POINTFX
  376. End Type
  377.  
  378. Type TTPOLYGONHEADER
  379.     cb As Long
  380.     dwType As Long
  381.     pfxStart As POINTFX
  382. End Type
  383.  
  384. Type ABC
  385.     abcA As Integer
  386.     abcB As Integer
  387.     abcC As Integer
  388. End Type
  389.  
  390. Declare Function GetCharABCWidths Lib "GDI" (ByVal hdc As Integer, ByVal uFirstChar As Integer, ByVal uLastChar As Integer, lpabc As ABC) As Integer
  391.  
  392. Type KERNINGPAIR
  393.     wFirst As Integer
  394.     wSecond As Integer
  395.     iKernAmount As Integer
  396. End Type
  397.  
  398. Declare Function GetKerningPairs Lib "GDI" (ByVal hdc As Integer, ByVal cPairs As Integer, lpkrnpair As KERNINGPAIR) As Integer
  399.  
  400. Type RASTERIZER_STATUS
  401.     nSize As Integer
  402.     wFlags As Integer
  403.     nLanguageID As Integer
  404. End Type
  405.  
  406. ' bits defined in wFlags of RASTERIZER_STATUS 
  407. Global Const TT_AVAILABLE = &H0001
  408. Global Const TT_ENABLED = &H0002
  409.  
  410. Declare Function GetRasterizerCaps Lib "GDI" (lpraststat As RASTERIZER_STATUS, ByVal cb As Integer) As Integer
  411. Declare Function SetBitmapDimensionEx Lib "GDI" (ByVal hbm As Integer, ByVal nX As Integer, ByVal nY As Integer, lpSize As SIZE) As Integer
  412. Declare Function GetBitmapDimensionEx Lib "GDI" (ByVal hBitmap As Integer, lpDimension As SIZE) As Integer
  413. Declare Function SetMetaFileBitsBetter Lib "GDI" (ByVal hmt As Integer) As Integer
  414.  
  415. Type DOCINFO
  416.     cbSize As Integer
  417.     lpszDocName As Long
  418.     lpszOutput As Long
  419. End Type
  420.  
  421. Declare Function StartDoc Lib "GDI" (ByVal hdc As Integer, lpdi As DOCINFO) As Integer
  422. Declare Function StartPage Lib "GDI" (ByVal hdc As Integer) As Integer
  423. Declare Function EndPage Lib "GDI" (ByVal hdc As Integer) As Integer
  424. Declare Function EndDocAPI Lib "GDI" Alias "EndDoc" (ByVal hdc As Integer) As Integer
  425. Declare Function AbortDoc Lib "GDI" (ByVal hdc As Integer) As Integer
  426. Declare Function SpoolFile Lib "GDI" (ByVal lpszPrinter As String, ByVal lpszPort As String, ByVal lpszJob As String, ByVal lpszFile As String) As Integer
  427.  
  428. Global Const SM_CXDOUBLECLK = 36
  429. Global Const SM_CYDOUBLECLK = 37
  430. Global Const SM_CXICONSPACING = 38
  431. Global Const SM_CYICONSPACING = 39
  432. Global Const SM_MENUDROPALIGNMENT = 40
  433. Global Const SM_PENWINDOWS = 41
  434. Global Const SM_DBCSENABLED = 42
  435.  
  436. Declare Function SystemParametersInfo Lib "User" (ByVal uAction As Integer, ByVal uParam As Integer, lpvParam As Any, ByVal fuWinIni As Integer) As Integer
  437.  
  438. Global Const SPI_GETBEEP = 1
  439. Global Const SPI_SETBEEP = 2
  440. Global Const SPI_GETMOUSE = 3
  441. Global Const SPI_SETMOUSE = 4
  442. Global Const SPI_GETBORDER = 5
  443. Global Const SPI_SETBORDER = 6
  444. Global Const SPI_GETKEYBOARDSPEED = 10
  445. Global Const SPI_SETKEYBOARDSPEED = 11
  446. Global Const SPI_LANGDRIVER = 12
  447. Global Const SPI_ICONHORIZONTALSPACING = 13
  448. Global Const SPI_GETSCREENSAVETIMEOUT = 14
  449. Global Const SPI_SETSCREENSAVETIMEOUT = 15
  450. Global Const SPI_GETSCREENSAVEACTIVE = 16
  451. Global Const SPI_SETSCREENSAVEACTIVE = 17
  452. Global Const SPI_GETGRIDGRANULARITY = 18
  453. Global Const SPI_SETGRIDGRANULARITY = 19
  454. Global Const SPI_SETDESKWALLPAPER = 20
  455. Global Const SPI_SETDESKPATTERN = 21
  456. Global Const SPI_GETKEYBOARDDELAY = 22
  457. Global Const SPI_SETKEYBOARDDELAY = 23
  458. Global Const SPI_ICONVERTICALSPACING = 24
  459. Global Const SPI_GETICONTITLEWRAP = 25
  460. Global Const SPI_SETICONTITLEWRAP = 26
  461. Global Const SPI_GETMENUDROPALIGNMENT = 27
  462. Global Const SPI_SETMENUDROPALIGNMENT = 28
  463. Global Const SPI_SETDOUBLECLKWIDTH = 29
  464. Global Const SPI_SETDOUBLECLKHEIGHT = 30
  465. Global Const SPI_GETICONTITLELOGFONT = 31
  466. Global Const SPI_SETDOUBLECLICKTIME = 32
  467. Global Const SPI_SETMOUSEBUTTONSWAP = 33
  468. Global Const SPI_SETICONTITLELOGFONT = 34
  469. Global Const SPI_GETFASTTASKSWITCH = 35
  470. Global Const SPI_SETFASTTASKSWITCH = 36
  471.  
  472. ' SystemParametersInfo flags 
  473. Global Const SPIF_UPDATEINIFILE = &H0001
  474. Global Const SPIF_SENDWININICHANGE = &H0002
  475.  
  476. Declare Function GetMessageExtraInfo Lib "User" () As Long
  477. Declare Function GetQueueStatus Lib "User" (ByVal fuFlags As Integer) As Long
  478.  
  479. ' GetQueueStatus flags 
  480. Global Const QS_KEY = &H0001
  481. Global Const QS_MOUSEMOVE = &H0002
  482. Global Const QS_MOUSEBUTTON = &H0004
  483. Global Const QS_MOUSE = (QS_MOUSEMOVE Or QS_MOUSEBUTTON)
  484. Global Const QS_POSTMESSAGE = &H0008
  485. Global Const QS_TIMER = &H0010
  486. Global Const QS_PAINT = &H0020
  487. Global Const QS_SENDMESSAGE = &H0040
  488.  
  489. Global Const QS_ALLINPUT = &H007f
  490.  
  491.  
  492. ' ***** Power management *****
  493.  
  494. Global Const WM_POWER = &H0048
  495.  
  496. ' wParam for WM_POWER window message and DRV_POWER driver notification 
  497. Global Const PWR_OK = 1
  498. Global Const PWR_FAIL = -1
  499. Global Const PWR_SUSPENDREQUEST = 1
  500. Global Const PWR_SUSPENDRESUME = 2
  501. Global Const PWR_CRITICALRESUME = 3
  502.  
  503. Global Const GCW_ATOM = -32
  504.  
  505. Global Const WS_EX_TOPMOST = &H00000008&
  506. Global Const WS_EX_ACCEPTFILES = &H00000010&
  507. Global Const WS_EX_TRANSPARENT = &H00000020&
  508.  
  509. Type WINDOWPLACEMENT
  510.     length As Integer
  511.     flags As Integer
  512.     showCmd As Integer
  513.     ptMinPosition As POINTAPI
  514.     ptMaxPosition As POINTAPI
  515.     rcNormalPosition As RECT
  516. End Type
  517.  
  518. Global Const WPF_SETMINPOSITION = &H0001
  519. Global Const WPF_RESTORETOMAXIMIZED = &H0002
  520.  
  521. Declare Function GetWindowPlacement Lib "User" (ByVal hwnd As Integer, lpwndpl As WINDOWPLACEMENT) As Integer
  522. Declare Function SetWindowPlacement Lib "User" (ByVal hwnd As Integer, lpwndpl As WINDOWPLACEMENT) As Integer
  523.  
  524. Global Const WM_WINDOWPOSCHANGING = &H0046
  525. Global Const WM_WINDOWPOSCHANGED = &H0047
  526.  
  527. ' WM_WINDOWPOSCHANGING/CHANGED struct pointed to by lParam 
  528. Type WINDOWPOS
  529.     hwnd As Integer
  530.     hwndInsertAfter As Integer
  531.     x As Integer
  532.     y As Integer
  533.     cx As Integer
  534.     cy As Integer
  535.     flags As Integer
  536. End Type
  537.  
  538. Declare Sub MapWindowPoints Lib "User" (ByVal hwndFrom As Integer, ByVal hwndTo As Integer, lppt As POINTAPI, ByVal cPoints As Integer)
  539. Declare Function GetDCEx Lib "User" (ByVal hwnd As Integer, ByVal hrgnclip As Integer, ByVal fdwOptions As Long) As Integer
  540.  
  541. Global Const DCX_WINDOW = &H00000001&
  542. Global Const DCX_CACHE = &H00000002&
  543. Global Const DCX_CLIPCHILDREN = &H00000008&
  544. Global Const DCX_CLIPSIBLINGS = &H00000010&
  545. Global Const DCX_PARENTCLIP = &H00000020&
  546. Global Const DCX_EXCLUDERGN = &H00000040&
  547. Global Const DCX_INTERSECTRGN = &H00000080&
  548. Global Const DCX_LOCKWINDOWUPDATE = &H00000400&
  549. Global Const DCX_USESTYLE = &H00010000&
  550.  
  551. Declare Function LockWindowUpdate Lib "User" (ByVal hwndLock As Integer) As Integer
  552. Declare Function RedrawWindow Lib "User" (ByVal hwnd As Integer, lprcUpdate As RECT, ByVal hrgnUpdate As Integer, ByVal fuRedraw As Integer) As Integer
  553.  
  554. Global Const RDW_INVALIDATE = &H0001
  555. Global Const RDW_INTERNALPAINT = &H0002
  556. Global Const RDW_ERASE = &H0004
  557. Global Const RDW_VALIDATE = &H0008
  558. Global Const RDW_NOINTERNALPAINT = &H0010
  559. Global Const RDW_NOERASE = &H0020
  560. Global Const RDW_NOCHILDREN = &H0040
  561. Global Const RDW_ALLCHILDREN = &H0080
  562. Global Const RDW_UPDATENOW = &H0100
  563. Global Const RDW_ERASENOW = &H0200
  564. Global Const RDW_FRAME = &H0400
  565. Global Const RDW_NOFRAME = &H0800
  566.  
  567. Declare Function ScrollWindowEx% Lib "User" (ByVal hwnd%, ByVal dx%, ByVal dy%, lprcScroll As RECT, lprcClip As RECT, ByVal hrgnUpdate%, lprcUpdate As RECT, ByVal fuScroll%)
  568.  
  569. Global Const SW_SCROLLCHILDREN = &H0001
  570. Global Const SW_INVALIDATE = &H0002
  571. Global Const SW_ERASE = &H0004
  572.  
  573. ' WM_NCCALCSIZE return flags 
  574. Global Const WVR_ALIGNTOP = &H0010
  575. Global Const WVR_ALIGNLEFT = &H0020
  576. Global Const WVR_ALIGNBOTTOM = &H0040
  577. Global Const WVR_ALIGNRIGHT = &H0080
  578. Global Const WVR_HREDRAW = &H0100
  579. Global Const WVR_VREDRAW = &H0200
  580. Global Const WVR_REDRAW = (WVR_HREDRAW Or WVR_VREDRAW)
  581. Global Const WVR_VALIDRECTS = &H0400
  582.  
  583. ' WM_NCCALCSIZE parameter structure 
  584. Type NCCALCSIZE_PARAMS
  585.     rgrc As Long
  586.     lppos As Long
  587. End Type
  588.  
  589. Global Const MA_NOACTIVATEANDEAT =  4
  590.  
  591. Declare Function IsMenu Lib "User" (ByVal hmenu As Integer) As Integer
  592.  
  593. Global Const TPM_RIGHTBUTTON = &H0002
  594. Global Const TPM_LEFTALIGN = &H0000
  595. Global Const TPM_CENTERALIGN = &H0004
  596. Global Const TPM_RIGHTALIGN = &H0008
  597.  
  598. Declare Function GetOpenClipboardWindow Lib "User" () As Integer
  599. Declare Function CopyCursor Lib "User" (ByVal hinst As Integer, ByVal hcur As Integer) As Integer
  600. Declare Function GetCursor Lib "User" () As Integer
  601. Declare Sub GetClipCursor Lib "User" (lprc As RECT)
  602. Declare Function CopyIcon Lib "User" (ByVal hinst As Integer, ByVal hicon As Integer) As Integer
  603.  
  604. Global Const MDIS_ALLCHILDSTYLES = &H0001
  605.  
  606. ' wParam values for WM_MDITILE and WM_MDICASCADE messages. 
  607. Global Const MDITILE_VERTICAL = &H0000
  608. Global Const MDITILE_HORIZONTAL = &H0001
  609. Global Const MDITILE_SKIPDISABLED = &H0002
  610.  
  611. ' Static Control Mesages 
  612. Global Const STM_SETICON = (WM_USER+0)
  613. Global Const STM_GETICON = (WM_USER+1)
  614.  
  615. Global Const ES_READONLY = &H00000800&
  616. Global Const ES_WANTRETURN = &H00001000&
  617.  
  618. Global Const EM_GETFIRSTVISIBLELINE = (WM_USER+30)
  619. Global Const EM_SETREADONLY = (WM_USER+31)
  620. Global Const EM_SETWORDBREAKPROC = (WM_USER+32)
  621. Global Const EM_GETWORDBREAKPROC = (WM_USER+33)
  622. Global Const EM_GETPASSWORDCHAR = (WM_USER+34)
  623.  
  624. ' EDITWORDBREAKPROC code values 
  625. Global Const WB_LEFT = 0
  626. Global Const WB_RIGHT = 1
  627. Global Const WB_ISDELIMITER = 2
  628.  
  629. Global Const LBS_DISABLENOSCROLL = &H1000&
  630.  
  631. Global Const LB_SETITEMHEIGHT = (WM_USER+33)
  632. Global Const LB_GETITEMHEIGHT = (WM_USER+34)
  633. Global Const LB_FINDSTRINGEXACT = (WM_USER+35)
  634.  
  635. Declare Function DlgDirSelectEx% Lib "User" (ByVal hwndDlg%, ByVal lpszPath$, ByVal cbPath%, ByVal idListBox%)
  636. Declare Function DlgDirSelectComboBoxEx% Lib "User" (ByVal hwndDlg%, ByVal lpszPath$, ByVal cbPath%, ByVal idComboBox%)
  637.  
  638. Global Const CBS_DISABLENOSCROLL = &H0800&
  639.  
  640. Global Const CB_SETITEMHEIGHT = (WM_USER+19)
  641. Global Const CB_GETITEMHEIGHT = (WM_USER+20)
  642. Global Const CB_SETEXTENDEDUI = (WM_USER+21)
  643. Global Const CB_GETEXTENDEDUI = (WM_USER+22)
  644. Global Const CB_GETDROPPEDSTATE = (WM_USER+23)
  645. Global Const CB_FINDSTRINGEXACT = (WM_USER+24)
  646.  
  647. Global Const CBN_CLOSEUP = 8
  648. Global Const CBN_SELENDOK = 9
  649. Global Const CBN_SELENDCANCEL = 10
  650.  
  651. Declare Function UnhookWindowsHookEx Lib "User" (ByVal hHook As Integer) As Integer
  652. Declare Function CallNextHookEx Lib "User" (ByVal hHook As Integer, ByVal ncode As Integer, ByVal wParam As Integer, lParam As Any) As Long
  653.  
  654. ' HCBT_CREATEWND parameters pointed to by lParam 
  655. Type CBT_CREATEWND
  656.     lpcs As Long
  657.     hwndInsertAfter As Integer
  658. End Type
  659.  
  660. ' HCBT_ACTIVATE structure pointed to by lParam 
  661. Type CBTACTIVATESTRUCT
  662.     fMouse As Integer
  663.     hWndActive As Integer
  664. End Type
  665.  
  666.  
  667. Global Const WH_HARDWARE = 8
  668.  
  669. Type HARDWAREHOOKSTRUCT
  670.     hWnd As Integer
  671.     wMessage As Integer
  672.     wParam As Integer
  673.     lParam As Long
  674. End Type
  675.  
  676. ' SetWindowsHook() Shell hook code 
  677. Global Const WH_SHELL = 10
  678.  
  679. Global Const HSHELL_WINDOWCREATED = 1
  680. Global Const HSHELL_WINDOWDESTROYED = 2
  681. Global Const HSHELL_ACTIVATESHELLWINDOW = 3
  682.  
  683.  
  684. ' SetWindowsHook debug hook support 
  685. Global Const WH_DEBUG = 9
  686.  
  687. Type DEBUGHOOKINFO
  688.     hModuleHook As Integer
  689.     reserved As Long
  690.     lParam As Long
  691.     wParam As Integer
  692.     code As Integer
  693. End Type
  694.  
  695. Declare Function QuerySendMessage Lib "User" (ByVal hreserved1 As Integer, ByVal hreserved2 As Integer, ByVal hreserved3 As Integer, ByVal lpMessage As String) As Integer
  696. Declare Function LockInput Lib "User" (ByVal hReserved As Integer, ByVal hwndInput As Integer, ByVal fLock As Integer) As Integer
  697. Declare Function GetSystemDebugState Lib "User" () As Long
  698.  
  699. ' Flags returned by GetSystemDebugState.
  700. Global Const SDS_MENU = &H0001
  701. Global Const SDS_SYSMODAL = &H0002
  702. Global Const SDS_NOTASKQUEUE = &H0004
  703. Global Const SDS_DIALOG = &H0008
  704. Global Const SDS_TASKLOCKED = &H0010
  705.  
  706. ' new escape functions 
  707. Global Const GETMAXLPT = 8
  708. Global Const GETMAXCOM = 9
  709. Global Const GETBASEIRQ = 10
  710.  
  711. ' Comm Baud Rate indices 
  712. Global Const CBR_110 = &HFF10
  713. Global Const CBR_300 = &HFF11
  714. Global Const CBR_600 = &HFF12
  715. Global Const CBR_1200 = &HFF13
  716. Global Const CBR_2400 = &HFF14
  717. Global Const CBR_4800 = &HFF15
  718. Global Const CBR_9600 = &HFF16
  719. Global Const CBR_14400 = &HFF17
  720. Global Const CBR_19200 = &HFF18
  721. Global Const CBR_38400 = &HFF1B
  722. Global Const CBR_56000 = &HFF1F
  723. Global Const CBR_128000 = &HFF23
  724. Global Const CBR_256000 = &HFF27
  725.  
  726. ' notifications passed in low word of lParam on WM_COMMNOTIFY messages 
  727. Global Const CN_RECEIVE = &H0001
  728. Global Const CN_TRANSMIT = &H0002
  729. Global Const CN_EVENT = &H0004
  730.  
  731. Declare Function EnableCommNotification Lib "User" (ByVal idComDev As Integer, ByVal hwnd As Integer, ByVal cbWriteNotify As Integer, ByVal OutQueue As Integer) As Integer
  732.  
  733. Global Const WM_COMMNOTIFY = &H0044
  734.  
  735. ' Driver messages 
  736. Global Const DRV_LOAD = &H0001
  737. Global Const DRV_ENABLE = &H0002
  738. Global Const DRV_OPEN = &H0003
  739. Global Const DRV_CLOSE = &H0004
  740. Global Const DRV_DISABLE = &H0005
  741. Global Const DRV_FREE = &H0006
  742. Global Const DRV_CONFIGURE = &H0007
  743. Global Const DRV_QUERYCONFIGURE = &H0008
  744. Global Const DRV_INSTALL = &H0009
  745. Global Const DRV_REMOVE = &H000A
  746. Global Const DRV_EXITSESSION = &H000B
  747. Global Const DRV_EXITAPPLICATION = &H000C
  748. Global Const DRV_POWER = &H000F
  749. Global Const DRV_RESERVED = &H0800
  750. Global Const DRV_USER = &H4000
  751.  
  752. ' LPARAM of DRV_CONFIGURE message 
  753. Type DRVCONFIGINFO
  754.     dwDCISize As Long
  755.     lpszDCISectionName As Long
  756.     lpszDCIAliasName As Long
  757. End Type
  758.  
  759. ' Supported return values for DRV_CONFIGURE message 
  760. Global Const DRVCNF_CANCEL = &H0000
  761. Global Const DRVCNF_OK = &H0001
  762. Global Const DRVCNF_RESTART = &H0002
  763.  
  764. ' Supported lParam1 of DRV_EXITAPPLICATION notification 
  765. Global Const DRVEA_NORMALEXIT = &H0001
  766. Global Const DRVEA_ABNORMALEXIT = &H0002
  767.  
  768. Declare Function DefDriverProc Lib "User" (ByVal dwDriverIdentifier As Long, ByVal hdrvr As Integer, ByVal umsg As Integer, lParam1 As Any, lParam2 As Any) As Long
  769. Declare Function OpenDriver Lib "User" (ByVal lpDriverName As String, ByVal lpSectionName As String, lParam As Any) As Integer
  770. Declare Function CloseDriver Lib "User" (ByVal hdrvr As Integer, lParam1 As Any, lParam2 As Any) As Long
  771. Declare Function SendDriverMessage Lib "User" (ByVal hdrvr As Integer, ByVal msg As Integer, lParam1 As Any, lParam2 As Any) As Long
  772. Declare Function GetDriverModuleHandle Lib "User" (ByVal hdrvr As Integer) As Integer
  773. Declare Function GetNextDriver Lib "User" (ByVal hdrvr As Integer, ByVal fdwFlag As Long) As Integer
  774.  
  775. ' GetNextDriver flags 
  776. Global Const GND_FIRSTINSTANCEONLY = &H00000001
  777.  
  778. Global Const GND_FORWARD = &H00000000
  779. Global Const GND_REVERSE = &H00000002
  780.  
  781. Type DRIVERINFOSTRUCT
  782.     length As Integer
  783.     hDriver As Integer
  784.     hModule As Integer
  785.     szAliasName As String * 128
  786. End Type
  787.  
  788. Declare Function GetDriverInfo Lib "User" (ByVal hdrvr As Integer, lpdis As DRIVERINFOSTRUCT) As Integer
  789.  
  790.  
  791. ' ***** LZEXPAND error return codes *****
  792.  
  793. Global Const LZERROR_BADINHANDLE = (-1)  '  invalid input handle 
  794. Global Const LZERROR_BADOUTHANDLE = (-2) '  invalid output handle 
  795. Global Const LZERROR_READ = (-3)         '  corrupt compressed file format 
  796. Global Const LZERROR_WRITE = (-4)        '  out of space for output file 
  797. Global Const LZERROR_GLOBALLOC = (-5)    '  insufficient memory for LZFile struct 
  798. Global Const LZERROR_GLOBLOCK = (-6)     '  bad global handle 
  799. Global Const LZERROR_BADVALUE = (-7)     '  input parameter out of range 
  800. Global Const LZERROR_UNKNOWNALG = (-8)   '  compression algorithm not recognized 
  801.  
  802. Declare Function LZStart Lib "LZexpand.dll" () As Integer
  803. Declare Sub LZDone Lib "LZexpand.dll" ()
  804. Declare Function CopyLZFile Lib "LZexpand.dll" (ByVal hfSource As Integer, ByVal hfDest As Integer) As Long
  805. Declare Function LZCopy Lib "LZexpand.dll" (ByVal hfSource As Integer, ByVal hfDest As Integer) As Long
  806. Declare Function LZInit Lib "LZexpand.dll" (ByVal hfSrc As Integer) As Integer
  807. Declare Function GetExpandedName Lib "LZexpand.dll" (ByVal lpszSource As String, ByVal lpszBuffer As String) As Integer
  808. Declare Function LZOpenFile Lib "LZexpand.dll" (ByVal lpszFile As String, lpOf As OFSTRUCT, ByVal style As Integer) As Integer
  809. Declare Function LZSeek Lib "LZexpand.dll" (ByVal hfFile As Integer, ByVal lOffset As Long, ByVal nOrigin As Integer) As Long
  810. Declare Function LZRead Lib "LZexpand.dll" (ByVal hfFile As Integer, ByVal lpvBuf As String, ByVal cb As Integer) As Integer
  811. Declare Sub LZClose Lib "LZexpand.dll" (ByVal hfFile As Integer)
  812.