' ----------------------------------------------------------------------------------------------
' 
'    Windows 3.0 and Windows 3.1 API Declarations for WordBasic 
' 
'              Copyright (C) 1993 Microsoft Corporation 
' 
'  This file contains Declare statements for Windows 3.0 APIs and Windows 3.1 
'  APIs. This file combines the WIN30API.TXT and WIN31EXT.TXT files provided 
'  with Visual Basic, revised for WordBasic. The first part of the file is for Windows 
'  3.0 APIs only; the second part is for Windows 3.1 APIs. To find the start of the 
'  Windows 3.1 part of the file, search for "Windows 3.1 Extensions."

'  The Visual Basic "ByVal" keyword has been removed from the file, since it is not 
'  supported in WordBasic.

'  WordBasic does not support structured variables, so Declare statements for APIs 
'  that require structured variables as parameters are not included in this file. The fact 
'  that a Declare statement is listed in this file does not necessarily imply that the 
'  corresponding API can be called from WordBasic. 

'  Some APIs return and take as parameters constant values, which are documented in 
'  the Windows documentation for these APIs.

'  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 that Microsoft has no warranty, obligation or 
'  liability for its contents.  Refer to the Microsoft Windows Programmer's 
'  Reference for further information. 
' 
' ------------------------------------------------------------------------ 
 
' Loader Routines 
Declare Function GetNumTasks Lib "Kernel"() As Integer
Declare Function GetModuleHandle Lib "Kernel"(lpModuleName As String) As Integer
Declare Function GetModuleUsage Lib "Kernel"(hModule As Integer) As Integer
Declare Function GetModuleFileName Lib "Kernel"(hModule As Integer, lpFilename As String, nSize As Integer) As Integer
Declare Function GetInstanceData Lib "Kernel"(hInstance As Integer, pData As Integer, nCount As Integer) As Integer
Declare Function LoadLibrary Lib "Kernel"(lpLibFileName As String) As Integer
Declare Sub FreeModule Lib "Kernel"(hModule As Integer)  
Declare Sub FreeLibrary Lib "Kernel"(hLibModule As Integer)
Declare Function GetFreeSpace Lib "Kernel"(wFlags As Integer) As Long
Declare Function WinExec Lib "Kernel"(lpCmdLine As String, nCmdShow As Integer) As Integer
Declare Sub OutputDebugString Lib "Kernel"(lpOutputString As String)
Declare Sub SwitchStackBack Lib "Kernel"()
Declare Sub SwitchStackTo Lib "Kernel"(wStackSegment As Integer, wStackPointer As Integer, wStackTop As Integer)
Declare Function GetCurrentPDB Lib "Kernel"() As Integer
Declare Function GetVersion Lib "Kernel"() As Long
 
Declare Function GetTempDrive Lib "Kernel"(cDriveLetter As Integer) As Integer
Declare Function GetTempFileName Lib "Kernel"(cDriveLetter As Integer, lpPrefixString As String, wUnique As Integer, lpTempFileName As String) As Integer
Declare Function SetHandleCount Lib "Kernel"(wNumber As Integer) As Integer
 
Declare Function GetDriveType Lib "Kernel"(nDrive As Integer) As Integer
 
Declare Function GlobalAlloc Lib "Kernel"(wFlags As Integer, dwBytes As Long) As Integer
Declare Function GlobalFree Lib "Kernel"(hMem As Integer) As Integer
Declare Function GlobalHandle Lib "Kernel"(wMem As Integer) As Long
Declare Function GlobalLock Lib "Kernel"(hMem As Integer) As Long
Declare Function GlobalReAlloc Lib "Kernel"(hMem As Integer, dwBytes As Long, wFlags As Integer) As Integer
 
Declare Function GlobalSize Lib "Kernel"(hMem As Integer) As Long
Declare Function GlobalUnlock Lib "Kernel"(hMem As Integer) As Integer
Declare Function UnlockResource Lib "Kernel" Alias "GlobalUnlock"(hMem As Integer) As Integer
Declare Function GlobalFlags Lib "Kernel"(hMem As Integer) As Integer
Declare Function GlobalWire Lib "Kernel"(hMem As Integer) As Long
Declare Function GlobalUnWire Lib "Kernel"(hMem As Integer) As Integer
Declare Function GlobalUnlock Lib "Kernel"(hMem As Integer) As Integer
Declare Function GlobalLRUNewest Lib "Kernel"(hMem As Integer) As Integer
Declare Function GlobalLRUOldest Lib "Kernel"(hMem As Integer) As Integer
Declare Function GlobalPageLock Lib "Kernel"(wSelector As Integer) As Integer
Declare Function GlobalPageUnlock Lib "Kernel"(wSelector As Integer) As Integer
Declare Sub GlobalFix Lib "Kernel"(hMem As Integer)
Declare Function GlobalUnfix Lib "Kernel"(hMem As Integer) As Integer
 

Declare Function LockSegment Lib "Kernel"(wSegment As Integer) As Integer
Declare Function UnlockSegment Lib "Kernel"(wSegment As Integer) As Integer
 
Declare Function LocalAlloc Lib "Kernel"(wFlags As Integer, wBytes As Integer) As Integer
Declare Function LocalCompact Lib "Kernel"(wMinFree As Integer) As Integer
Declare Function LocalFree Lib "Kernel"(hMem As Integer) As Integer
Declare Function LocalHandle Lib "Kernel"(wMem As Integer) As Integer
Declare Function LocalInit Lib "Kernel"(wSegment As Integer, pStart As Integer, pEnd As Integer) As Integer
Declare Function LocalLock Lib "Kernel"(hMem As Integer) As Integer
'(returns a near pointer)
Declare Function LocalReAlloc Lib "Kernel"(hMem As Integer, wBytes As Integer, wFlags As Integer) As Integer
 

Declare Function LocalSize Lib "Kernel"(hMem As Integer) As Integer
Declare Function LocalUnlock Lib "Kernel"(hMem As Integer) As Integer
Declare Function LocalFlags Lib "Kernel"(hMem As Integer) As Integer
Declare Function LocalShrink Lib "Kernel"(hSeg As Integer, wSize As Integer) As Integer
 
Declare Function SetSwapAreaSize Lib "Kernel"(rsSize As Integer) As Long
Declare Function ValidateFreeSpaces Lib "Kernel"() As Long
Declare Sub LimitEmsPages Lib "Kernel"(dwKbytes As Long)
Declare Function SetErrorMode Lib "Kernel"(wMode As Integer) As Integer
Declare Sub ValidateCodeSegments Lib "Kernel"()
 
Declare Function GetDOSEnvironment Lib "Kernel"() As Long
 
Declare Function AllocDStoCSAlias Lib "Kernel"(wSelector As Integer) As Integer
Declare Function AllocSelector Lib "Kernel"(wSelector As Integer) As Integer
Declare Function FreeSelector Lib "Kernel"(wSelector As Integer) As Integer
Declare Function FindResource Lib "Kernel"(hInstance As Integer, lpName As String, lpType As String) As Integer
Declare Function LoadResource Lib "Kernel"(hInstance As Integer, hResInfo As Integer) As Integer
Declare Function FreeResource Lib "Kernel"(hResData As Integer) As Integer
Declare Function LockResource Lib "Kernel"(hResData As Integer) As Long
Declare Function AllocResource Lib "Kernel"(hInstance As Integer, hResInfo As Integer, dwSize As Long) As Integer
Declare Function SizeofResource Lib "Kernel"(hInstance As Integer, hResInfo As Integer) As Integer
Declare Function AccessResource Lib "Kernel"(hInstance As Integer, hResInfo As Integer) As Integer
 
Declare Sub Yield Lib "Kernel"()
Declare Function GetCurrentTask Lib "Kernel"() As Integer
 
Declare Function InitAtomTable Lib "Kernel"(nSize As Integer) As Integer
Declare Function AddAtom Lib "Kernel"(lpString As String) As Integer
Declare Function DeleteAtom Lib "Kernel"(nAtom As Integer) As Integer
Declare Function FindAtom Lib "Kernel"(lpString As String) As Integer
Declare Function GetAtomName Lib "Kernel"(nAtom As Integer, lpBuffer As String, nSize As Integer) As Integer
 
 
' User Profile Routines 
Declare Function GetProfileInt Lib "Kernel"(lpAppName As String, lpKeyName As String, nDefault As Integer) As Integer
Declare Function GetProfileString Lib "Kernel"(lpAppName As String, lpKeyName As String, lpDefault As String, lpReturnedString As String, nSize As Integer) As Integer
Declare Function WriteProfileString Lib "Kernel"(lpApplicationName As String, lpKeyName As String, lpString As String) As Integer
Declare Function GetPrivateProfileInt Lib "Kernel"(lpApplicationName As String, lpKeyName As String, nDefault As Integer, lpFileName As String) As Integer
Declare Function GetPrivateProfileString Lib "Kernel"(lpApplicationName As String, lpKeyName As String, lpDefault As String, lpReturnedString As String, nSize As Integer, lpFileName As String) As Integer
Declare Function WritePrivateProfileString Lib "Kernel"(lpApplicationName As String, lpKeyName As String, lpString As String, lplFileName As String) As Integer
Declare Function GetWindowsDirectory Lib "Kernel"(lpBuffer As String, nSize As Integer) As Integer
Declare Function GetSystemDirectory Lib "Kernel"(lpBuffer As String, nSize As Integer) As Integer
 
 
Declare Function Catch Lib "Kernel"(lpCatchBuf As String) As Integer
Declare Sub Throw Lib "Kernel"(lpCatchBuf As String, nThrowBack As Integer)
 
Declare Sub FatalExit Lib "Kernel"(Code As Integer)
Declare Sub SwapRecording Lib "Kernel"(wFlag As Integer)
 
' Character Translation Routines 
Declare Function AnsiToOem Lib "Keyboard"(lpAnsiStr As String, lpOemStr As String) As Integer
Declare Function OemToAnsi Lib "Keyboard"(lpOemStr As String, lpAnsiStr As String) As Integer
Declare Sub AnsiToOemBuff Lib "Keyboard"(lpAnsiStr As String, lpOemStr As String, nLength As Integer)
Declare Sub OemToAnsiBuff Lib "Keyboard"(lpOemStr As String, lpAnsiStr As String, nLength As Integer)
Declare Function AnsiUpper Lib "User"(lpString As String) As String
Declare Function AnsiUpperBuff Lib "User"(lpString As String, aWORD As Integer) As Integer
Declare Function AnsiLower Lib "User"(lpString As String) As Long
Declare Function AnsiLowerBuff Lib "User"(lpString As String, aWORD As Integer) As Integer
Declare Function AnsiNext Lib "User"(lpString As String) As Long
Declare Function AnsiPrev Lib "User"(lpString As String, lpString As String) As Long
 
' Keyboard Information Routines 
Declare Function OemKeyScan Lib "Keyboard"(wOemChar As Integer) As Long
Declare Function VkKeyScan Lib "Keyboard"(cChar As Integer) As Integer
Declare Function GetKeyboardType Lib "Keyboard"(nTypeFlag As Integer) As Integer
Declare Function MapVirtualKey Lib "Keyboard"(wCode As Integer, wMapType As Integer) As Integer
Declare Function GetKeyNameText Lib "Keyboard"(lParam As Long, lpBuffer As String, nSize As Integer) As Integer
Declare Function ToAscii Lib "Keyboard"(wVirtKey As Integer, wScanCode As Integer, lpKeyState As String, lpChar As String, wFlags As Integer) As Integer
 
' Language dependent Routines 
Declare Function IsCharAlpha Lib "User"(cChar As Integer) As Integer
Declare Function IsCharAlphaNumeric Lib "User"(cChar As Integer) As Integer
Declare Function IsCharUpper Lib "User"(cChar As Integer) As Integer
Declare Function IsCharLower Lib "User"(cChar As Integer) As Integer
 
Declare Function DrawIcon Lib "User"(hDC As Integer, X As Integer, Y As Integer, hIcon As Integer) As Integer
 
Declare Function GetWindowDC Lib "User"(hWnd As Integer) As Integer
Declare Function GetDC Lib "User"(hWnd As Integer) As Integer
Declare Function ReleaseDC Lib "User"(hWnd As Integer, hDC As Integer) As Integer
Declare Function CreateDC Lib "GDI"(lpDriverName As String, lpDeviceName As String, lpOutput As String, lpInitData As String) As Integer
Declare Function CreateIC Lib "GDI"(lpDriverName As String, lpDeviceName As String, lpOutput As String, lpInitData As String) As Integer
Declare Function CreateCompatibleDC Lib "GDI"(hDC As Integer) As Integer
Declare Function DeleteDC Lib "GDI"(hDC As Integer) As Integer
Declare Function SaveDC Lib "GDI"(hDC As Integer) As Integer
Declare Function RestoreDC Lib "GDI"(hDC As Integer, nSavedDC As Integer) As Integer
Declare Function MoveTo Lib "GDI"(hDC As Integer, X As Integer, Y As Integer) As Long
Declare Function GetCurrentPosition Lib "GDI"(hDC As Integer) As Long
Declare Function LineTo Lib "GDI"(hDC As Integer, X As Integer, Y As Integer) As Integer
Declare Function GetDCOrg Lib "GDI"(hDC As Integer) As Long
 
Declare Function MulDiv Lib "GDI"(nNumber As Integer, nNumerator As Integer, nDenominator As Integer) As Integer
 
Declare Function ExtTextOut Lib "GDI"(hDC As Integer, X As Integer, Y As Integer, wOptions As Integer, lpRect As String, lpString As String, nCount As Integer, lpDx As String) As Integer
 
Declare Function Rectangle Lib "GDI"(hDC As Integer, X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer) As Integer
Declare Function RoundRect Lib "GDI"(hDC As Integer, X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer, X3 As Integer, Y3 As Integer) As Integer
Declare Function Ellipse Lib "GDI"(hDC As Integer, X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer) As Integer
Declare Function Arc Lib "GDI"(hDC As Integer, X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer, X3 As Integer, Y3 As Integer, X4 As Integer, Y4 As Integer) As Integer
Declare Function Chord Lib "GDI"(hDC As Integer, X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer, X3 As Integer, Y3 As Integer, X4 As Integer, Y4 As Integer) As Integer
Declare Function Pie Lib "GDI"(hDC As Integer, X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer, X3 As Integer, Y3 As Integer, X4 As Integer, Y4 As Integer) As Integer
Declare Function PatBlt Lib "GDI"(hDC As Integer, X As Integer, Y As Integer, nWidth As Integer, nHeight As Integer, dwRop As Long) As Integer
Declare Function BitBlt Lib "GDI"(hDestDC As Integer, X As Integer, Y As Integer, nWidth As Integer, nHeight As Integer, hSrcDC As Integer, XSrc As Integer, YSrc As Integer, dwRop As Long) As Integer
Declare Function TextOut Lib "GDI"(hDC As Integer, X As Integer, Y As Integer, lpString As String, nCount As Integer) As Integer
Declare Function TabbedTextOut Lib "User"(hDC As Integer, X As Integer, Y As Integer, lpString As String, nCount As Integer, nTabPositions As Integer, lpnTabStopPositions As Integer, nTabOrigin As Integer) As Long
Declare Function GetCharWidth Lib "GDI"(hDC As Integer, wFirstChar As Integer, wLastChar As Integer, lpBuffer As Integer) As Integer
Declare Function SetPixel Lib "GDI"(hDC As Integer, X As Integer, Y As Integer, crColor As Long) As Long
Declare Function GetPixel Lib "GDI"(hDC As Integer, X As Integer, Y As Integer) As Long
Declare Function FloodFill Lib "GDI"(hDC As Integer, X As Integer, Y As Integer, crColor As Long) As Integer
Declare Function ExtFloodFill Lib "GDI"(hDC As Integer, X As Integer, Y As Integer, crColor As Long, wFillType As Integer) As Integer
 
Declare Function GetStockObject Lib "GDI"(nIndex As Integer) As Integer
 
Declare Function CreatePen Lib "GDI"(nPenStyle As Integer, nWidth As Integer, crColor As Long) As Integer

Declare Function CreateSolidBrush Lib "GDI"(crColor As Long) As Integer
Declare Function CreateHatchBrush Lib "GDI"(nIndex As Integer, crColor As Long) As Integer
Declare Function SetBrushOrg Lib "GDI"(hDC As Integer, X As Integer, Y As Integer) As Long
Declare Function GetBrushOrg Lib "GDI"(hDC As Integer) As Long
Declare Function CreatePatternBrush Lib "GDI"(hBitmap As Integer) As Integer

Declare Function CreateBitmap Lib "GDI"(nWidth As Integer, nHeight As Integer, nPlanes As Integer, nBitCount As Integer, lpBits As String) As Integer
Declare Function CreateCompatibleBitmap Lib "GDI"(hDC As Integer, nWidth As Integer, nHeight As Integer) As Integer
Declare Function CreateDiscardableBitmap Lib "GDI"(hDC As Integer, nWidth As Integer, nHeight As Integer) As Integer
 
Declare Function SetBitmapBits Lib "GDI"(hBitmap As Integer, dwCount As Long, lpBits As String) As Long
Declare Function GetBitmapBits Lib "GDI"(hBitmap As Integer, dwCount As Long, lpBits As String) As Long
Declare Function SetBitmapDimension Lib "GDI"(hBitmap As Integer, X As Integer, Y As Integer) As Long
Declare Function GetBitmapDimension Lib "GDI"(hBitmap As Integer) As Long
 
Declare Function SelectClipRgn Lib "GDI"(hDC As Integer, hRgn As Integer) As Integer
Declare Function CreateRectRgn Lib "GDI"(X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer) As Integer
Declare Sub SetRectRgn Lib "GDI"(hRgn As Integer, X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer)
Declare Function CreateEllipticRgn Lib "GDI"(X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer) As Integer
Declare Function CreateRoundRectRgn Lib "GDI"(X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer, X3 As Integer, Y3 As Integer) As Integer
 
'Declare Function GetObject Lib "GDI" (hObject As Integer, nCount As Integer, lpObject As Long) As Integer 
Declare Function GetObjectGDI Lib "GDI" Alias "GetObject"(hObject As Integer, nCount As Integer, lpObject As Long) As Integer
 
Declare Function DeleteObject Lib "GDI"(hObject As Integer) As Integer
Declare Function SelectObject Lib "GDI"(hDC As Integer, hObject As Integer) As Integer
Declare Function UnrealizeObject Lib "GDI"(hObject As Integer) As Integer
 
Declare Function SetBkColor Lib "GDI"(hDC As Integer, crColor As Long) As Long
Declare Function GetBkColor Lib "GDI"(hDC As Integer) As Long
Declare Function SetBkMode Lib "GDI"(hDC As Integer, nBkMode As Integer) As Integer
Declare Function GetBkMode Lib "GDI"(hDC As Integer) As Integer
Declare Function SetTextColor Lib "GDI"(hDC As Integer, crColor As Long) As Long
Declare Function GetTextColor Lib "GDI"(hDC As Integer) As Long
Declare Function SetTextAlign Lib "GDI"(hDC As Integer, wFlags As Integer) As Integer
Declare Function GetTextAlign Lib "GDI"(hDC As Integer) As Integer
Declare Function SetMapperFlags Lib "GDI"(hDC As Integer, dwFlag As Long) As Long
Declare Function GetAspectRatioFilter Lib "GDI"(hDC As Integer) As Long
Declare Function GetNearestColor Lib "GDI"(hDC As Integer, crColor As Long) As Long
Declare Function SetROP2 Lib "GDI"(hDC As Integer, nDrawMode As Integer) As Integer
Declare Function GetROP2 Lib "GDI"(hDC As Integer) As Integer
Declare Function SetStretchBltMode Lib "GDI"(hDC As Integer, nStretchMode As Integer) As Integer
Declare Function GetStretchBltMode Lib "GDI"(hDC As Integer) As Integer
Declare Function SetPolyFillMode Lib "GDI"(hDC As Integer, nPolyFillMode As Integer) As Integer
Declare Function GetPolyFillMode Lib "GDI"(hDC As Integer) As Integer
Declare Function SetMapMode Lib "GDI"(hDC As Integer, nMapMode As Integer) As Integer
Declare Function GetMapMode Lib "GDI"(hDC As Integer) As Integer
Declare Function SetWindowOrg Lib "GDI"(hDC As Integer, X As Integer, Y As Integer) As Long
Declare Function GetWindowOrg Lib "GDI"(hDC As Integer) As Long
Declare Function SetWindowExt Lib "GDI"(hDC As Integer, X As Integer, Y As Integer) As Long
Declare Function GetWindowExt Lib "GDI"(hDC As Integer) As Long
Declare Function SetViewportOrg Lib "GDI"(hDC As Integer, X As Integer, Y As Integer) As Long
Declare Function GetViewportOrg Lib "GDI"(hDC As Integer) As Long
Declare Function SetViewportExt Lib "GDI"(hDC As Integer, X As Integer, Y As Integer) As Long
Declare Function GetViewportExt Lib "GDI"(hDC As Integer) As Long
Declare Function OffsetViewportOrg Lib "GDI"(hDC As Integer, X As Integer, Y As Integer) As Long
Declare Function ScaleViewportExt Lib "GDI"(hDC As Integer, Xnum As Integer, Xdenom As Integer, Ynum As Integer, Ydenom As Integer) As Long
Declare Function OffsetWindowOrg Lib "GDI"(hDC As Integer, X As Integer, Y As Integer) As Long
Declare Function ScaleWindowExt Lib "GDI"(hDC As Integer, Xnum As Integer, Xdenom As Integer, Ynum As Integer, Ydenom As Integer) As Long
 
Declare Function IntersectClipRect Lib "GDI"(hDC As Integer, X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer) As Integer
Declare Function OffsetClipRgn Lib "GDI"(hDC As Integer, X As Integer, Y As Integer) As Integer
Declare Function ExcludeClipRect Lib "GDI"(hDC As Integer, X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer) As Integer
Declare Function PtVisible Lib "GDI"(hDC As Integer, X As Integer, Y As Integer) As Integer Declare Function CombineRgn Lib "GDI"(hDestRgn As Integer, hSrcRgn1 As Integer, hSrcRgn2 As Integer, nCombineMode As Integer) As Integer
Declare Function EqualRgn Lib "GDI"(hSrcRgn1 As Integer, hSrcRgn2 As Integer) As Integer
Declare Function OffsetRgn Lib "GDI"(hRgn As Integer, X As Integer, Y As Integer) As Integer

Declare Function SetTextJustification Lib "GDI"(hDC As Integer, nBreakExtra As Integer, nBreakCount As Integer) As Integer
Declare Function GetTextExtent Lib "GDI"(hDC As Integer, lpString As String, nCount As Integer) As Long
Declare Function SetTextCharacterExtra Lib "GDI"(hDC As Integer, nCharExtra As Integer) As Integer
Declare Function GetTextCharacterExtra Lib "GDI"(hDC As Integer) As Integer
 
Declare Function GetMetaFile Lib "GDI"(lpFilename As String) As Integer
Declare Function DeleteMetaFile Lib "GDI"(hMF As Integer) As Integer
Declare Function CopyMetaFile Lib "GDI"(hMF As Integer, lpFilename As String) As Integer
 
Declare Function PlayMetaFile Lib "GDI"(hDC As Integer, hMF As Integer) As Integer

Declare Function Escape Lib "GDI"(hDC As Integer, nEscape As Integer, nCount As Integer, lplnData As String, lpOutData As String) As Integer
Declare Function GetTextFace Lib "GDI"(hDC As Integer, nCount As Integer, lpFacename As String) As Integer
 
Declare Function GetDeviceCaps Lib "GDI"(hDC As Integer, nIndex As Integer) As Integer
 
Declare Function SetEnvironment Lib "GDI"(lpPortName As String, lpEnviron As String, nCount As Integer) As Integer
Declare Function GetEnvironment Lib "GDI"(lpPortName As String, lpEnviron As String, nMaxCount As Integer) As Integer
 
Declare Function CreateMetaFile Lib "GDI"(lpString As String) As Integer
Declare Function CloseMetaFile Lib "GDI"(hMF As Integer) As Integer
Declare Function GetMetaFileBits Lib "GDI"(hMF As Integer) As Integer
Declare Function SetMetaFileBits Lib "GDI"(hMem As Integer) As Integer
 
Declare Function CreateDIBPatternBrush Lib "GDI"(hPackedDIB As Integer, wUsage As Integer) As Integer
 
Declare Function SelectPalette Lib "User"(hDC As Integer, hPalette As Integer, bForceBackground As Integer) As Integer
Declare Function RealizePalette Lib "User"(hDC As Integer) As Integer
Declare Function UpdateColors Lib "GDI"(hDC As Integer) As Integer
Declare Function GetNearestPaletteIndex Lib "GDI"(hPalette As Integer, crColor As Long) As Integer
Declare Function ResizePalette Lib "GDI"(hPalette As Integer, nNumEntries As Integer) As Integer
 
Declare Function GetSystemPaletteUse Lib "GDI"(hDC As Integer) As Integer
Declare Function SetSystemPaletteUse Lib "GDI"(hDC As Integer, wUsage As Integer) As Integer
 
 
' -------------- 
'  USER Section 
' -------------- 
 
Declare Function wvsprintf Lib "User"(lpOutput As String, lpFormat As String, lpArglist As Integer) As Integer
 
Declare Function RegisterWindowMessage Lib "User"(lpString As String) As Integer
 
Declare Function lstrcmp Lib "User"(lpString1 As String, lpString2 As String) As Integer
Declare Function lstrcmpi Lib "User"(lpString1 As String, lpString2 As String) As Integer
Declare Function lstrcpy Lib "Kernel"(lpString1 As String, lpString2 As String) As Long
Declare Function lstrcat Lib "Kernel"(lpString1 As String, lpString2 As String) As Long
Declare Function lstrlen Lib "Kernel"(lpString As String) As Integer
 
Declare Function lopen Lib "Kernel" Alias "_lopen"(lpPathName As String, iReadWrite As Integer) As Integer
Declare Function lclose Lib "Kernel" Alias "_lclose"(hFile As Integer) As Integer
Declare Function lcreat Lib "Kernel" Alias "_lcreat"(lpPathName As String, iAttribute As Integer) As Integer
Declare Function llseek Lib "Kernel" Alias "_llseek"(hFile As Integer, lOffset As Long, iOrigin As Integer) As Long
Declare Function lread Lib "Kernel" Alias "_lread"(hFile As Integer, lpBuffer As String, wBytes As Integer) As Integer
Declare Function lwrite Lib "Kernel" Alias "_lwrite"(hFile As Integer, lpBuffer As String, wBytes As Integer) As Integer
 
 
Declare Function SwapMouseButton Lib "User"(bSwap As Integer) As Integer
Declare Function GetMessagePos Lib "User"() As Long
Declare Function GetMessageTime Lib "User"() As Long
 
Declare Function GetSysModalWindow Lib "User"() As Integer
Declare Function SetSysModalWindow Lib "User"(hWnd As Integer) As Integer
 
Declare Function SendMessage Lib "User"(hWnd As Integer, wMsg As Integer, wParam As Integer, lParam As String) As Long
Declare Function PostMessage Lib "User"(hWnd As Integer, wMsg As Integer, wParam As Integer, lParam As String) As Integer
Declare Function PostAppMessage Lib "User"(hTask As Integer, wMsg As Integer, wParam As Integer, lParam As String) As Integer
Declare Sub ReplyMessage Lib "User"(lReply As Long)
Declare Sub WaitMessage Lib "User"()
Declare Function DefWindowProc Lib "User"(hWnd As Integer, wMsg As Integer, wParam As Integer, lParam As String) As Long
Declare Sub PostQuitMessage Lib "User"(nExitCode As Integer)
Declare Function InSendMessage Lib "User"() As Integer
 
Declare Function GetDoubleClickTime Lib "User"() As Integer
Declare Sub SetDoubleClickTime Lib "User"(wCount As Integer)
 
Declare Function UnregisterClass Lib "User"(lpClassName As String, hInstance As Integer) As Integer
 
Declare Function SetMessageQueue Lib "User"(cMsg As Integer) As Integer

Declare Function IsWindow Lib "User"(hWnd As Integer) As Integer
Declare Function IsChild Lib "User"(hWndParent As Integer, hWnd As Integer) As Integer
Declare Function DestroyWindow Lib "User"(hWnd As Integer) As Integer
 
Declare Function ShowWindow Lib "User"(hWnd As Integer, nCmdShow As Integer) As Integer
Declare Function FlashWindow Lib "User"(hWnd As Integer, bInvert As Integer) As Integer
Declare Sub ShowOwnedPopups Lib "User"(hWnd As Integer, fShow As Integer)
 
Declare Function OpenIcon Lib "User"(hWnd As Integer) As Integer
Declare Sub CloseWindow Lib "User"(hWnd As Integer)
Declare Sub MoveWindow Lib "User"(hWnd As Integer, X As Integer, Y As Integer, nWidth As Integer, nHeight As Integer, bRepaint As Integer)
Declare Sub SetWindowPos Lib "User"(hWnd As Integer, hWndInsertAfter As Integer, X As Integer, Y As Integer, cx As Integer, cy As Integer, wFlags As Integer)
 
Declare Sub EndDeferWindowPos Lib "User"(hWinPosInfo As Integer)
 
Declare Function IsWindowVisible Lib "User"(hWnd As Integer) As Integer
Declare Function IsIconic Lib "User"(hWnd As Integer) As Integer
Declare Function AnyPopup Lib "User"() As Integer
Declare Sub BringWindowToTop Lib "User"(hWnd As Integer)
Declare Function IsZoomed Lib "User"(hWnd As Integer) As Integer
 
Declare Sub EndDialog Lib "User"(hDlg As Integer, nResult As Integer)
Declare Function GetDlgItem Lib "User"(hDlg As Integer, nIDDlgItem As Integer) As Integer
Declare Sub SetDlgItemInt Lib "User"(hDlg As Integer, nIDDlgItem As Integer, wValue As Integer, bSigned As Integer)
Declare Function GetDlgItemInt Lib "User"(hDlg As Integer, nIDDlgItem As Integer, lpTranslated As Integer, bSigned As Integer) As Integer
Declare Sub SetDlgItemText Lib "User"(hDlg As Integer, nIDDlgItem As Integer, lpString As String)
Declare Function GetDlgItemText Lib "User"(hDlg As Integer, nIDDlgItem As Integer, lpString As String, nMaxCount As Integer) As Integer
Declare Sub CheckDlgButton Lib "User"(hDlg As Integer, nIDButton As Integer, wCheck As Integer)
Declare Sub CheckRadioButton Lib "User"(hDlg As Integer, nIDFirstButton As Integer, nIDLastButton As Integer, nIDCheckButton As Integer)
Declare Function IsDlgButtonChecked Lib "User"(hDlg As Integer, nIDButton As Integer) As Integer
Declare Function SendDlgItemMessage Lib "User"(hDlg As Integer, nIDDlgItem As Integer, wMsg As Integer, wParam As Integer, lParam As String) As Long
Declare Function GetNextDlgGroupItem Lib "User"(hDlg As Integer, hCtl As Integer, bPrevious As Integer) As Integer
Declare Function GetNextDlgTabItem Lib "User"(hDlg As Integer, hCtl As Integer, bPrevious As Integer) As Integer
Declare Function GetDlgCtrlID Lib "User"(hWnd As Integer) As Integer
Declare Function GetDialogBaseUnits Lib "User"() As Long
Declare Function DefDlgProc Lib "User"(hDlg As Integer, wMsg As Integer, wParam As Integer, lParam As String) As Long
 
 
' Clipboard Manager Functions 
Declare Function OpenClipboard Lib "User"(hWnd As Integer) As Integer
Declare Function CloseClipboard Lib "User"() As Integer
Declare Function GetClipboardOwner Lib "User"() As Integer
Declare Function SetClipboardViewer Lib "User"(hWnd As Integer) As Integer
Declare Function GetClipboardViewer Lib "User"() As Integer
Declare Function ChangeClipboardChain Lib "User"(hWnd As Integer, hWndNext As Integer) As Integer
Declare Function SetClipboardData Lib "User"(wFormat As Integer, hMem As Integer) As Integer
Declare Function GetClipboardData Lib "User"(wFormat As Integer) As Integer
Declare Function RegisterClipboardFormat Lib "User"(lpString As String) As Integer
Declare Function CountClipboardFormats Lib "User"() As Integer
Declare Function EnumClipboardFormats Lib "User"(wFormat As Integer) As Integer
Declare Function GetClipboardFormatName Lib "User"(wFormat As Integer, lpString As String, nMaxCount As Integer) As Integer
Declare Function EmptyClipboard Lib "User"() As Integer
Declare Function IsClipboardFormatAvailable Lib "User"(wFormat As Integer) As Integer
Declare Function GetPriorityClipboardFormat Lib "User"(lpPriorityList As Integer, nCount As Integer) As Integer
 
Declare Function SetFocusAPI Lib "User" Alias "SetFocus"(hWnd As Integer) As Integer
Declare Function GetFocus Lib "User"() As Integer
Declare Function GetActiveWindow Lib "User"() As Integer
Declare Function GetKeyState Lib "User"(nVirtKey As Integer) As Integer
Declare Function GetAsyncKeyState Lib "User"(vKey As Integer) As Integer
Declare Sub GetKeyboardState Lib "User"(LpKeyState As String)
Declare Sub SetKeyboardState Lib "User"(lpKeyState As String)
Declare Function EnableHardwareInput Lib "User"(bEnableInput As Integer) As Integer
Declare Function GetInputState Lib "User"() As Integer
Declare Function GetCapture Lib "User"() As Integer
Declare Function SetCapture Lib "User"(hWnd As Integer) As Integer
Declare Sub ReleaseCapture Lib "User"()
 
' Windows Functions 
Declare Function KillTimer Lib "User"(hWnd As Integer, nIDEvent As Integer) As Integer
 
Declare Function EnableWindow Lib "User"(hWnd As Integer, aBOOL As Integer) As Integer
Declare Function IsWindowEnabled Lib "User"(hWnd As Integer) As Integer
 
Declare Function LoadAccelerators Lib "User"(hInstance As Integer, lpTableName As String) As Integer
 
Declare Function GetSystemMetrics Lib "User"(nIndex As Integer) As Integer
 
Declare Function LoadMenu Lib "User"(hInstance As Integer, lpString As String) As Integer
Declare Function LoadMenuIndirect Lib "User"(lpMenuTemplate As String) As Integer
Declare Function GetMenu Lib "User"(hWnd As Integer) As Integer
Declare Function SetMenu Lib "User"(hWnd As Integer, hMenu As Integer) As Integer
Declare Function ChangeMenu Lib "User"(hMenu As Integer, wID As Integer, lpszNew As String, wIDNew As Integer, wChange As Integer) As Integer
Declare Function HiliteMenuItem Lib "User"(hWnd As Integer, hMenu As Integer, wIDHiliteItem As Integer, wHilite As Integer) As Integer
Declare Function GetMenuString Lib "User"(hMenu As Integer, wIDItem As Integer, lpString As String, nMaxCount As Integer, wFlag As Integer) As Integer
Declare Function GetMenuState Lib "User"(hMenu As Integer, wId As Integer, wFlags As Integer) As Integer
Declare Sub DrawMenuBar Lib "User"(hWnd As Integer)
Declare Function GetSystemMenu Lib "User"(hWnd As Integer, bRevert As Integer) As Integer
Declare Function CreateMenu Lib "User"() As Integer
Declare Function CreatePopupMenu Lib "User"() As Integer
Declare Function DestroyMenu Lib "User"(hMenu As Integer) As Integer
Declare Function CheckMenuItem Lib "User"(hMenu As Integer, wIDCheckItem As Integer, wCheck As Integer) As Integer
Declare Function EnableMenuItem Lib "User"(hMenu As Integer, wIDEnableItem As Integer, wEnable As Integer) As Integer
Declare Function GetSubMenu Lib "User"(hMenu As Integer, nPos As Integer) As Integer
Declare Function GetMenuItemID Lib "User"(hMenu As Integer, nPos As Integer) As Integer
Declare Function GetMenuItemCount Lib "User"(hMenu As Integer) As Integer
 
Declare Function InsertMenu Lib "User"(hMenu As Integer, nPosition As Integer, wFlags As Integer, wIDNewItem As Integer, lpNewItem As String) As Integer
Declare Function AppendMenu Lib "User"(hMenu As Integer, wFlags As Integer, wIDNewItem As Integer, lpNewItem As String) As Integer
Declare Function ModifyMenu Lib "User"(hMenu As Integer, nPosition As Integer, wFlags As Integer, wIDNewItem As Integer, lpString As String) As Integer
Declare Function RemoveMenu Lib "User"(hMenu As Integer, nPosition As Integer, wFlags As Integer) As Integer
Declare Function DeleteMenu Lib "User"(hMenu As Integer, nPosition As Integer, wFlags As Integer) As Integer
Declare Function SetMenuItemBitmaps Lib "User"(hMenu As Integer, nPosition As Integer, wFlags As Integer, hBitmapUnchecked As Integer, hBitmapChecked As Integer) As Integer
Declare Function GetMenuCheckMarkDimensions Lib "User"() As Long
Declare Function TrackPopupMenu Lib "User"(hMenu As Integer, wFlags As Integer, x As Integer, y As Integer, nReserved As Integer, hWnd As Integer, lpReserved As String) As Integer
 
Declare Sub UpdateWindow Lib "User"(hWnd As Integer)
Declare Function SetActiveWindow Lib "User"(hWnd As Integer) As Integer
 
Declare Function GetUpdateRgn Lib "User"(hWnd As Integer, hRgn As Integer, fErase As Integer) As Integer
 
Declare Function ExcludeUpdateRgn Lib "User"(hDC As Integer, hWnd As Integer) As Integer
 
Declare Sub InvalidateRgn Lib "User"(hWnd As Integer, hRgn As Integer, bErase As Integer)
Declare Sub ValidateRgn Lib "User"(hWnd As Integer, hRgn As Integer)
 
Declare Function SetScrollPos Lib "User"(hWnd As Integer, nBar As Integer, nPos As Integer, bRedraw As Integer) As Integer
Declare Function GetScrollPos Lib "User"(hWnd As Integer, nBar As Integer) As Integer
Declare Sub SetScrollRange Lib "User"(hWnd As Integer, nBar As Integer, nMinPos As Integer, nMaxPos As Integer, bRedraw As Integer)
Declare Sub GetScrollRange Lib "User"(hWnd As Integer, nBar As Integer, lpMinPos As Integer, lpMaxPos As Integer)
Declare Sub ShowScrollBar Lib "User"(hWnd As Integer, wBar As Integer, bShow As Integer)
 
Declare Function SetProp Lib "User"(hWnd As Integer, lpString As String, hData As Integer) As Integer
Declare Function GetProp Lib "User"(hWnd As Integer, lpString As String) As Integer
Declare Function RemoveProp Lib "User"(hWnd As Integer, lpString As String) As Integer
Declare Sub SetWindowText Lib "User"(hWnd As Integer, lpString As String)
Declare Function GetWindowText Lib "User"(hWnd As Integer, lpString As String, aint As Integer) As Integer
Declare Function GetWindowTextLength Lib "User"(hWnd As Integer) As Integer
 
Declare Function MessageBox Lib "User"(hWnd As Integer, lpText As String, lpCaption As String, wType As Integer) As Integer
Declare Sub MessageBeep Lib "User"(wType As Integer)
 
Declare Function ShowCursor Lib "User"(bShow As Integer) As Integer
Declare Sub SetCursorPos Lib "User"(X As Integer, Y As Integer)
Declare Function SetCursor Lib "User"(hCursor As Integer) As Integer
Declare Sub ClipCursor Lib "User"(lpRect As String)
 
Declare Sub CreateCaret Lib "User"(hWnd As Integer, hBitmap As Integer, nWidth As Integer, nHeight As Integer)
Declare Function GetCaretBlinkTime Lib "User"() As Integer
Declare Sub SetCaretBlinkTime Lib "User"(wMSeconds As Integer)
Declare Sub DestroyCaret Lib "User"()
Declare Sub HideCaret Lib "User"(hWnd As Integer)
Declare Sub ShowCaret Lib "User"(hWnd As Integer)
Declare Sub SetCaretPos Lib "User"(X As Integer, Y As Integer)

Declare Function WindowFromPoint Lib "User"(ptScreen As String) As Integer
Declare Function ChildWindowFromPoint Lib "User"(hWnd As Integer, ptScreen As String) As Integer
 
 
Declare Function GetSysColor Lib "User"(nIndex As Integer) As Long
Declare Sub SetSysColors Lib "User"(nChanges As Integer, lpSysColor As Integer, lpColorValues As Long)
 
Declare Function FillRgn Lib "GDI"(hDC As Integer, hRgn As Integer, hBrush As Integer) As Integer
Declare Function FrameRgn Lib "GDI"(hDC As Integer, hRgn As Integer, hBrush As Integer, nWidth As Integer, nHeight As Integer) As Integer
Declare Function InvertRgn Lib "GDI"(hDC As Integer, hRgn As Integer) As Integer
Declare Function PaintRgn Lib "GDI"(hDC As Integer, hRgn As Integer) As Integer
Declare Function PtInRegion Lib "GDI"(hRgn As Integer, X As Integer, Y As Integer) As Integer
 
Declare Function GetCurrentTime Lib "User"() As Long
Declare Function GetTickCount Lib "User"() As Long
 
Declare Function GetWindowWord Lib "User"(hWnd As Integer, nIndex As Integer) As Integer
Declare Function SetWindowWord Lib "User"(hWnd As Integer, nIndex As Integer, wNewWord As Integer) As Integer
Declare Function GetWindowLong Lib "User"(hWnd As Integer, nIndex As Integer) As Long
Declare Function SetWindowLong Lib "User"(hWnd As Integer, nIndex As Integer, dwNewLong As Long) As Long
Declare Function GetClassWord Lib "User"(hWnd As Integer, nIndex As Integer) As Integer
Declare Function SetClassWord Lib "User"(hWnd As Integer, nIndex As Integer, wNewWord As Integer) As Integer
Declare Function GetClassLong Lib "User"(hWnd As Integer, nIndex As Integer) As Long
Declare Function SetClassLong Lib "User"(hWnd As Integer, nIndex As Integer, dwNewLong As Long) As Long
Declare Function GetDesktopHwnd Lib "User"() As Integer
Declare Function GetDesktopWindow Lib "User"() As Integer
 
 
Declare Function GetParent Lib "User"(hWnd As Integer) As Integer
Declare Function SetParent Lib "User"(hWndChild As Integer, hWndNewParent As Integer) As Integer
Declare Function FindWindow Lib "User"(lpClassName As String, lpWindowName As String) As Integer
Declare Function GetClassName Lib "User"(hWnd As Integer, lpClassName As String, nMaxCount As Integer) As Integer
Declare Function GetTopWindow Lib "User"(hWnd As Integer) As Integer
Declare Function GetNextWindow Lib "User"(hWnd As Integer, wFlag As Integer) As Integer
Declare Function GetWindowTask Lib "User"(hWnd As Integer) As Integer
Declare Function GetLastActivePopup Lib "User"(hwndOwnder As Integer) As Integer
 
Declare Function GetWindow Lib "User"(hWnd As Integer, wCmd As Integer) As Integer
 
 
' Resource Loading Routines 
Declare Function LoadBitmap Lib "User"(hInstance As Integer, lpBitmapName As String) As Integer
Declare Function LoadCursor Lib "User"(hInstance As Integer, lpCursorName As String) As Integer
Declare Function DestroyCursor Lib "User"(hCursor As Integer) As Integer
 
Declare Function LoadIcon Lib "User"(hInstance As Integer, lpIconName As String) As Integer
Declare Function DestroyIcon Lib "User"(hIcon As Integer) As Integer
 
Declare Function LoadString Lib "User"(hInstance As Integer, wID As Integer, lpBuffer As String, nBufferMax As Integer) As Integer
 
Declare Function AddFontResource Lib "GDI"(lpFilename As String) As Integer
Declare Function RemoveFontResource Lib "GDI"(lpFilename As String) As Integer
 
 
' Dialog Manager Routines 

Declare Function DlgDirList Lib "User"(hDlg As Integer, lpPathSpec As String, nIDListBox As Integer, nIDStaticPath As Integer, wFiletype As Integer) As Integer
Declare Function DlgDirSelect Lib "User"(hDlg As Integer, lpString As String, nIDListBox As Integer) As Integer
Declare Function DlgDirListComboBox Lib "User"(hDlg As Integer, lpPathSpec As String, nIDComboBox As Integer, nIDStaticPath As Integer, wFileType As Integer) As Integer
Declare Function DlgDirSelectComboBox Lib "User"(hDlg As Integer, lpString As String, nIDComboBox As Integer) As Integer
 
 
' Sound Functions 
' 
Declare Function OpenSound Lib "Sound"() As Integer
Declare Sub CloseSound Lib "Sound"()
Declare Function SetVoiceQueueSize Lib "Sound"(nVoice As Integer, nBytes As Integer) As Integer
Declare Function SetVoiceNote Lib "Sound"(nVoice As Integer, nValue As Integer, nLength As Integer, nCdots As Integer) As Integer
Declare Function SetVoiceAccent Lib "Sound"(nVoice As Integer, nTempo As Integer, nVolume As Integer, nMode As Integer, nPitch As Integer) As Integer
Declare Function SetVoiceEnvelope Lib "Sound"(nVoice As Integer, nShape As Integer, nRepeat As Integer) As Integer
Declare Function SetSoundNoise Lib "Sound"(nSource As Integer, nDuration As Integer) As Integer
Declare Function SetVoiceSound Lib "Sound"(nVoice As Integer, lFrequency As Long, nDuration As Integer) As Integer
Declare Function StartSound Lib "Sound"() As Integer
Declare Function StopSound Lib "Sound"() As Integer
Declare Function WaitSoundState Lib "Sound"(nState As Integer) As Integer
Declare Function SyncAllVoices Lib "Sound"() As Integer
Declare Function CountVoiceNotes Lib "Sound"(nVoice As Integer) As Integer
Declare Function GetThresholdEvent Lib "Sound"() As Integer
Declare Function GetThresholdStatus Lib "Sound"() As Integer
Declare Function SetVoiceThreshold Lib "Sound"(nVoice As Integer, nNotes As Integer) As Integer
 
Declare Function OpenComm Lib "User"(lpComName As String, wInQueue As Integer, wOutQueue As Integer) As Integer
Declare Function ReadComm Lib "User"(nCid As Integer, lpBuf As String, nSize As Integer) As Integer
Declare Function UngetCommChar Lib "User"(nCid As Integer, cChar As Integer) As Integer
Declare Function WriteComm Lib "User"(nCid As Integer, lpBuf As String, nSize As Integer) As Integer
Declare Function CloseComm Lib "User"(nCid As Integer) As Integer
Declare Function TransmitCommChar Lib "User"(nCid As Integer, cChar As Integer) As Integer
Declare Function SetCommEventMask Lib "User"(nCid As Integer, nEvtMask As Integer) As Long
Declare Function GetCommEventMask Lib "User"(nCid As Integer, nEvtMask As Integer) As Integer
Declare Function SetCommBreak Lib "User"(nCid As Integer) As Integer
Declare Function ClearCommBreak Lib "User"(nCid As Integer) As Integer
Declare Function FlushComm Lib "User"(nCid As Integer, nQueue As Integer) As Integer
Declare Function EscapeCommFunction Lib "User"(nCid As Integer, nFunc As Integer) As Integer
 
Declare Function DefFrameProc Lib "User"(hWnd As Integer, hWndMDIClient As Integer, wMsg As Integer, wParam As Integer, lParam As Long) As Long
Declare Function DefMDIChildProc Lib "User"(hWnd As Integer, wMsg As Integer, wParam As Integer, lParam As Long) As Long
 
Declare Function ArrangeIconicWindows Lib "User"(hWnd As Integer) As Integer
 
 
Declare Function WinHelp Lib "User"(hWnd As Integer, lpHelpFile As String, wCommand As Integer, dwData As String) As Integer
 

' 
'*************************** Windows 3.1 Extensions  ******************

 
Declare Function GetFreeSystemResources Lib "User"(fuSysResource As Integer) As Integer

Declare Sub LogError Lib "Kernel"(uErr As Integer, lpvInfo As String)

Declare Function ExitWindowsExec Lib "User"(lpszExe As String, lpszParams As String) As Integer
Declare Function IsBadReadPtr Lib "Kernel"(lp As String, cb As Integer) As Integer
Declare Function IsBadWritePtr Lib "Kernel"(lp As String, cb As Integer) As Integer
Declare Function IsBadStringPtr Lib "Kernel"(lpsz As String, cchMax As Integer) As Integer
Declare Function IsTask Lib "Kernel"(htask As Integer) As Integer
 
Declare Function lstrcpyn Lib "Kernel"(lpszString1 As String, lpszString2 As String, cChars As Integer) As String
Declare Function IsDBCSLeadByte Lib "Kernel"(bTestChar As Integer) As Integer
 
 
Declare Function StartPage Lib "GDI"(hdc As Integer) As Integer
Declare Function EndPage Lib "GDI"(hdc As Integer) As Integer
Declare Function EndDocAPI Lib "GDI" Alias "EndDoc"(hdc As Integer) As Integer
Declare Function AbortDoc Lib "GDI"(hdc As Integer) As Integer
Declare Function SpoolFile Lib "GDI"(lpszPrinter As String, lpszPort As String, lpszJob As String, lpszFile As String) As Integer
 
Declare Function SystemParametersInfo Lib "User"(uAction As Integer, uParam As Integer, lpvParam As String, fuWinIni As Integer) As Integer
 
Declare Function GetMessageExtraInfo Lib "User"() As Long
Declare Function GetQueueStatus Lib "User"(fuFlags As Integer) As Long
 
Declare Function GetDCEx Lib "User"(hwnd As Integer, hrgnclip As Integer, fdwOptions As Long) As Integer
 
Declare Function LockWindowUpdate Lib "User"(hwndLock As Integer) As Integer
 
 
Declare Function IsMenu Lib "User"(hmenu As Integer) As Integer
 
Declare Function GetOpenClipboardWindow Lib "User"() As Integer
Declare Function CopyCursor Lib "User"(hinst As Integer, hcur As Integer) As Integer
Declare Function GetCursor Lib "User"() As Integer
Declare Function CopyIcon Lib "User"(hinst As Integer, hicon As Integer) As Integer
 
 
Declare Function UnhookWindowsHookEx Lib "User"(hHook As Integer) As Integer
Declare Function CallNextHookEx Lib "User"(hHook As Integer, ncode As Integer, wParam As Integer, lParam As String) As Long

Declare Function QuerySendMessage Lib "User"(hreserved1 As Integer, hreserved2 As Integer, hreserved3 As Integer, lpMessage As String) As Integer
Declare Function LockInput Lib "User"(hReserved As Integer, hwndInput As Integer, fLock As Integer) As Integer
Declare Function GetSystemDebugState Lib "User"() As Long
 
 
Declare Function EnableCommNotification Lib "User"(idComDev As Integer, hwnd As Integer, cbWriteNotify As Integer, OutQueue As Integer) As Integer
 
 
Declare Function DefDriverProc Lib "User"(dwDriverIdentifier As Long, hdrvr As Integer, umsg As Integer, lParam1 As String, lParam2 As String) As Long
Declare Function OpenDriver Lib "User"(lpDriverName As String, lpSectionName As String, lParam As String) As Integer
Declare Function CloseDriver Lib "User"(hdrvr As Integer, lParam1 As String, lParam2 As String) As Long
Declare Function SendDriverMessage Lib "User"(hdrvr As Integer, msg As Integer, lParam1 As String, lParam2 As String) As Long
Declare Function GetDriverModuleHandle Lib "User"(hdrvr As Integer) As Integer
Declare Function GetNextDriver Lib "User"(hdrvr As Integer, fdwFlag As Long) As Integer
 
Declare Function LZStart Lib "LZexpand.dll"() As Integer
Declare Sub LZDone Lib "LZexpand.dll"()
Declare Function CopyLZFile Lib "LZexpand.dll"(hfSource As Integer, hfDest As Integer) As Long
Declare Function LZCopy Lib "LZexpand.dll"(hfSource As Integer, hfDest As Integer) As Long
Declare Function LZInit Lib "LZexpand.dll"(hfSrc As Integer) As Integer
Declare Function GetExpandedName Lib "LZexpand.dll"(lpszSource As String, lpszBuffer As String) As Integer
Declare Function LZSeek Lib "LZexpand.dll"(hfFile As Integer, lOffset As Long, nOrigin As Integer) As Long
Declare Function LZRead Lib "LZexpand.dll"(hfFile As Integer, lpvBuf As String, cb As Integer) As Integer
Declare Sub LZClose Lib "LZexpand.dll"(hfFile As Integer)
 
 
Declare Function WNetAddConnection Lib "User"(lpszNetPath As String, lpszPassword As String, lpszLocalName As String) As Integer
Declare Function WNetCancelConnection Lib "User"(lpszName As String, bForce As Integer) As Integer
Declare Function WNetGetConnection Lib "User"(lpszLocalName As String, lpszRemoteName As String, cbRemoteName As Integer) As Integer


