|
|
1.1 ! root 1: '******************************** WINUSER.INC ********************************* ! 2: ' WINUSER.INC ! 3: ' ! 4: ' SAMPLE Declarations for 32-bit USER functions callable from MS Test. This ! 5: ' does NOT represent all of the functions available in USER32.DLL that are ! 6: ' callable from an MS Test script. If you need to use a function in USER32 ! 7: ' that is not declared in this file, simply add the declaration to this file. ! 8: '****************************************************************************** ! 9: '$ifndef _WINUSER ! 10: ! 11: '$ifndef _WNAPIDEC ! 12: Type RECT ! 13: wleft As Integer ! 14: top As Integer ! 15: wright As Integer ! 16: bottom As Integer ! 17: End Type ! 18: ! 19: Type POINT ! 20: x As Integer ! 21: y As Integer ! 22: End Type ! 23: ! 24: Declare Function FindWindow Lib "User32" ALIAS "FindWindowA" (lpClassName As Any, lpWindowName As Any) As Integer ! 25: Declare Function GetActiveWindow Lib "User32" ALIAS "GetActiveWindow" () As Integer ! 26: Declare Sub GetClientRect Lib "User32" ALIAS "GetClientRect" (hWnd%, lpRect As RECT) ! 27: Declare Function GetDesktopWindow Lib "User32" ALIAS "GetDesktopWindow" () As Integer ! 28: Declare Function GetFocus Lib "User32" ALIAS "GetFocus" () As Integer ! 29: Declare Function GetForegroundWindow Lib "User32" ALIAS "GetForegroundWindow" () As Integer ! 30: Declare Function GetSystemMetrics Lib "User32" ALIAS "GetSystemMetrics" (nIndex%) As Integer ! 31: Declare Function GetWindowLong Lib "User32" ALIAS "GetWindowLongA" (hWnd%, nIndex%) As Long ! 32: Declare Sub GetWindowRect Lib "User32" ALIAS "GetWindowRect" (hWnd%, lpRect As RECT) ! 33: Declare Function GetWindowText Lib "User32" ALIAS "GetWindowTextA" (hWnd%, lpString$, nMaxCount%) As Integer ! 34: Declare Function IsZoomed Lib "User32" ALIAS "IsZoomed" (hWnd%) As Integer ! 35: Declare Function MessageBox Lib "User32" ALIAS "MessageBoxA" (hWndParent%, lpText$, lpCaption$, wType%) As Integer ! 36: Declare Function SendMessage Lib "User32" ALIAS "SendMessageA" (hWnd%, wMsg%, wParam%, lParam As Any) As Long ! 37: Declare Function SetActiveWindow Lib "User32" ALIAS "SetActiveWindow" (hWnd%) As Integer ! 38: Declare Function SetFocus Lib "User32" ALIAS "SetFocus" (hWnd%) As Integer ! 39: Declare Function SetForegroundWindow Lib "User32" ALIAS "SetForegroundWindow" (hWnd%) As Integer ! 40: Declare Function SetWindowPos Lib "User32" ALIAS "SetWindowPos" (h%, ha%, x%, y%, cx%, cy%, f%) As Integer ! 41: Declare Function ShowWindow Lib "User32" ALIAS "ShowWindow" (hWnd%, nCmdShow%) As Integer ! 42: ! 43: ' ShowWindow() Commands ! 44: Const SW_HIDE = 0 ! 45: Const SW_SHOWNORMAL = 1 ! 46: Const SW_NORMAL = 1 ! 47: Const SW_SHOWMINIMIZED = 2 ! 48: Const SW_SHOWMAXIMIZED = 3 ! 49: Const SW_MAXIMIZE = 3 ! 50: Const SW_SHOWNOACTIVATE = 4 ! 51: Const SW_SHOW = 5 ! 52: Const SW_MINIMIZE = 6 ! 53: Const SW_SHOWMINNOACTIVE = 7 ! 54: Const SW_SHOWNA = 8 ! 55: Const SW_RESTORE = 9 ! 56: ! 57: ' Window Styles ! 58: Const WS_MINIMIZE = &H20000000 ! 59: Const WS_MAXIMIZE = &H1000000 ! 60: ! 61: ! 62: ' Window field offsets for GetWindowLong() ! 63: Const GWL_WNDPROC = (-4) ! 64: Const GWL_STYLE = (-16) ! 65: Const GWL_EXSTYLE = (-20) ! 66: ! 67: '$endif ' _WNAPIDEC -- above decls are duped in WNAPIDEC.INC ! 68: ! 69: Const IDOK = 1 ! 70: Const IDCANCEL = 2 ! 71: Const IDABORT = 3 ! 72: Const IDRETRY = 4 ! 73: Const IDIGNORE = 5 ! 74: Const IDYES = 6 ! 75: Const IDNO = 7 ! 76: ! 77: ' Scroll Bar Constants ! 78: Const SB_HORZ = 0 ! 79: Const SB_VERT = 1 ! 80: Const SB_CTL = 2 ! 81: Const SB_BOTH = 3 ! 82: ! 83: ' Scroll Bar Commands ! 84: Const SB_LINEUP = 0 ! 85: Const SB_LINEDOWN = 1 ! 86: Const SB_PAGEUP = 2 ! 87: Const SB_PAGEDOWN = 3 ! 88: Const SB_THUMBPOSITION = 4 ! 89: Const SB_THUMBTRACK = 5 ! 90: Const SB_TOP = 6 ! 91: Const SB_BOTTOM = 7 ! 92: Const SB_ENDSCROLL = 8 ! 93: ! 94: ' Old ShowWindow() Commands ! 95: Const HIDE_WINDOW = 0 ! 96: Const SHOW_OPENWINDOW = 1 ! 97: Const SHOW_ICONWINDOW = 2 ! 98: Const SHOW_FULLSCREEN = 3 ! 99: Const SHOW_OPENNOACTIVATE = 4 ! 100: ! 101: ' Identifiers for the WM_SHOWWINDOW message ! 102: Const SW_PARENTCLOSING = 1 ! 103: Const SW_OTHERZOOM = 2 ! 104: Const SW_PARENTOPENING = 3 ! 105: Const SW_OTHERUNZOOM = 4 ! 106: ! 107: ' Region Flags ! 108: Const ERRORAPI = 0 ! 109: Const NULLREGION = 1 ! 110: Const SIMPLEREGION = 2 ! 111: Const COMPLEXREGION = 3 ! 112: ! 113: ' CombineRgn() Styles ! 114: Const RGN_AND = 1 ! 115: Const RGN_OR = 2 ! 116: Const RGN_XOR = 3 ! 117: Const RGN_DIFF = 4 ! 118: Const RGN_COPY = 5 ! 119: ! 120: ' Virtual Keys, Standard Set ! 121: ' Conditional check to avoid duplicate definition in MSTEST.INC ! 122: '$IFNDEF VK_WINAPI ! 123: '$DEFINE VK_WINAPI ! 124: Const VK_LBUTTON = &H1 ! 125: Const VK_RBUTTON = &H2 ! 126: Const VK_MBUTTON = &H4 ' NOT contiguous with L & RBUTTON ! 127: '$ENDIF ! 128: Const VK_CANCEL = &H3 ! 129: Const VK_BACK = &H8 ! 130: Const VK_TAB = &H9 ! 131: Const VK_CLEAR = &HC ! 132: Const VK_RETURN = &HD ! 133: Const VK_SHIFT = &H10 ! 134: Const VK_CONTROL = &H11 ! 135: Const VK_MENU = &H12 ! 136: Const VK_PAUSE = &H13 ! 137: Const VK_CAPITAL = &H14 ! 138: Const VK_ESCAPE = &H1B ! 139: Const VK_SPACE = &H20 ! 140: Const VK_PRIOR = &H21 ! 141: Const VK_NEXT = &H22 ! 142: Const VK_END = &H23 ! 143: Const VK_HOME = &H24 ! 144: Const VK_LEFT = &H25 ! 145: Const VK_UP = &H26 ! 146: Const VK_RIGHT = &H27 ! 147: Const VK_DOWN = &H28 ! 148: Const VK_SELECT = &H29 ! 149: Const VK_PRINT = &H2A ! 150: Const VK_EXECUTE = &H2B ! 151: Const VK_SNAPSHOT = &H2C ! 152: 'Const VK_COPY = &H2C not used by keyboards. ! 153: Const VK_INSERT = &H2D ! 154: Const VK_DELETE = &H2E ! 155: Const VK_HELP = &H2F ! 156: ! 157: ' VK_A thru VK_Z are the same as their ASCII equivalents: 'A' thru 'Z' ! 158: ' VK_0 thru VK_9 are the same as their ASCII equivalents: '0' thru '9' ! 159: ! 160: Const VK_NUMPAD0 = &H60 ! 161: Const VK_NUMPAD1 = &H61 ! 162: Const VK_NUMPAD2 = &H62 ! 163: Const VK_NUMPAD3 = &H63 ! 164: Const VK_NUMPAD4 = &H64 ! 165: Const VK_NUMPAD5 = &H65 ! 166: Const VK_NUMPAD6 = &H66 ! 167: Const VK_NUMPAD7 = &H67 ! 168: Const VK_NUMPAD8 = &H68 ! 169: Const VK_NUMPAD9 = &H69 ! 170: Const VK_MULTIPLY = &H6A ! 171: Const VK_ADD = &H6B ! 172: Const VK_SEPARATOR = &H6C ! 173: Const VK_SUBTRACT = &H6D ! 174: Const VK_DECIMAL = &H6E ! 175: Const VK_DIVIDE = &H6F ! 176: Const VK_F1 = &H70 ! 177: Const VK_F2 = &H71 ! 178: Const VK_F3 = &H72 ! 179: Const VK_F4 = &H73 ! 180: Const VK_F5 = &H74 ! 181: Const VK_F6 = &H75 ! 182: Const VK_F7 = &H76 ! 183: Const VK_F8 = &H77 ! 184: Const VK_F9 = &H78 ! 185: Const VK_F10 = &H79 ! 186: Const VK_F11 = &H7A ! 187: Const VK_F12 = &H7B ! 188: Const VK_F13 = &H7C ! 189: Const VK_F14 = &H7D ! 190: Const VK_F15 = &H7E ! 191: Const VK_F16 = &H7F ! 192: ! 193: Const VK_NUMLOCK = &H90 ! 194: ! 195: ' SetWindowsHook() codes ! 196: Const WH_MSGFILTER = (-1) ! 197: Const WH_JOURNALRECORD = 0 ! 198: Const WH_JOURNALPLAYBACK = 1 ! 199: Const WH_KEYBOARD = 2 ! 200: Const WH_GETMESSAGE = 3 ! 201: Const WH_CALLWNDPROC = 4 ! 202: Const WH_CBT = 5 ! 203: Const WH_SYSMSGFILTER = 6 ! 204: Const WH_WINDOWMGR = 7 ! 205: ! 206: ' Hook Codes ! 207: Const HC_LPLPFNNEXT = (-2) ! 208: Const HC_LPFNNEXT = (-1) ! 209: Const HC_ACTION = 0 ! 210: Const HC_GETNEXT = 1 ! 211: Const HC_SKIP = 2 ! 212: Const HC_NOREM = 3 ! 213: Const HC_NOREMOVE = 3 ! 214: Const HC_SYSMODALON = 4 ! 215: Const HC_SYSMODALOFF = 5 ! 216: ! 217: ' CBT Hook Codes ! 218: Const HCBT_MOVESIZE = 0 ! 219: Const HCBT_MINMAX = 1 ! 220: Const HCBT_QS = 2 ! 221: ! 222: ' WH_MSGFILTER Filter Proc Codes ! 223: Const MSGF_DIALOGBOX = 0 ! 224: Const MSGF_MESSAGEBOX = 1 ! 225: Const MSGF_MENU = 2 ! 226: Const MSGF_MOVE = 3 ! 227: Const MSGF_SIZE = 4 ! 228: Const MSGF_SCROLLBAR = 5 ! 229: Const MSGF_NEXTWINDOW = 6 ! 230: ! 231: ' Window Manager Hook Codes ! 232: Const WC_INIT = 1 ! 233: Const WC_SWP = 2 ! 234: Const WC_DEFWINDOWPROC = 3 ! 235: Const WC_MINMAX = 4 ! 236: Const WC_MOVE = 5 ! 237: Const WC_SIZE = 6 ! 238: Const WC_DRAWCAPTION = 7 ! 239: ! 240: ' Message Structure used in Journaling ! 241: Type EVENTMSG ! 242: message As Integer ! 243: paramL As Integer ! 244: paramH As Integer ! 245: dwtime As Long 'time is a reserved word in MSTest ! 246: End Type ! 247: ! 248: ' Message structure ! 249: Type MSG ! 250: hwnd As Integer ! 251: message As Integer ! 252: wParam As Integer ! 253: lParam As Long ! 254: dwtime As Long 'time is a reserved word in MSTest ! 255: pt As POINT ! 256: End Type ! 257: ! 258: ! 259: ' Window field offsets for GetWindowWord() ! 260: Const GWW_HINSTANCE = (-6) ! 261: Const GWW_HWNDPARENT = (-8) ! 262: Const GWW_ID = (-12) ! 263: ! 264: ' Class field offsets for GetClassLong() and GetClassWord() ! 265: Const GCL_MENUNAME = (-8) ! 266: Const GCW_HBRBACKGROUND = (-10) ! 267: Const GCW_HCURSOR = (-12) ! 268: Const GCW_HICON = (-14) ! 269: Const GCW_HMODULE = (-16) ! 270: Const GCW_CBWNDEXTRA = (-18) ! 271: Const GCW_CBCLSEXTRA = (-20) ! 272: Const GCL_WNDPROC = (-24) ! 273: Const GCW_STYLE = (-26) ! 274: ! 275: ' Window Messages ! 276: Const WM_NULL = &H0 ! 277: Const WM_CREATE = &H1 ! 278: Const WM_DESTROY = &H2 ! 279: Const WM_MOVE = &H3 ! 280: Const WM_SIZE = &H5 ! 281: Const WM_ACTIVATE = &H6 ! 282: Const WM_SETFOCUS = &H7 ! 283: Const WM_KILLFOCUS = &H8 ! 284: Const WM_ENABLE = &HA ! 285: Const WM_SETREDRAW = &HB ! 286: Const WM_SETTEXT = &HC ! 287: Const WM_GETTEXT = &HD ! 288: Const WM_GETTEXTLENGTH = &HE ! 289: Const WM_PAINT = &HF ! 290: Const WM_CLOSE = &H10 ! 291: Const WM_QUERYENDSESSION = &H11 ! 292: Const WM_QUIT = &H12 ! 293: Const WM_QUERYOPEN = &H13 ! 294: Const WM_ERASEBKGND = &H14 ! 295: Const WM_SYSCOLORCHANGE = &H15 ! 296: Const WM_ENDSESSION = &H16 ! 297: Const WM_SHOWWINDOW = &H18 ! 298: Const WM_CTLCOLOR = &H19 ! 299: Const WM_WININICHANGE = &H1A ! 300: Const WM_DEVMODECHANGE = &H1B ! 301: Const WM_ACTIVATEAPP = &H1C ! 302: Const WM_FONTCHANGE = &H1D ! 303: Const WM_TIMECHANGE = &H1E ! 304: Const WM_CANCELMODE = &H1F ! 305: Const WM_SETCURSOR = &H20 ! 306: Const WM_MOUSEACTIVATE = &H21 ! 307: Const WM_CHILDACTIVATE = &H22 ! 308: Const WM_QUEUESYNC = &H23 ! 309: Const WM_GETMINMAXINFO = &H24 ! 310: Const WM_PAINTICON = &H26 ! 311: Const WM_ICONERASEBKGND = &H27 ! 312: Const WM_NEXTDLGCTL = &H28 ! 313: Const WM_SPOOLERSTATUS = &H2A ! 314: Const WM_DRAWITEM = &H2B ! 315: Const WM_MEASUREITEM = &H2C ! 316: Const WM_DELETEITEM = &H2D ! 317: Const WM_VKEYTOITEM = &H2E ! 318: Const WM_CHARTOITEM = &H2F ! 319: Const WM_SETFONT = &H30 ! 320: Const WM_GETFONT = &H31 ! 321: ! 322: Const WM_QUERYDRAGICON = &H37 ! 323: ! 324: Const WM_COMPAREITEM = &H39 ! 325: Const WM_COMPACTING = &H41 ! 326: ! 327: Const WM_NCCREATE = &H81 ! 328: Const WM_NCDESTROY = &H82 ! 329: Const WM_NCCALCSIZE = &H83 ! 330: Const WM_NCHITTEST = &H84 ! 331: Const WM_NCPAINT = &H85 ! 332: Const WM_NCACTIVATE = &H86 ! 333: Const WM_GETDLGCODE = &H87 ! 334: Const WM_NCMOUSEMOVE = &HA0 ! 335: Const WM_NCLBUTTONDOWN = &HA1 ! 336: Const WM_NCLBUTTONUP = &HA2 ! 337: Const WM_NCLBUTTONDBLCLK = &HA3 ! 338: Const WM_NCRBUTTONDOWN = &HA4 ! 339: Const WM_NCRBUTTONUP = &HA5 ! 340: Const WM_NCRBUTTONDBLCLK = &HA6 ! 341: Const WM_NCMBUTTONDOWN = &HA7 ! 342: Const WM_NCMBUTTONUP = &HA8 ! 343: Const WM_NCMBUTTONDBLCLK = &HA9 ! 344: ! 345: Const WM_KEYFIRST = &H100 ! 346: Const WM_KEYDOWN = &H100 ! 347: Const WM_KEYUP = &H101 ! 348: Const WM_CHAR = &H102 ! 349: Const WM_DEADCHAR = &H103 ! 350: Const WM_SYSKEYDOWN = &H104 ! 351: Const WM_SYSKEYUP = &H105 ! 352: Const WM_SYSCHAR = &H106 ! 353: Const WM_SYSDEADCHAR = &H107 ! 354: Const WM_KEYLAST = &H108 ! 355: ! 356: Const WM_INITDIALOG = &H110 ! 357: Const WM_COMMAND = &H111 ! 358: Const WM_SYSCOMMAND = &H112 ! 359: Const WM_TIMER = &H113 ! 360: Const WM_HSCROLL = &H114 ! 361: Const WM_VSCROLL = &H115 ! 362: Const WM_INITMENU = &H116 ! 363: Const WM_INITMENUPOPUP = &H117 ! 364: Const WM_MENUSELECT = &H11F ! 365: Const WM_MENUCHAR = &H120 ! 366: Const WM_ENTERIDLE = &H121 ! 367: ! 368: Const WM_MOUSEFIRST = &H200 ! 369: Const WM_MOUSEMOVE = &H200 ! 370: Const WM_LBUTTONDOWN = &H201 ! 371: Const WM_LBUTTONUP = &H202 ! 372: Const WM_LBUTTONDBLCLK = &H203 ! 373: Const WM_RBUTTONDOWN = &H204 ! 374: Const WM_RBUTTONUP = &H205 ! 375: Const WM_RBUTTONDBLCLK = &H206 ! 376: Const WM_MBUTTONDOWN = &H207 ! 377: Const WM_MBUTTONUP = &H208 ! 378: Const WM_MBUTTONDBLCLK = &H209 ! 379: Const WM_MOUSELAST = &H209 ! 380: ! 381: Const WM_PARENTNOTIFY = &H210 ! 382: Const WM_MDICREATE = &H220 ! 383: Const WM_MDIDESTROY = &H221 ! 384: Const WM_MDIACTIVATE = &H222 ! 385: Const WM_MDIRESTORE = &H223 ! 386: Const WM_MDINEXT = &H224 ! 387: Const WM_MDIMAXIMIZE = &H225 ! 388: Const WM_MDITILE = &H226 ! 389: Const WM_MDICASCADE = &H227 ! 390: Const WM_MDIICONARRANGE = &H228 ! 391: Const WM_MDIGETACTIVE = &H229 ! 392: Const WM_MDISETMENU = &H230 ! 393: ! 394: Const WM_CUT = &H300 ! 395: Const WM_COPY = &H301 ! 396: Const WM_PASTE = &H302 ! 397: Const WM_CLEAR = &H303 ! 398: Const WM_UNDO = &H304 ! 399: Const WM_RENDERFORMAT = &H305 ! 400: Const WM_RENDERALLFORMATS = &H306 ! 401: Const WM_DESTROYCLIPBOARD = &H307 ! 402: Const WM_DRAWCLIPBOARD = &H308 ! 403: Const WM_PAINTCLIPBOARD = &H309 ! 404: Const WM_VSCROLLCLIPBOARD = &H30A ! 405: Const WM_SIZECLIPBOARD = &H30B ! 406: Const WM_ASKCBFORMATNAME = &H30C ! 407: Const WM_CHANGECBCHAIN = &H30D ! 408: Const WM_HSCROLLCLIPBOARD = &H30E ! 409: Const WM_QUERYNEWPALETTE = &H30F ! 410: Const WM_PALETTEISCHANGING = &H310 ! 411: Const WM_PALETTECHANGED = &H311 ! 412: ! 413: ' NOTE: All Message Numbers below 0x0400 are RESERVED. ! 414: ! 415: Const WM_USER = &H400 ! 416: ! 417: ' WM_SYNCTASK Commands ! 418: Const ST_BEGINSWP = 0 ! 419: Const ST_ENDSWP = 1 ! 420: ! 421: ' WinWhere() Area Codes ! 422: Const HTERROR = (-2) ! 423: Const HTTRANSPARENT = (-1) ! 424: Const HTNOWHERE = 0 ! 425: Const HTCLIENT = 1 ! 426: Const HTCAPTION = 2 ! 427: Const HTSYSMENU = 3 ! 428: Const HTGROWBOX = 4 ! 429: Const HTSIZE = HTGROWBOX ! 430: Const HTMENU = 5 ! 431: Const HTHSCROLL = 6 ! 432: Const HTVSCROLL = 7 ! 433: Const HTREDUCE = 8 ! 434: Const HTZOOM = 9 ! 435: Const HTLEFT = 10 ! 436: Const HTRIGHT = 11 ! 437: Const HTTOP = 12 ! 438: Const HTTOPLEFT = 13 ! 439: Const HTTOPRIGHT = 14 ! 440: Const HTBOTTOM = 15 ! 441: Const HTBOTTOMLEFT = 16 ! 442: Const HTBOTTOMRIGHT = 17 ! 443: Const HTSIZEFIRST = HTLEFT ! 444: Const HTSIZELAST = HTBOTTOMRIGHT ! 445: ! 446: ' WM_MOUSEACTIVATE Return Codes ! 447: Const MA_ACTIVATE = 1 ! 448: Const MA_ACTIVATEANDEAT = 2 ! 449: Const MA_NOACTIVATE = 3 ! 450: ! 451: ' Size Message Commands ! 452: Const SIZENORMAL = 0 ! 453: Const SIZEICONIC = 1 ! 454: Const SIZEFULLSCREEN = 2 ! 455: Const SIZEZOOMSHOW = 3 ! 456: Const SIZEZOOMHIDE = 4 ! 457: ! 458: ' Key State Masks for Mouse Messages ! 459: Const MK_LBUTTON = &H1 ! 460: Const MK_RBUTTON = &H2 ! 461: Const MK_SHIFT = &H4 ! 462: Const MK_CONTROL = &H8 ! 463: Const MK_MBUTTON = &H10 ! 464: ! 465: ' Window Styles ! 466: Const WS_OVERLAPPED = &H00000 ! 467: Const WS_POPUP = &H80000000 ! 468: Const WS_CHILD = &H40000000 ! 469: Const WS_VISIBLE = &H10000000 ! 470: Const WS_DISABLED = &H8000000 ! 471: Const WS_CLIPSIBLINGS = &H4000000 ! 472: Const WS_CLIPCHILDREN = &H2000000 ! 473: Const WS_CAPTION = &HC00000 ' WS_BORDER Or WS_DLGFRAME ! 474: Const WS_BORDER = &H800000 ! 475: Const WS_DLGFRAME = &H400000 ! 476: Const WS_VSCROLL = &H200000 ! 477: Const WS_HSCROLL = &H100000 ! 478: Const WS_SYSMENU = &H80000 ! 479: Const WS_THICKFRAME = &H40000 ! 480: Const WS_GROUP = &H20000 ! 481: Const WS_TABSTOP = &H10000 ! 482: ! 483: Const WS_MINIMIZEBOX = &H20000 ! 484: Const WS_MAXIMIZEBOX = &H10000 ! 485: ! 486: Const WS_TILED = WS_OVERLAPPED ! 487: Const WS_ICONIC = WS_MINIMIZE ! 488: Const WS_SIZEBOX = WS_THICKFRAME ! 489: ! 490: ' Common Window Styles ! 491: Const WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX) ! 492: Const WS_POPUPWINDOW = (WS_POPUP Or WS_BORDER Or WS_SYSMENU) ! 493: Const WS_CHILDWINDOW = (WS_CHILD) ! 494: Const WS_TILEDWINDOW = (WS_OVERLAPPEDWINDOW) ! 495: ! 496: ' Extended Window Styles ! 497: Const WS_EX_DLGMODALFRAME = &H00001 ! 498: Const WS_EX_NOPARENTNOTIFY = &H00004 ! 499: ! 500: ' Class styles ! 501: Const CS_VREDRAW = &H1 ! 502: Const CS_HREDRAW = &H2 ! 503: Const CS_KEYCVTWINDOW = &H4 ! 504: Const CS_DBLCLKS = &H8 ! 505: Const CS_OWNDC = &H20 ! 506: Const CS_CLASSDC = &H40 ! 507: Const CS_PARENTDC = &H80 ! 508: Const CS_NOKEYCVT = &H100 ! 509: Const CS_NOCLOSE = &H200 ! 510: Const CS_SAVEBITS = &H800 ! 511: Const CS_BYTEALIGNCLIENT = &H1000 ! 512: Const CS_BYTEALIGNWINDOW = &H2000 ! 513: Const CS_GLOBALCLASS = &H4000 ' Global window class ! 514: ! 515: ' Predefined Clipboard Formats ! 516: Const CF_TEXT = 1 ! 517: Const CF_BITMAP = 2 ! 518: Const CF_METAFILEPICT = 3 ! 519: Const CF_SYLK = 4 ! 520: Const CF_DIF = 5 ! 521: Const CF_TIFF = 6 ! 522: Const CF_OEMTEXT = 7 ! 523: Const CF_DIB = 8 ! 524: Const CF_PALETTE = 9 ! 525: ! 526: Const CF_OWNERDISPLAY = &H80 ! 527: Const CF_DSPTEXT = &H81 ! 528: Const CF_DSPBITMAP = &H82 ! 529: Const CF_DSPMETAFILEPICT = &H83 ! 530: ! 531: ' "Private" formats don't get GlobalFree()'d ! 532: Const CF_PRIVATEFIRST = &H200 ! 533: Const CF_PRIVATELAST = &H2FF ! 534: ! 535: ' "GDIOBJ" formats do get DeleteObject()'d ! 536: Const CF_GDIOBJFIRST = &H300 ! 537: Const CF_GDIOBJLAST = &H3FF ! 538: ! 539: Type PAINTSTRUCT ! 540: hdc As Integer ! 541: fErase As Integer ! 542: rcPaint As RECT ! 543: fRestore As Integer ! 544: fIncUpdate As Integer ! 545: rgbReserved As String * 16 ! 546: End Type ! 547: ! 548: Type CREATESTRUCT ! 549: lpCreateParams As Long ! 550: hInstance As Integer ! 551: hMenu As Integer ! 552: hwndParent As Integer ! 553: cy As Integer ! 554: cx As Integer ! 555: y As Integer ! 556: x As Integer ! 557: style As Long ! 558: lpszName As Long 'lpsz Actually LPSTR - ! 559: lpszClass As Long 'change to POINTER TO STRING * n or use lstrcpy ! 560: ExStyle As Long ! 561: End Type ! 562: ! 563: ' Owner draw control types ! 564: Const ODT_MENU = 1 ! 565: Const ODT_LISTBOX = 2 ! 566: Const ODT_COMBOBOX = 3 ! 567: Const ODT_BUTTON = 4 ! 568: ! 569: ' Owner draw actions ! 570: Const ODA_DRAWENTIRE = &H1 ! 571: Const ODA_SELECT = &H2 ! 572: Const ODA_FOCUS = &H4 ! 573: ! 574: ' Owner draw state ! 575: Const ODS_SELECTED = &H1 ! 576: Const ODS_GRAYED = &H2 ! 577: Const ODS_DISABLED = &H4 ! 578: Const ODS_CHECKED = &H8 ! 579: Const ODS_FOCUS = &H10 ! 580: ! 581: ' MEASUREITEMSTRUCT for ownerdraw ! 582: Type MEASUREITEMSTRUCT ! 583: CtlType As Integer ! 584: CtlID As Integer ! 585: itemID As Integer ! 586: itemWidth As Integer ! 587: itemHeight As Integer ! 588: itemData As Long ! 589: End Type ! 590: ! 591: ' DRAWITEMSTRUCT for ownerdraw ! 592: Type DRAWITEMSTRUCT ! 593: CtlType As Integer ! 594: CtlID As Integer ! 595: itemID As Integer ! 596: itemAction As Integer ! 597: itemState As Integer ! 598: hwndItem As Integer ! 599: hDC As Integer ! 600: rcItem As RECT ! 601: itemData As Long ! 602: End Type ! 603: ! 604: ' DELETEITEMSTRUCT for ownerdraw ! 605: Type DELETEITEMSTRUCT ! 606: CtlType As Integer ! 607: CtlID As Integer ! 608: itemID As Integer ! 609: hwndItem As Integer ! 610: itemData As Long ! 611: End Type ! 612: ! 613: ' COMPAREITEMSTRUCT for ownerdraw sorting ! 614: Type COMPAREITEMSTRUCT ! 615: CtlType As Integer ! 616: CtlID As Integer ! 617: hwndItem As Integer ! 618: itemID1 As Integer ! 619: itemData1 As Long ! 620: itemID2 As Integer ! 621: itemData2 As Long ! 622: End Type ! 623: ! 624: ' PeekMessage() Options ! 625: Const PM_NOREMOVE = &H0 ! 626: Const PM_REMOVE = &H1 ! 627: Const PM_NOYIELD = &H2 ! 628: ! 629: Const READAPI = 0 ' Flags for _lopen ! 630: Const WRITEAPI = 1 ! 631: Const READ_WRITE = 2 ! 632: ! 633: Const CW_USEDEFAULT = &H8000 ! 634: ! 635: ' SetWindowPos Flags ! 636: Const SWP_NOSIZE = &H1 ! 637: Const SWP_NOMOVE = &H2 ! 638: Const SWP_NOZORDER = &H4 ! 639: Const SWP_NOREDRAW = &H8 ! 640: Const SWP_NOACTIVATE = &H10 ! 641: Const SWP_DRAWFRAME = &H20 ! 642: Const SWP_SHOWWINDOW = &H40 ! 643: Const SWP_HIDEWINDOW = &H80 ! 644: Const SWP_NOCOPYBITS = &H100 ! 645: Const SWP_NOREPOSITION = &H200 ! 646: ! 647: Const DLGWINDOWEXTRA = 30 ' Window extra bytes needed for private dialog classes ! 648: ! 649: ' GetSystemMetrics() codes ! 650: Const SM_CXSCREEN = 0 ! 651: Const SM_CYSCREEN = 1 ! 652: Const SM_CXVSCROLL = 2 ! 653: Const SM_CYHSCROLL = 3 ! 654: Const SM_CYCAPTION = 4 ! 655: Const SM_CXBORDER = 5 ! 656: Const SM_CYBORDER = 6 ! 657: Const SM_CXDLGFRAME = 7 ! 658: Const SM_CYDLGFRAME = 8 ! 659: Const SM_CYVTHUMB = 9 ! 660: Const SM_CXHTHUMB = 10 ! 661: Const SM_CXICON = 11 ! 662: Const SM_CYICON = 12 ! 663: Const SM_CXCURSOR = 13 ! 664: Const SM_CYCURSOR = 14 ! 665: Const SM_CYMENU = 15 ! 666: Const SM_CXFULLSCREEN = 16 ! 667: Const SM_CYFULLSCREEN = 17 ! 668: Const SM_CYKANJIWINDOW = 18 ! 669: Const SM_MOUSEPRESENT = 19 ! 670: Const SM_CYVSCROLL = 20 ! 671: Const SM_CXHSCROLL = 21 ! 672: Const SM_DEBUG = 22 ! 673: Const SM_SWAPBUTTON = 23 ! 674: Const SM_RESERVED1 = 24 ! 675: Const SM_RESERVED2 = 25 ! 676: Const SM_RESERVED3 = 26 ! 677: Const SM_RESERVED4 = 27 ! 678: Const SM_CXMIN = 28 ! 679: Const SM_CYMIN = 29 ! 680: Const SM_CXSIZE = 30 ! 681: Const SM_CYSIZE = 31 ! 682: Const SM_CXFRAME = 32 ! 683: Const SM_CYFRAME = 33 ! 684: Const SM_CXMINTRACK = 34 ! 685: Const SM_CYMINTRACK = 35 ! 686: Const SM_CMETRICS = 36 ! 687: Const SM_CYICONSPACING = 39 ! 688: ! 689: ! 690: ' MessageBox() Flags ! 691: Const MB_OK = &H0 ! 692: Const MB_OKCANCEL = &H1 ! 693: Const MB_ABORTRETRYIGNORE = &H2 ! 694: Const MB_YESNOCANCEL = &H3 ! 695: Const MB_YESNO = &H4 ! 696: Const MB_RETRYCANCEL = &H5 ! 697: ! 698: Const MB_ICONHAND = &H10 ! 699: Const MB_ICONQUESTION = &H20 ! 700: Const MB_ICONEXCLAMATION = &H30 ! 701: Const MB_ICONASTERISK = &H40 ! 702: ! 703: Const MB_ICONINFORMATION = MB_ICONASTERISK ! 704: Const MB_ICONSTOP = MB_ICONHAND ! 705: ! 706: Const MB_DEFBUTTON1 = &H0 ! 707: Const MB_DEFBUTTON2 = &H100 ! 708: Const MB_DEFBUTTON3 = &H200 ! 709: ! 710: Const MB_APPLMODAL = &H0 ! 711: Const MB_SYSTEMMODAL = &H1000 ! 712: Const MB_TASKMODAL = &H2000 ! 713: ! 714: Const MB_NOFOCUS = &H8000 ! 715: ! 716: Const MB_TYPEMASK = &HF ! 717: Const MB_ICONMASK = &HF0 ! 718: Const MB_DEFMASK = &HF00 ! 719: Const MB_MODEMASK = &H3000 ! 720: Const MB_MISCMASK = &HC000 ! 721: ! 722: '$define _WINUSER ! 723: '$endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.