Return to wnapidec.inc CVS log

Up to [WindowsNT SDKs] / mstools / mstest / include

Annotation of mstools/mstest/include/wnapidec.inc, revision 1.1.1.1

1.1       root        1: ' ------------------------------------------------------------------------
                      2: '     WNAPIDEC.INC -- Windows 3.0 API Declarations for 32-bit FastTest
                      3: '
                      4: '              Copyright (C) 1991-1992 Microsoft Corporation
                      5: '
                      6: '  The following are provided for sample purposes only.  You should only
                      7: '  copy the ones you use into your code in order to save code space and
                      8: '  parse time.
                      9: '
                     10: '  You have a royalty-free right to use, modify, reproduce and distribute
                     11: '  this file (and/or any modified version) in any way you find useful,
                     12: '  provided that you agree Microsoft has no warranty, obligation or
                     13: '  liability for its contents.  Refer to the Microsoft Windows Programmer's
                     14: '  Reference for further information.
                     15: '
                     16: ' ------------------------------------------------------------------------
                     17: '$define _WNAPIDEC          ' Define this so other includes don't redefine
                     18:                             ' stuff defined in this include file
                     19: 
                     20: '$ifndef _WINUSER
                     21: 
                     22: ' Definitions stolen from WINUSER.INC
                     23: '-----------------------------------------------------------------------------
                     24: Type RECT
                     25:     wleft As Integer
                     26:     top As Integer
                     27:     wright As Integer
                     28:     bottom As Integer
                     29: End Type
                     30: 
                     31: Type POINT
                     32:     x As Integer
                     33:     y As Integer
                     34: End Type
                     35: 
                     36: Declare Function FindWindow          Lib "User32" ALIAS "FindWindowA" (lpClassName As Any, lpWindowName As Any) As Integer
                     37: Declare Function GetActiveWindow     Lib "User32" ALIAS "GetActiveWindow" () As Integer
                     38: Declare Sub      GetClientRect       Lib "User32" ALIAS "GetClientRect" (hWnd%, lpRect As RECT)
                     39: Declare Function GetDesktopWindow    Lib "User32" ALIAS "GetDesktopWindow" () As Integer
                     40: Declare Function GetFocus            Lib "User32" ALIAS "GetFocus" () As Integer
                     41: Declare Function GetForegroundWindow Lib "User32" ALIAS "GetForegroundWindow" () As Integer
                     42: Declare Function GetSystemMetrics    Lib "User32" ALIAS "GetSystemMetrics" (nIndex%) As Integer
                     43: Declare Function GetWindowLong       Lib "User32" ALIAS "GetWindowLongA" (hWnd%,  nIndex%) As Long
                     44: Declare Sub      GetWindowRect       Lib "User32" ALIAS "GetWindowRect" (hWnd%, lpRect As RECT)
                     45: Declare Function GetWindowText       Lib "User32" ALIAS "GetWindowTextA" (hWnd%,  lpString$,  nMaxCount%) As Integer
                     46: Declare Function IsZoomed            Lib "User32" ALIAS "IsZoomed" (hWnd%) As Integer
                     47: Declare Function MessageBox          Lib "User32" ALIAS "MessageBoxA" (hWndParent%,  lpText$,  lpCaption$,  wType%) As Integer
                     48: Declare Function SendMessage         Lib "User32" ALIAS "SendMessageA" (hWnd%,  wMsg%,  wParam%, lParam As Any) As Long
                     49: Declare Function SetActiveWindow     Lib "User32" ALIAS "SetActiveWindow" (hWnd%) As Integer
                     50: Declare Function SetFocus            Lib "User32" ALIAS "SetFocus" (hWnd%) As Integer
                     51: Declare Function SetForegroundWindow Lib "User32" ALIAS "SetForegroundWindow" (hWnd%) As Integer
                     52: Declare Function SetWindowPos        Lib "User32" ALIAS "SetWindowPos" (h%, ha%, x%, y%, cx%, cy%, f%) As Integer
                     53: Declare Function ShowWindow          Lib "User32" ALIAS "ShowWindow" (hWnd%,  nCmdShow%) As Integer
                     54: 
                     55: 
                     56: '  ShowWindow() Commands
                     57: Const SW_HIDE = 0
                     58: Const SW_SHOWNORMAL = 1
                     59: Const SW_NORMAL = 1
                     60: Const SW_SHOWMINIMIZED = 2
                     61: Const SW_SHOWMAXIMIZED = 3
                     62: Const SW_MAXIMIZE = 3
                     63: Const SW_SHOWNOACTIVATE = 4
                     64: Const SW_SHOW = 5
                     65: Const SW_MINIMIZE = 6
                     66: Const SW_SHOWMINNOACTIVE = 7
                     67: Const SW_SHOWNA = 8
                     68: Const SW_RESTORE = 9
                     69: 
                     70: '  Window Styles
                     71: Const WS_MINIMIZE = &H20000000
                     72: Const WS_MAXIMIZE = &H1000000
                     73: 
                     74: 
                     75: '  Window field offsets for GetWindowLong()
                     76: Const GWL_WNDPROC = (-4)
                     77: Const GWL_STYLE = (-16)
                     78: Const GWL_EXSTYLE = (-20)
                     79: 
                     80: '$endif
                     81: 
                     82: '$ifndef _WINKERN
                     83: 
                     84: ' Definitions stolen from WINKERN.INC
                     85: '-----------------------------------------------------------------------------
                     86: Declare Function WinExec           Lib "Kernel32" ALIAS "WinExec" (lpCmdLine$, nCmdShow%) As Integer
                     87: 
                     88: '$endif

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.