mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
68 lines
2.4 KiB
68 lines
2.4 KiB
' ------------------------------------------------------------------------
|
|
' WNAPIDEC.TXT -- (Sample) Windows 3.0 API Declarations for TESTDrvr
|
|
'
|
|
' Copyright (C) 1991 Microsoft Corporation
|
|
'
|
|
' The following are provided for sample purposes only. You should only
|
|
' copy the ones you use into your code in order to save code space and
|
|
' parse time.
|
|
'
|
|
' You have a royalty-free right to use, modify, reproduce and distribute
|
|
' this file (and/or any modified version) in any way you find useful,
|
|
' provided that you agree Microsoft has no warranty, obligation or
|
|
' liability for its contents. Refer to the Microsoft Windows Programmer's
|
|
' Reference for further information.
|
|
'
|
|
' ------------------------------------------------------------------------
|
|
'-------------------------------------------------------------------------
|
|
|
|
|
|
' General Purpose Defines
|
|
|
|
Type RECT
|
|
left As Integer
|
|
top As Integer
|
|
right As Integer
|
|
bottom As Integer
|
|
End Type
|
|
|
|
|
|
' SAMPLE WINDOWS API DECLARATIONS, from USER.EXE and KERNEL.EXE
|
|
|
|
Declare Sub GetClientRect Lib "User" (hWnd%, lpRect As RECT)
|
|
Declare Sub GetWindowRect Lib "User" (hWnd%, lpRect As RECT)
|
|
|
|
Declare Function GetFocus Lib "User" () As Integer
|
|
Declare Function SetFocus Lib "User" (hWnd%) As Integer
|
|
|
|
Declare Function SendMessage% Lib "User" (hWnd%,wMsg%,wParam%,lParam As Any)
|
|
Declare Function IsZoomed Lib "User" (hWnd%) As Integer
|
|
Declare Function WinExec Lib "Kernel" (lpCmdLine$, nCmdShow%) As Integer
|
|
|
|
Declare Function FindWindow Lib "User" (lpClassName$, lpWindowName$) As Integer
|
|
Declare Function SetActiveWindow Lib "User" (hWnd%) As Integer
|
|
Declare Function GetActiveWindow Lib "User" () As Integer
|
|
Declare Function GetWindowText Lib "User" (hWnd%, lpBuffer$, wBufferLen%) As Integer
|
|
Declare Function GetDesktopWindow Lib "User" () As Integer
|
|
|
|
Declare Function ShowWindow Lib "User" (hWnd%, nCmdShow%) As Integer
|
|
' ShowWindow() Commands (values for nCmdShow%)
|
|
Const SW_HIDE = 0
|
|
Const SW_SHOWNORMAL = 1
|
|
Const SW_NORMAL = 1
|
|
Const SW_SHOWMINIMIZED = 2
|
|
Const SW_SHOWMAXIMIZED = 3
|
|
Const SW_MAXIMIZE = 3
|
|
Const SW_SHOWNOACTIVATE = 4
|
|
Const SW_SHOW = 5
|
|
Const SW_MINIMIZE = 6
|
|
Const SW_SHOWMINNOACTIVE = 7
|
|
Const SW_SHOWNA = 8
|
|
Const SW_RESTORE = 9
|
|
|
|
|
|
Declare Function GetWindowLong Lib "User" (hWnd%, nIndex%) As Long
|
|
' Window field offsets (nIndex%) for GetWindowLong()
|
|
Const GWL_WNDPROC = (-4)
|
|
Const GWL_STYLE = (-16)
|
|
Const GWL_EXSTYLE = (-20)
|