home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / d / d009_2 / 1.ddi / SAMPLES / WINAPI / WNAPIDEC.IN$ / WNAPIDEC.bin
Encoding:
Text File  |  1992-02-03  |  2.7 KB  |  77 lines
  1. ' ------------------------------------------------------------------------
  2. '     WNAPIDEC.INC -- Windows 3.0 API Declarations for 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.  
  18. '$IFNDEF WNAPIDEC
  19.  
  20.   '$DEFINE WNAPIDEC
  21.  
  22. '   General Purpose Defines
  23.     Type RECT
  24.         wleft As Integer
  25.         top As Integer
  26.         wright As Integer
  27.         bottom As Integer
  28.     End Type
  29.  
  30.  
  31.     '  SAMPLE WINDOWS API DECLARATIONS, from USER.EXE and KERNEL.EXE
  32.  
  33.     Declare Sub GetClientRect Lib "User" (hWnd%, lpRect As RECT)
  34.     Declare Sub GetWindowRect Lib "User" (hWnd%, lpRect As RECT)
  35.  
  36.     Declare Function GetFocus Lib "User" () As Integer
  37.     Declare Function SetFocus Lib "User" (hWnd%) As Integer
  38.  
  39.     Declare Function SendMessage% Lib "User" (hWnd%,wMsg%,wParam%,lParam As Any)
  40.     Declare Function IsZoomed Lib "User" (hWnd%) As Integer
  41.     Declare Function WinExec Lib "Kernel" (lpCmdLine$, nCmdShow%) As Integer
  42.  
  43.     Declare Function FindWindow Lib "User" (lpClassName$, lpWindowName$) As Integer
  44.     Declare Function SetActiveWindow Lib "User" (hWnd%) As Integer
  45.     Declare Function GetActiveWindow Lib "User" () As Integer
  46.     Declare Function GetWindowText Lib "User" (hWnd%, lpBuffer$, wBufferLen%) As Integer
  47.     Declare Function GetDesktopWindow Lib "User" () As Integer
  48.  
  49.     Declare Function ShowWindow Lib "User" (hWnd%, nCmdShow%) As Integer
  50.  
  51.     '  ShowWindow() Commands (values for nCmdShow%)
  52.     Const SW_HIDE = 0
  53.     Const SW_SHOWNORMAL = 1
  54.     Const SW_NORMAL = 1
  55.     Const SW_SHOWMINIMIZED = 2
  56.     Const SW_SHOWMAXIMIZED = 3
  57.     Const SW_MAXIMIZE = 3
  58.     Const SW_SHOWNOACTIVATE = 4
  59.     Const SW_SHOW = 5
  60.     Const SW_MINIMIZE = 6
  61.     Const SW_SHOWMINNOACTIVE = 7
  62.     Const SW_SHOWNA = 8
  63.     Const SW_RESTORE = 9
  64.  
  65.     '  Window Styles
  66.     Const WS_MINIMIZE = &H20000000
  67.     Const WS_MAXIMIZE = &H1000000
  68.  
  69.     Declare Function GetWindowLong Lib "User" (hWnd%, nIndex%) As Long
  70.  
  71.     '  Window field offsets (nIndex%) for GetWindowLong()
  72.     Const GWL_WNDPROC = (-4)
  73.     Const GWL_STYLE = (-16)
  74.     Const GWL_EXSTYLE = (-20)
  75. '$ENDIF
  76.  
  77.