freepascal.compiler/rtl/win16/wintypes.inc

type
  Bool = WordBool;
  
  UINT = Word;
  LONG = LongInt;
  
  WPARAM = UINT;
  LPARAM = LONG;
  LRESULT = LONG;
  
  { The Win16 C headers define the P-prefixed types - PSTR, etc. as near pointers.
    Borland Pascal 7 defines them as far pointers (in other words, the same as the
    LP-prefixed type - LPSTR)  We define them as the default pointer type for the
    current memory model. This means we'll be BP7 compatible in the large memory
    model (which is the only memory model supported by BP7).

    Also, using memory models other than 'large' under win16 is somewhat nasty and
    is better to be avoided. }
  PSTR = ^AnsiChar;
  NPSTR = ^AnsiChar; near;
//  LPSTR = ^AnsiChar; far;
  LPCSTR = ^AnsiChar; far;
  
  { PBYTE is already defined in system }
  LPBYTE = ^Byte; far;
  
  PINT = ^SmallInt;
  LPINT = ^SmallInt; far;
  
  { PWORD is already defined in system }
  LPWORD = ^Word; far;

  PUINT = ^UINT;
  LPUINT = ^UINT; far;
  
  PLONG = ^LONG;
  LPLONG = ^LONG; far;
  
  { PDWORD is already defined in system }
  LPDWORD = ^DWORD; far;
  
  PBOOL = ^BOOL;
  LPBOOL = ^BOOL; far;
  
  LPVOID = FarPointer;
  
  FARPROC = FarPointer;
  TFarProc = FARPROC;

  HANDLE = THandle;
  PHANDLE = ^THandle;
  SPHANDLE = ^THandle; near;
  LPHANDLE = ^THandle; far;
  
//  HGLOBAL = THandle;
  HLOCAL = THandle;
  
  TGlobalHandle = THandle;
  TLocalHandle = THandle;
  
  ATOM = UINT;
  TAtom = ATOM;
  
  HINST = THandle; { instead of HINSTANCE, to avoid conflict with var hInstance }
//  HMODULE = HINST;
  
const
  { GetWinFlags result mask values }
  WF_PMODE      = $0001;
  WF_CPU286     = $0002;
  WF_CPU386     = $0004;
  WF_CPU486     = $0008;
  WF_STANDARD   = $0010;
  WF_WIN286     = $0010;
  WF_ENHANCED   = $0020;
  WF_WIN386     = $0020;
  WF_CPU086     = $0040;
  WF_CPU186     = $0080;
  WF_LARGEFRAME = $0100;
  WF_SMALLFRAME = $0200;
  WF_80x87      = $0400;
  WF_PAGING     = $0800;
  WF_WLO        = $8000;

{ ExitWindows values }
  EW_RESTARTWINDOWS = $42;

{ SetErrorMode() constants }
  SEM_FAILCRITICALERRORS = $0001;
  SEM_NOGPFAULTERRORBOX  = $0002;
  SEM_NOOPENFILEERRORBOX = $8000;

type
  LPCATCHBUF = ^CATCHBUF; far;
  CATCHBUF = array [0..8] of SmallInt;
  PCatchBuf = ^TCatchBuf;
  TCatchBuf = CATCHBUF;

const
  HINSTANCE_ERROR = HINST(32);

{ Windows Exit Procedure flag values }
  WEP_SYSTEM_EXIT = 1;
  WEP_FREE_DLL    = 0;

type
  LPSEGINFO = ^SEGINFO; far;
  SEGINFO = record
    offSegment: UINT;
    cbSegment: UINT;
    flags: UINT;
    cbAlloc: UINT;
    h: HGLOBAL;
    alignShift: UINT;
    reserved: array [0..1] of UINT;
  end;
  PSegInfo = ^TSegInfo;
  TSegInfo = SEGINFO;

  HTASK = THandle;

const
{ Global Memory Flags }
  GMEM_FIXED       = $0000;
  GMEM_MOVEABLE    = $0002;
  GMEM_NOCOMPACT   = $0010;
  GMEM_NODISCARD   = $0020;
  GMEM_ZEROINIT    = $0040;
  GMEM_MODIFY      = $0080;
  GMEM_DISCARDABLE = $0100;
  GMEM_NOT_BANKED  = $1000;
  GMEM_SHARE       = $2000;
  GMEM_DDESHARE    = $2000;
  GMEM_NOTIFY      = $4000;
  GMEM_LOWER       = GMEM_NOT_BANKED;

  GHND             = GMEM_MOVEABLE or GMEM_ZEROINIT;
  GPTR             = GMEM_FIXED or GMEM_ZEROINIT;

{ GlobalFlags return flags (in addition to GMEM_DISCARDABLE) }
  GMEM_DISCARDED   = $4000;
  GMEM_LOCKCOUNT   = $00FF;

{ Low system memory notification message }
  WM_COMPACTING    = $0041;

type
  GNOTIFYPROC = function(hGlbl: HGLOBAL): BOOL; far;

const
{ Local Memory Flags }
  LMEM_FIXED       = $0000;
  LMEM_MOVEABLE    = $0002;
  LMEM_NOCOMPACT   = $0010;
  LMEM_NODISCARD   = $0020;
  LMEM_ZEROINIT    = $0040;
  LMEM_MODIFY      = $0080;
  LMEM_DISCARDABLE = $0F00;

  LHND             = LMEM_MOVEABLE or LMEM_ZEROINIT;
  LPTR             = LMEM_FIXED or LMEM_ZEROINIT;

  NONZEROLHND      = LMEM_MOVEABLE;
  NONZEROLPTR      = LMEM_FIXED;

{ LocalFlags return flags (in addition to LMEM_DISCARDABLE) }
  LMEM_DISCARDED   = $4000;
  LMEM_LOCKCOUNT   = $00FF;

{ File I/O }
type
  HFILE = SmallInt;

const
  HFILE_ERROR = HFILE(-1);

type
{ OpenFile() Structure }
  POFSTRUCT = ^OFSTRUCT;
  NPOFSTRUCT = ^OFSTRUCT; near;
  LPOFSTRUCT = ^OFSTRUCT; far;
  OFSTRUCT = record
    cBytes: BYTE;
    fFixedDisk: BYTE;
    nErrCode: UINT;
    reserved: array [0..3] of BYTE;
    szPathName: array [0..127] of AnsiChar;
  end;
  TOFStruct = OFSTRUCT;

const
{ OpenFile() Flags }
  OF_READ             = $0000;
  OF_WRITE            = $0001;
  OF_READWRITE        = $0002;
  OF_SHARE_COMPAT     = $0000;
  OF_SHARE_EXCLUSIVE  = $0010;
  OF_SHARE_DENY_WRITE = $0020;
  OF_SHARE_DENY_READ  = $0030;
  OF_SHARE_DENY_NONE  = $0040;
  OF_PARSE            = $0100;
  OF_DELETE           = $0200;
  OF_VERIFY           = $0400;      { Used with OF_REOPEN }
  OF_SEARCH           = $0400;      { Used without OF_REOPEN }
  OF_CANCEL           = $0800;
  OF_CREATE           = $1000;
  OF_PROMPT           = $2000;
  OF_EXIST            = $4000;
  OF_REOPEN           = $8000;

{ _lopen() flags }
  _READ      = 0;
  _WRITE     = 1;
  READ_WRITE = 2;

{ _llseek origin values }
  SEEK_SET = 0;
  SEEK_CUR = 1;
  SEEK_END = 2;

{ GetTempFileName() Flags }
  TF_FORCEDRIVE = BYTE($80);

{ GetDriveType return values }
  DRIVE_REMOVABLE = 2;
  DRIVE_FIXED     = 3;
  DRIVE_REMOTE    = 4;

{ Network support }
{ Errors }
  WN_SUCCESS           = $0000;
  WN_NOT_SUPPORTED     = $0001;
  WN_NET_ERROR         = $0002;
  WN_MORE_DATA         = $0003;
  WN_BAD_POINTER       = $0004;
  WN_BAD_VALUE         = $0005;
  WN_BAD_PASSWORD      = $0006;
  WN_ACCESS_DENIED     = $0007;
  WN_FUNCTION_BUSY     = $0008;
  WN_WINDOWS_ERROR     = $0009;
  WN_BAD_USER          = $000A;
  WN_OUT_OF_MEMORY     = $000B;
  WN_CANCEL            = $000C;
  WN_CONTINUE          = $000D;

{ Connection errors }
  WN_NOT_CONNECTED     = $0030;
  WN_OPEN_FILES        = $0031;
  WN_BAD_NETNAME       = $0032;
  WN_BAD_LOCALNAME     = $0033;
  WN_ALREADY_CONNECTED = $0034;
  WN_DEVICE_ERROR      = $0035;
  WN_CONNECTION_CLOSED = $0036;

type
{ Resource Management }
  HRSRC = THandle;
  RSRCHDLRPROC = function(hMem: HGLOBAL; hInstance: HINST; hResInfo: HRSRC): HGLOBAL;far;
  MAKEINTRESOURCE = LPCSTR;

const
{ Predefined Resource Types }
  RT_CURSOR       = MAKEINTRESOURCE(1);
  RT_BITMAP       = MAKEINTRESOURCE(2);
  RT_ICON         = MAKEINTRESOURCE(3);
  RT_MENU         = MAKEINTRESOURCE(4);
  RT_DIALOG       = MAKEINTRESOURCE(5);
  RT_STRING       = MAKEINTRESOURCE(6);
  RT_FONTDIR      = MAKEINTRESOURCE(7);
  RT_FONT         = MAKEINTRESOURCE(8);
  RT_ACCELERATOR  = MAKEINTRESOURCE(9);
  RT_RCDATA       = MAKEINTRESOURCE(10);

  RT_GROUP_CURSOR = MAKEINTRESOURCE(12);
  RT_GROUP_ICON   = MAKEINTRESOURCE(14);

{ OEM Resource Ordinal Numbers }
  OBM_CLOSE       = 32754;
  OBM_UPARROW     = 32753;
  OBM_DNARROW     = 32752;
  OBM_RGARROW     = 32751;
  OBM_LFARROW     = 32750;
  OBM_REDUCE      = 32749;
  OBM_ZOOM        = 32748;
  OBM_RESTORE     = 32747;
  OBM_REDUCED     = 32746;
  OBM_ZOOMD       = 32745;
  OBM_RESTORED    = 32744;
  OBM_UPARROWD    = 32743;
  OBM_DNARROWD    = 32742;
  OBM_RGARROWD    = 32741;
  OBM_LFARROWD    = 32740;
  OBM_MNARROW     = 32739;
  OBM_COMBO       = 32738;

  OBM_OLD_CLOSE   = 32767;
  OBM_SIZE        = 32766;
  OBM_OLD_UPARROW = 32765;
  OBM_OLD_DNARROW = 32764;
  OBM_OLD_RGARROW = 32763;
  OBM_OLD_LFARROW = 32762;
  OBM_BTSIZE      = 32761;
  OBM_CHECK       = 32760;
  OBM_CHECKBOXES  = 32759;
  OBM_BTNCORNERS  = 32758;
  OBM_OLD_REDUCE  = 32757;
  OBM_OLD_ZOOM    = 32756;
  OBM_OLD_RESTORE = 32755;

  OCR_NORMAL      = 32512;
  OCR_IBEAM       = 32513;
  OCR_WAIT        = 32514;
  OCR_CROSS       = 32515;
  OCR_UP          = 32516;
  OCR_SIZE        = 32640;
  OCR_ICON        = 32641;
  OCR_SIZENWSE    = 32642;
  OCR_SIZENESW    = 32643;
  OCR_SIZEWE      = 32644;
  OCR_SIZENS      = 32645;
  OCR_SIZEALL     = 32646;
  OCR_ICOCUR      = 32647;

  OIC_SAMPLE      = 32512;
  OIC_HAND        = 32513;
  OIC_QUES        = 32514;
  OIC_BANG        = 32515;
  OIC_NOTE        = 32516;

type
{ Atom Management }
  MAKEINTATOM = LPCSTR;

const
{ WIN.INI Support }
  WM_WININICHANGE = $001A;

type
{ GDI typedefs, structures, and functions }
  HDC      = THandle;
  HGDIOBJ  = THandle;
  HBITMAP  = THandle;
  HPEN     = THandle;
  HBRUSH   = THandle;
  HRGN     = THandle;
  HPALETTE = THandle;
  HFONT    = THandle;

  PRECT = ^RECT;
  NPRECT = ^RECT; near;
  LPRECT = ^RECT; far;
  RECT = record
    left: SmallInt;
    top: SmallInt;
    right: SmallInt;
    bottom: SmallInt;
  end;
  TRect = RECT;

  PPOINT = ^POINT;
  NPPOINT = ^POINT; near;
  LPPOINT = ^POINT; far;
  POINT = record
    x: SmallInt;
    y: SmallInt;
  end;
  TPoint = POINT;

  MAKEPOINT = POINT;

{ Device Capabilities }
const
{ Device Parameters for GetDeviceCaps() }
  DRIVERVERSION = 0;
  TECHNOLOGY    = 2;
  HORZSIZE      = 4;
  VERTSIZE      = 6;
  HORZRES       = 8;
  VERTRES       = 10;
  BITSPIXEL     = 12;
  PLANES        = 14;
  NUMBRUSHES    = 16;
  NUMPENS       = 18;
  NUMMARKERS    = 20;
  NUMFONTS      = 22;
  NUMCOLORS     = 24;
  PDEVICESIZE   = 26;
  CURVECAPS     = 28;
  LINECAPS      = 30;
  POLYGONALCAPS = 32;
  TEXTCAPS      = 34;
  CLIPCAPS      = 36;
  RASTERCAPS    = 38;
  ASPECTX       = 40;
  ASPECTY       = 42;
  ASPECTXY      = 44;

  LOGPIXELSX    = 88;
  LOGPIXELSY    = 90;

  SIZEPALETTE   = 104;
  NUMRESERVED   = 106;
  COLORRES      = 108;

{ GetDeviceCaps() return value masks }

{ TECHNOLOGY }
  DT_PLOTTER          = 0;
  DT_RASDISPLAY       = 1;
  DT_RASPRINTER       = 2;
  DT_RASCAMERA        = 3;
  DT_CHARSTREAM       = 4;
  DT_METAFILE         = 5;
  DT_DISPFILE         = 6;

{ CURVECAPS }
  CC_NONE             = $0000;
  CC_CIRCLES          = $0001;
  CC_PIE              = $0002;
  CC_CHORD            = $0004;
  CC_ELLIPSES         = $0008;
  CC_WIDE             = $0010;
  CC_STYLED           = $0020;
  CC_WIDESTYLED       = $0040;
  CC_INTERIORS        = $0080;
  CC_ROUNDRECT        = $0100;

{ LINECAPS }
  LC_NONE             = $0000;
  LC_POLYLINE         = $0002;
  LC_MARKER           = $0004;
  LC_POLYMARKER       = $0008;
  LC_WIDE             = $0010;
  LC_STYLED           = $0020;
  LC_WIDESTYLED       = $0040;
  LC_INTERIORS        = $0080;

{ POLYGONALCAPS }
  PC_NONE             = $0000;
  PC_POLYGON          = $0001;
  PC_RECTANGLE        = $0002;
  PC_WINDPOLYGON      = $0004;
  PC_SCANLINE         = $0008;
  PC_WIDE             = $0010;
  PC_STYLED           = $0020;
  PC_WIDESTYLED       = $0040;
  PC_INTERIORS        = $0080;

{ TEXTCAPS }
  TC_OP_CHARACTER     = $0001;
  TC_OP_STROKE        = $0002;
  TC_CP_STROKE        = $0004;
  TC_CR_90            = $0008;
  TC_CR_ANY           = $0010;
  TC_SF_X_YINDEP      = $0020;
  TC_SA_DOUBLE        = $0040;
  TC_SA_INTEGER       = $0080;
  TC_SA_CONTIN        = $0100;
  TC_EA_DOUBLE        = $0200;
  TC_IA_ABLE          = $0400;
  TC_UA_ABLE          = $0800;
  TC_SO_ABLE          = $1000;
  TC_RA_ABLE          = $2000;
  TC_VA_ABLE          = $4000;
  TC_RESERVED         = $8000;

{ CLIPCAPS }
{$ifndef SYSTEMUNIT}
  CP_NONE             = $0000;
{$endif SYSTEMUNIT}
  CP_RECTANGLE        = $0001;
  CP_REGION           = $0002;

{ RASTERCAPS }
  RC_NONE             = $0000;
  RC_BITBLT           = $0001;
  RC_BANDING          = $0002;
  RC_SCALING          = $0004;
  RC_BITMAP64         = $0008;
  RC_GDI20_OUTPUT     = $0010;
  RC_GDI20_STATE      = $0020;
  RC_SAVEBITMAP       = $0040;
  RC_DI_BITMAP        = $0080;
  RC_PALETTE          = $0100;
  RC_DIBTODEV         = $0200;
  RC_BIGFONT          = $0400;
  RC_STRETCHBLT       = $0800;
  RC_FLOODFILL        = $1000;
  RC_STRETCHDIB       = $2000;
  RC_OP_DX_OUTPUT     = $4000;
  RC_DEVBITS          = $8000;

{ Coordinate transformation support }

{ Map modes }
  MM_TEXT        = 1;
  MM_LOMETRIC    = 2;
  MM_HIMETRIC    = 3;
  MM_LOENGLISH   = 4;
  MM_HIENGLISH   = 5;
  MM_TWIPS       = 6;
  MM_ISOTROPIC   = 7;
  MM_ANISOTROPIC = 8;

{ Coordinate Modes }
  ABSOLUTE = 1;
  RELATIVE = 2;

{ Color support }
type
  PCOLORREF = ^COLORREF;
  LPCOLORREF = ^COLORREF; far;
  COLORREF = DWORD;
  TColorRef = COLORREF;

const
  COLOR_SCROLLBAR       = 0;
  COLOR_BACKGROUND      = 1;
  COLOR_ACTIVECAPTION   = 2;
  COLOR_INACTIVECAPTION = 3;
  COLOR_MENU            = 4;
  COLOR_WINDOW          = 5;
  COLOR_WINDOWFRAME     = 6;
  COLOR_MENUTEXT        = 7;
  COLOR_WINDOWTEXT      = 8;
  COLOR_CAPTIONTEXT     = 9;
  COLOR_ACTIVEBORDER    = 10;
  COLOR_INACTIVEBORDER  = 11;
  COLOR_APPWORKSPACE    = 12;
  COLOR_HIGHLIGHT       = 13;
  COLOR_HIGHLIGHTTEXT   = 14;
  COLOR_BTNFACE         = 15;
  COLOR_BTNSHADOW       = 16;
  COLOR_GRAYTEXT        = 17;
  COLOR_BTNTEXT         = 18;

  WM_SYSCOLORCHANGE = $0015;

type
{ GDI Object Support }
  GOBJENUMPROC = function(lpLogObject: FarPointer; lpData: LPARAM): SmallInt; far;

const
{ Object types for EnumObjects() }
  OBJ_PEN   = 1;
  OBJ_BRUSH = 2;

{ Pen support }

{ Logical Pen }
type
  PLOGPEN = ^LOGPEN;
  NPLOGPEN = ^LOGPEN; near;
  LPLOGPEN = ^LOGPEN; far;
  LOGPEN = record
    lopnStyle: UINT;
    lopnWidth: POINT;
    lopnColor: COLORREF;
  end;
  TLogPen = LOGPEN;

{ Pen Styles }
const
  PS_SOLID       = 0;
  PS_DASH        = 1;
  PS_DOT         = 2;
  PS_DASHDOT     = 3;
  PS_DASHDOTDOT  = 4;
  PS_NULL        = 5;
  PS_INSIDEFRAME = 6;

{ Stock pens for use with GetStockObject(); }
  WHITE_PEN = 6;
  BLACK_PEN = 7;
  NULL_PEN  = 8;

{ Brush support }

{ Brush Styles }
  BS_SOLID      = 0;
  BS_NULL       = 1;
  BS_HOLLOW     = BS_NULL;
  BS_HATCHED    = 2;
  BS_PATTERN    = 3;
  BS_INDEXED    = 4;
  BS_DIBPATTERN = 5;

{ Hatch Styles }
  HS_HORIZONTAL = 0;
  HS_VERTICAL   = 1;
  HS_FDIAGONAL  = 2;
  HS_BDIAGONAL  = 3;
  HS_CROSS      = 4;
  HS_DIAGCROSS  = 5;

{ Logical Brush (or Pattern) }
type
  PLOGBRUSH = ^LOGBRUSH;
  NPLOGBRUSH = ^LOGBRUSH; near;
  LPLOGBRUSH = ^LOGBRUSH; far;
  LOGBRUSH = record
    lbStyle: UINT;
    lbColor: COLORREF;
    lbHatch: SmallInt;
  end;
  TLogBrush = LOGBRUSH;

  PPATTERN = ^PATTERN;
  NPPATTERN = ^PATTERN; near;
  LPPATTERN = ^PATTERN; far;
  PATTERN = LOGBRUSH;
  TPattern = PATTERN;

{ Stock brushes for use with GetStockObject() }
const
  WHITE_BRUSH  = 0;
  LTGRAY_BRUSH = 1;
  GRAY_BRUSH   = 2;
  DKGRAY_BRUSH = 3;
  BLACK_BRUSH  = 4;
  NULL_BRUSH   = 5;
  HOLLOW_BRUSH = NULL_BRUSH;

{ Region support }

{ Region type flags }
{$ifndef SYSTEMUNIT}
  ERROR         = 0;
{$endif SYSTEMUNIT}
  NULLREGION    = 1;
  SIMPLEREGION  = 2;
  COMPLEXREGION = 3;

{ CombineRgn() command values }
  RGN_AND  = 1;
  RGN_OR   = 2;
  RGN_XOR  = 3;
  RGN_DIFF = 4;
  RGN_COPY = 5;

{ Color palette Support }
type
  PPALETTEENTRY = ^PALETTEENTRY;
  LPPALETTEENTRY = ^PALETTEENTRY; far;
  PALETTEENTRY = record
    peRed: BYTE;
    peGreen: BYTE;
    peBlue: BYTE;
    peFlags: BYTE;
  end;
  TPaletteEntry = PALETTEENTRY;

{ Palette entry flags }
const
  PC_RESERVED   = $01;  { palette index used for animation }
  PC_EXPLICIT   = $02;  { palette index is explicit to device }
  PC_NOCOLLAPSE = $04;  { do not match color to system palette }

{ Logical Palette }
type
  PLOGPALETTE = ^LOGPALETTE;
  NPLOGPALETTE = ^LOGPALETTE; near;
  LPLOGPALETTE = ^LOGPALETTE; far;
  LOGPALETTE = record
    palVersion: WORD;
    palNumEntries: WORD;
    palPalEntry: array [0..0] of PALETTEENTRY;
  end;
  TLogPalette = LOGPALETTE;

{ Get/SetSystemPaletteUse() values }
const
  SYSPAL_STATIC   = 1;
  SYSPAL_NOSTATIC = 2;

{ Palette window messages }
  WM_QUERYNEWPALETTE   = $030F;
  WM_PALETTEISCHANGING = $0310;
  WM_PALETTECHANGED    = $0311;

{ General drawing support }
type
  LINEDDAPROC = procedure(xPos, yPos: SmallInt; lpData: LPARAM); far;

const
{ PolyFill Modes }
  ALTERNATE = 1;
  WINDING   = 2;

{ ExtFloodFill style flags }
  FLOODFILLBORDER  = 0;
  FLOODFILLSURFACE = 1;

{ Text support }
  ETO_GRAYED  = $0001;
  ETO_OPAQUE  = $0002;
  ETO_CLIPPED = $0004;

{ DrawText() Format Flags }
  DT_TOP             = $0000;
  DT_LEFT            = $0000;
  DT_CENTER          = $0001;
  DT_RIGHT           = $0002;
  DT_VCENTER         = $0004;
  DT_BOTTOM          = $0008;
  DT_WORDBREAK       = $0010;
  DT_SINGLELINE      = $0020;
  DT_EXPANDTABS      = $0040;
  DT_TABSTOP         = $0080;
  DT_NOCLIP          = $0100;
  DT_EXTERNALLEADING = $0200;
  DT_CALCRECT        = $0400;
  DT_NOPREFIX        = $0800;
  DT_INTERNAL        = $1000;

{ Background Modes }
  TRANSPARENT = 1;
  OPAQUE      = 2;

{ Text Alignment Options }
  TA_NOUPDATECP = $0000;
  TA_UPDATECP   = $0001;
  TA_LEFT       = $0000;
  TA_RIGHT      = $0002;
  TA_CENTER     = $0006;
  TA_TOP        = $0000;
  TA_BOTTOM     = $0008;
  TA_BASELINE   = $0018;

type
  GRAYSTRINGPROC = function(hdc: HDC; lpData: LPARAM; cch: SmallInt): BOOL; far;

{ Font support }

const
{ Logical Font }
  LF_FACESIZE = 32;

type
  PLOGFONT = ^LOGFONT;
  NPLOGFONT = ^LOGFONT; near;
  LPLOGFONT = ^LOGFONT; far;
  LOGFONT = record
    lfHeight: SmallInt;
    lfWidth: SmallInt;
    lfEscapement: SmallInt;
    lfOrientation: SmallInt;
    lfWeight: SmallInt;
    lfItalic: BYTE;
    lfUnderline: BYTE;
    lfStrikeOut: BYTE;
    lfCharSet: BYTE;
    lfOutPrecision: BYTE;
    lfClipPrecision: BYTE;
    lfQuality: BYTE;
    lfPitchAndFamily: BYTE;
    lfFaceName: array [0..LF_FACESIZE-1] of AnsiChar;
  end;
  TLogFont = LOGFONT;

const
{ weight values }
  FW_DONTCARE   = 0;
  FW_THIN       = 100;
  FW_EXTRALIGHT = 200;
  FW_LIGHT      = 300;
  FW_NORMAL     = 400;
  FW_MEDIUM     = 500;
  FW_SEMIBOLD   = 600;
  FW_BOLD       = 700;
  FW_EXTRABOLD  = 800;
  FW_HEAVY      = 900;

  FW_ULTRALIGHT = FW_EXTRALIGHT;
  FW_REGULAR    = FW_NORMAL;
  FW_DEMIBOLD   = FW_SEMIBOLD;
  FW_ULTRABOLD  = FW_EXTRABOLD;
  FW_BLACK      = FW_HEAVY;

{ CharSet values }
  ANSI_CHARSET        = 0;
  DEFAULT_CHARSET     = 1;
  SYMBOL_CHARSET      = 2;
  SHIFTJIS_CHARSET    = 128;
  HANGEUL_CHARSET     = 129;
  CHINESEBIG5_CHARSET = 136;
  OEM_CHARSET         = 255;

{ OutPrecision values }
  OUT_DEFAULT_PRECIS   = 0;
  OUT_STRING_PRECIS    = 1;
  OUT_CHARACTER_PRECIS = 2;
  OUT_STROKE_PRECIS    = 3;

{ ClipPrecision values }
  CLIP_DEFAULT_PRECIS   = $00;
  CLIP_CHARACTER_PRECIS = $01;
  CLIP_STROKE_PRECIS    = $02;
  CLIP_MASK             = $0F;

{ Quality values }
  DEFAULT_QUALITY = 0;
  DRAFT_QUALITY   = 1;
  PROOF_QUALITY   = 2;

{ PitchAndFamily pitch values (low 4 bits) }
  DEFAULT_PITCH  = $00;
  FIXED_PITCH    = $01;
  VARIABLE_PITCH = $02;

{ PitchAndFamily family values (high 4 bits) }
  FF_DONTCARE   = $00;
  FF_ROMAN      = $10;
  FF_SWISS      = $20;
  FF_MODERN     = $30;
  FF_SCRIPT     = $40;
  FF_DECORATIVE = $50;

{ Stock fonts for use with GetStockObject() }
  OEM_FIXED_FONT      = 10;
  ANSI_FIXED_FONT     = 11;
  ANSI_VAR_FONT       = 12;
  SYSTEM_FONT         = 13;
  DEVICE_DEFAULT_FONT = 14;
  DEFAULT_PALETTE     = 15;
  SYSTEM_FIXED_FONT   = 16;

  ASPECT_FILTERING    = $00000001;

  WM_FONTCHANGE       = $001D;

type
  PTEXTMETRIC = ^TEXTMETRIC;
  NPTEXTMETRIC = ^TEXTMETRIC; near;
  LPTEXTMETRIC = ^TEXTMETRIC; far;
  TEXTMETRIC = record
    tmHeight: SmallInt;
    tmAscent: SmallInt;
    tmDescent: SmallInt;
    tmInternalLeading: SmallInt;
    tmExternalLeading: SmallInt;
    tmAveCharWidth: SmallInt;
    tmMaxCharWidth: SmallInt;
    tmWeight: SmallInt;
    tmItalic: BYTE;
    tmUnderlined: BYTE;
    tmStruckOut: BYTE;
    tmFirstChar: BYTE;
    tmLastChar: BYTE;
    tmDefaultChar: BYTE;
    tmBreakChar: BYTE;
    tmPitchAndFamily: BYTE;
    tmCharSet: BYTE;
    tmOverhang: SmallInt;
    tmDigitizedAspectX: SmallInt;
    tmDigitizedAspectY: SmallInt;
  end;
  TTextMetric = TEXTMETRIC;

const
{ tmPitchAndFamily values }
  TMPF_FIXED_PITCH = $01;
  TMPF_VECTOR      = $02;
  TMPF_DEVICE      = $08;

type
  OLDFONTENUMPROC = function(lplf: LPLOGFONT; lptm: LPTEXTMETRIC; FontType: SmallInt; lpData: LPARAM): SmallInt; far;

const
{ EnumFonts font type values }
  RASTER_FONTTYPE = $0001;
  DEVICE_FONTTYPE = $0002;

type
{ Bitmap support }
  PBITMAP = ^BITMAP;
  NPBITMAP = ^BITMAP; near;
  LPBITMAP = ^BITMAP; far;
  BITMAP = record
    bmType: SmallInt;
    bmWidth: SmallInt;
    bmHeight: SmallInt;
    bmWidthBytes: SmallInt;
    bmPlanes: BYTE;
    bmBitsPixel: BYTE;
    bmBits: FarPointer;
  end;
  TBitmap = BITMAP;

{ Bitmap Header structures }
  PRGBTRIPLE = ^RGBTRIPLE;
  LPRGBTRIPLE = ^RGBTRIPLE; far;
  RGBTRIPLE = record
    rgbtBlue: BYTE;
    rgbtGreen: BYTE;
    rgbtRed: BYTE;
  end;
  TRGBTriple = RGBTRIPLE;

  PRGBQUAD = ^RGBQUAD;
  LPRGBQUAD = ^RGBQUAD; far;
  RGBQUAD = record
    rgbBlue: BYTE;
    rgbGreen: BYTE;
    rgbRed: BYTE;
    rgbReserved: BYTE;
  end;
  TRGBQuad = RGBQUAD;

{ structures for defining DIBs }
  PBITMAPCOREHEADER = ^BITMAPCOREHEADER;
  LPBITMAPCOREHEADER = ^BITMAPCOREHEADER; far;
  BITMAPCOREHEADER = record
    bcSize: DWORD;
    bcWidth: SmallInt;
    bcHeight: SmallInt;
    bcPlanes: WORD;
    bcBitCount: WORD;
  end;
  TBitmapCoreHeader = BITMAPCOREHEADER;

  PBITMAPINFOHEADER = ^BITMAPINFOHEADER;
  LPBITMAPINFOHEADER = ^BITMAPINFOHEADER; far;
  BITMAPINFOHEADER = record
    biSize: DWORD;
    biWidth: LONG;
    biHeight: LONG;
    biPlanes: WORD;
    biBitCount: WORD;
    biCompression: DWORD;
    biSizeImage: DWORD;
    biXPelsPerMeter: LONG;
    biYPelsPerMeter: LONG;
    biClrUsed: DWORD;
    biClrImportant: DWORD;
  end;
  TBitmapInfoHeader = BITMAPINFOHEADER;

const
{ constants for the biCompression field }
  BI_RGB  = 0;
  BI_RLE8 = 1;
  BI_RLE4 = 2;

type
  PBITMAPINFO = ^BITMAPINFO;
  LPBITMAPINFO = ^BITMAPINFO; far;
  BITMAPINFO = record
    bmiHeader: BITMAPINFOHEADER;
    bmiColors: array [0..0] of RGBQUAD;
  end;
  TBitmapInfo = BITMAPINFO;

  PBITMAPCOREINFO = ^BITMAPCOREINFO;
  LPBITMAPCOREINFO = ^BITMAPCOREINFO; far;
  BITMAPCOREINFO = record
    bmciHeader: BITMAPCOREHEADER;
    bmciColors: array [0..0] of RGBTRIPLE;
  end;
  TBitmapCoreInfo = BITMAPCOREINFO;

  PBITMAPFILEHEADER = ^BITMAPFILEHEADER;
  LPBITMAPFILEHEADER = ^BITMAPFILEHEADER; far;
  BITMAPFILEHEADER = record
    bfType: UINT;
    bfSize: DWORD;
    bfReserved1: UINT;
    bfReserved2: UINT;
    bfOffBits: DWORD;
  end;
  TBitmapFileHeader = BITMAPFILEHEADER;

const
{ DIB color table identifiers }
  DIB_RGB_COLORS = 0;
  DIB_PAL_COLORS = 1;

{ constants for CreateDIBitmap }
  CBM_INIT = $00000004;

{ Binary raster ops }
  R2_BLACK       = 1;
  R2_NOTMERGEPEN = 2;
  R2_MASKNOTPEN  = 3;
  R2_NOTCOPYPEN  = 4;
  R2_MASKPENNOT  = 5;
  R2_NOT         = 6;
  R2_XORPEN      = 7;
  R2_NOTMASKPEN  = 8;
  R2_MASKPEN     = 9;
  R2_NOTXORPEN   = 10;
  R2_NOP         = 11;
  R2_MERGENOTPEN = 12;
  R2_COPYPEN     = 13;
  R2_MERGEPENNOT = 14;
  R2_MERGEPEN    = 15;
  R2_WHITE       = 16;

{ Ternary raster operations }
  SRCCOPY     = $00CC0020;
  SRCPAINT    = $00EE0086;
  SRCAND      = $008800C6;
  SRCINVERT   = $00660046;
  SRCERASE    = $00440328;
  NOTSRCCOPY  = $00330008;
  NOTSRCERASE = $001100A6;
  MERGECOPY   = $00C000CA;
  MERGEPAINT  = $00BB0226;
  PATCOPY     = $00F00021;
  PATPAINT    = $00FB0A09;
  PATINVERT   = $005A0049;
  DSTINVERT   = $00550009;
  BLACKNESS   = $00000042;
  WHITENESS   = $00FF0062;

{ StretchBlt() Modes }
  BLACKONWHITE = 1;
  WHITEONBLACK = 2;
  COLORONCOLOR = 3;

{ new StretchBlt() Modes (simpler names) }
  STRETCH_ANDSCANS    = 1;
  STRETCH_ORSCANS     = 2;
  STRETCH_DELETESCANS = 3;

type
{ Metafile support }
  HMETAFILE = THandle;

{ Clipboard Metafile Picture Structure }
  PMETAFILEPICT = ^METAFILEPICT;
  LPMETAFILEPICT = ^METAFILEPICT; far;
  METAFILEPICT = record
    mm: SmallInt;
    xExt: SmallInt;
    yExt: SmallInt;
    hMF: HMETAFILE;
  end;
  TMetaFilePict = METAFILEPICT;

  PMETAHEADER = ^METAHEADER;
  LPMETAHEADER = ^METAHEADER; far;
  METAHEADER = record
    mtType: UINT;
    mtHeaderSize: UINT;
    mtVersion: UINT;
    mtSize: DWORD;
    mtNoObjects: UINT;
    mtMaxRecord: DWORD;
    mtNoParameters: UINT;
  end;
  TMetaHeader = METAHEADER;

  PHANDLETABLE = ^HANDLETABLE;
  LPHANDLETABLE = ^HANDLETABLE; far;
  HANDLETABLE = record
    objectHandle: array [0..0] of HGDIOBJ;
  end;
  THandleTable = HANDLETABLE;

  PMETARECORD = ^METARECORD;
  LPMETARECORD = ^METARECORD; far;
  METARECORD = record
    rdSize: DWORD;
    rdFunction: UINT;
    rdParm: array [0..0] of UINT;
  end;
  TMetaRecord = METARECORD;

const
{ Metafile Functions }
  META_SETBKCOLOR            = $0201;
  META_SETBKMODE             = $0102;
  META_SETMAPMODE            = $0103;
  META_SETROP2               = $0104;
  META_SETRELABS             = $0105;
  META_SETPOLYFILLMODE       = $0106;
  META_SETSTRETCHBLTMODE     = $0107;
  META_SETTEXTCHAREXTRA      = $0108;
  META_SETTEXTCOLOR          = $0209;
  META_SETTEXTJUSTIFICATION  = $020A;
  META_SETWINDOWORG          = $020B;
  META_SETWINDOWEXT          = $020C;
  META_SETVIEWPORTORG        = $020D;
  META_SETVIEWPORTEXT        = $020E;
  META_OFFSETWINDOWORG       = $020F;
  META_SCALEWINDOWEXT        = $0410;
  META_OFFSETVIEWPORTORG     = $0211;
  META_SCALEVIEWPORTEXT      = $0412;
  META_LINETO                = $0213;
  META_MOVETO                = $0214;
  META_EXCLUDECLIPRECT       = $0415;
  META_INTERSECTCLIPRECT     = $0416;
  META_ARC                   = $0817;
  META_ELLIPSE               = $0418;
  META_FLOODFILL             = $0419;
  META_PIE                   = $081A;
  META_RECTANGLE             = $041B;
  META_ROUNDRECT             = $061C;
  META_PATBLT                = $061D;
  META_SAVEDC                = $001E;
  META_SETPIXEL              = $041F;
  META_OFFSETCLIPRGN         = $0220;
  META_TEXTOUT               = $0521;
  META_BITBLT                = $0922;
  META_STRETCHBLT            = $0B23;
  META_POLYGON               = $0324;
  META_POLYLINE              = $0325;
  META_ESCAPE                = $0626;
  META_RESTOREDC             = $0127;
  META_FILLREGION            = $0228;
  META_FRAMEREGION           = $0429;
  META_INVERTREGION          = $012A;
  META_PAINTREGION           = $012B;
  META_SELECTCLIPREGION      = $012C;
  META_SELECTOBJECT          = $012D;
  META_SETTEXTALIGN          = $012E;
  META_DRAWTEXT              = $062F;

  META_CHORD                 = $0830;
  META_SETMAPPERFLAGS        = $0231;
  META_EXTTEXTOUT            = $0a32;
  META_SETDIBTODEV           = $0d33;
  META_SELECTPALETTE         = $0234;
  META_REALIZEPALETTE        = $0035;
  META_ANIMATEPALETTE        = $0436;
  META_SETPALENTRIES         = $0037;
  META_POLYPOLYGON           = $0538;
  META_RESIZEPALETTE         = $0139;

  META_DIBBITBLT             = $0940;
  META_DIBSTRETCHBLT         = $0b41;
  META_DIBCREATEPATTERNBRUSH = $0142;
  META_STRETCHDIB            = $0f43;

  META_EXTFLOODFILL          = $0548;

  META_RESETDC               = $014C;
  META_STARTDOC              = $014D;
  META_STARTPAGE             = $004F;
  META_ENDPAGE               = $0050;
  META_ABORTDOC              = $0052;
  META_ENDDOC                = $005E;

  META_DELETEOBJECT          = $01f0;

  META_CREATEPALETTE         = $00f7;
  META_CREATEBRUSH           = $00F8;
  META_CREATEPATTERNBRUSH    = $01F9;
  META_CREATEPENINDIRECT     = $02FA;
  META_CREATEFONTINDIRECT    = $02FB;
  META_CREATEBRUSHINDIRECT   = $02FC;
  META_CREATEBITMAPINDIRECT  = $02FD;
  META_CREATEBITMAP          = $06FE;
  META_CREATEREGION          = $06FF;

type
  MFENUMPROC = function(hdc: HDC; lpht: LPHANDLETABLE; lpmr: LPMETARECORD; cObj: SmallInt; lParam: LPARAM): SmallInt; far;

{ Printing support }
  ABORTPROC = function(hdc: HDC; error: SmallInt): BOOL; far;

const
{ Spooler Error Codes }
  SP_NOTREPORTED   = $4000;
  SP_ERROR         = (-1);
  SP_APPABORT      = (-2);
  SP_USERABORT     = (-3);
  SP_OUTOFDISK     = (-4);
  SP_OUTOFMEMORY   = (-5);

  PR_JOBSTATUS     = $0000;

{ Spooler status notification message }
  WM_SPOOLERSTATUS = $002A;

{ GDI Escape support }
{ GDI Escapes }
  NEWFRAME               = 1;
  ABORTDOC               = 2;
  NEXTBAND               = 3;
  SETCOLORTABLE          = 4;
  GETCOLORTABLE          = 5;
  FLUSHOUTPUT            = 6;
  DRAFTMODE              = 7;
  QUERYESCSUPPORT        = 8;
  SETABORTPROC           = 9;
  STARTDOC               = 10;
  ENDDOC                 = 11;
  GETPHYSPAGESIZE        = 12;
  GETPRINTINGOFFSET      = 13;
  GETSCALINGFACTOR       = 14;
  MFCOMMENT              = 15;
  GETPENWIDTH            = 16;
  SETCOPYCOUNT           = 17;
  SELECTPAPERSOURCE      = 18;
  DEVICEDATA             = 19;
  PASSTHROUGH            = 19;
  GETTECHNOLGY           = 20;
  GETTECHNOLOGY          = 20;
  SETLINECAP             = 21;
  SETLINEJOIN            = 22;
  SETMITERLIMIT          = 23;
  BANDINFO               = 24;
  DRAWPATTERNRECT        = 25;
  GETVECTORPENSIZE       = 26;
  GETVECTORBRUSHSIZE     = 27;
  ENABLEDUPLEX           = 28;
  GETSETPAPERBINS        = 29;
  GETSETPRINTORIENT      = 30;
  ENUMPAPERBINS          = 31;
  SETDIBSCALING          = 32;
  EPSPRINTING            = 33;
  ENUMPAPERMETRICS       = 34;
  GETSETPAPERMETRICS     = 35;
  POSTSCRIPT_DATA        = 37;
  POSTSCRIPT_IGNORE      = 38;
  MOUSETRAILS            = 39;

  GETEXTENDEDTEXTMETRICS = 256;
  GETEXTENTTABLE         = 257;
  GETPAIRKERNTABLE       = 258;
  GETTRACKKERNTABLE      = 259;
  GDIEXTTEXTOUT          = 512; { renamed to avoid conflict with the ExtTextOut function }
  GETFACENAME            = 513;
  ENABLERELATIVEWIDTHS   = 768;
  ENABLEPAIRKERNING      = 769;
  SETKERNTRACK           = 770;
  SETALLJUSTVALUES       = 771;
  SETCHARSET             = 772;

  GDISTRETCHBLT          = 2048; { renamed to avoid conflict with the StretchBlt function }

  GETSETSCREENPARAMS     = 3072;

  BEGIN_PATH             = 4096;
  CLIP_TO_PATH           = 4097;
  END_PATH               = 4098;
  EXT_DEVICE_CAPS        = 4099;
  RESTORE_CTM            = 4100;
  SAVE_CTM               = 4101;
  SET_ARC_DIRECTION      = 4102;
  SET_BACKGROUND_COLOR   = 4103;
  SET_POLY_MODE          = 4104;
  SET_SCREEN_ANGLE       = 4105;
  SET_SPREAD             = 4106;
  TRANSFORM_CTM          = 4107;
  SET_CLIP_BOX           = 4108;
  SET_BOUNDS             = 4109;

type
{ USER typedefs, structures, and functions }
  HWND = THandle;
  HMENU = THandle;
  HICON = THandle;
  HCURSOR = HICON;  { HICONs & HCURSORs are polymorphic }

{ System Metrics }
const
{ GetSystemMetrics() codes }
  SM_CXSCREEN      = 0;
  SM_CYSCREEN      = 1;
  SM_CXVSCROLL     = 2;
  SM_CYHSCROLL     = 3;
  SM_CYCAPTION     = 4;
  SM_CXBORDER      = 5;
  SM_CYBORDER      = 6;
  SM_CXDLGFRAME    = 7;
  SM_CYDLGFRAME    = 8;
  SM_CYVTHUMB      = 9;
  SM_CXHTHUMB      = 10;
  SM_CXICON        = 11;
  SM_CYICON        = 12;
  SM_CXCURSOR      = 13;
  SM_CYCURSOR      = 14;
  SM_CYMENU        = 15;
  SM_CXFULLSCREEN  = 16;
  SM_CYFULLSCREEN  = 17;
  SM_CYKANJIWINDOW = 18;
  SM_MOUSEPRESENT  = 19;
  SM_CYVSCROLL     = 20;
  SM_CXHSCROLL     = 21;
  SM_DEBUG         = 22;
  SM_SWAPBUTTON    = 23;
  SM_RESERVED1     = 24;
  SM_RESERVED2     = 25;
  SM_RESERVED3     = 26;
  SM_RESERVED4     = 27;
  SM_CXMIN         = 28;
  SM_CYMIN         = 29;
  SM_CXSIZE        = 30;
  SM_CYSIZE        = 31;
  SM_CXFRAME       = 32;
  SM_CYFRAME       = 33;
  SM_CXMINTRACK    = 34;
  SM_CYMINTRACK    = 35;
  SM_CMETRICS      = 36;

  WM_DEVMODECHANGE = $001B;
  WM_TIMECHANGE    = $001E;

{ Window message support }
  WM_NULL = $0000;

{ NOTE: All messages below $0400 are RESERVED by Windows }
  WM_USER = $0400;

type
{ Queued message structure }
  PMSG = ^MSG;
  NPMSG = ^MSG; near;
  LPMSG = ^MSG; far;
  MSG = record
    hwnd: HWND;
    message: UINT;
    wParam: WPARAM;
    lParam: LPARAM;
    time: DWORD;
    pt: POINT;
  end;
  TMsg = MSG;

const
{ PeekMessage() options }
  PM_NOREMOVE = $0000;
  PM_REMOVE   = $0001;
  PM_NOYIELD  = $0002;

{ Special HWND value for use with PostMessage() and SendMessage() }
  HWND_BROADCAST = HWND($ffff);

  WH_GETMESSAGE   = 3;

  WH_CALLWNDPROC  = 4;

  WH_MSGFILTER    = (-1);
  WH_SYSMSGFILTER = 6;

{ CallMsgFilter() and WH_SYS/MSGFILTER context codes }
  MSGF_DIALOGBOX  = 0;
  MSGF_MENU       = 2;
  MSGF_MOVE       = 3;
  MSGF_SIZE       = 4;
  MSGF_SCROLLBAR  = 5;
  MSGF_NEXTWINDOW = 6;
  MSGF_MAINLOOP   = 8;
  MSGF_USER       = 4096;

{ Standard window messages }
{ PenWindows specific messages }
  WM_PENWINFIRST = $0380;
  WM_PENWINLAST  = $038F;

{ Coalescing messages }
  WM_COALESCE_FIRST = $0390;
  WM_COALESCE_LAST  = $039F;

{ Application termination }
  WM_QUERYENDSESSION = $0011;
  WM_ENDSESSION      = $0016;

  WM_QUIT            = $0012;

  WM_SYSTEMERROR     = $0017;

type
{ Window class management }
  WNDPROC = function(hwnd: HWND; msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; far;

  PWNDCLASS = ^WNDCLASS;
  NPWNDCLASS = ^WNDCLASS; near;
  LPWNDCLASS = ^WNDCLASS; far;
  WNDCLASS = record
    style: UINT;
    lpfnWndProc: WNDPROC;
    cbClsExtra: SmallInt;
    cbWndExtra: SmallInt;
    hInstance: HINST;
    hIcon: HICON;
    hCursor: HCURSOR;
    hbrBackground: HBRUSH;
    lpszMenuName: LPCSTR;
    lpszClassName: LPCSTR;
  end;
  TWndClass = WNDCLASS;

const
{ Class styles }
  CS_VREDRAW         = $0001;
  CS_HREDRAW         = $0002;

  CS_OWNDC           = $0020;
  CS_CLASSDC         = $0040;
  CS_PARENTDC        = $0080;

  CS_SAVEBITS        = $0800;

  CS_DBLCLKS         = $0008;

  CS_BYTEALIGNCLIENT = $1000;
  CS_BYTEALIGNWINDOW = $2000;

  CS_NOCLOSE         = $0200;

  CS_KEYCVTWINDOW    = $0004;
  CS_NOKEYCVT        = $0100;

  CS_GLOBALCLASS     = $4000;

{ Class field offsets for GetClassLong() and GetClassWord() }
  GCL_MENUNAME      = (-8);
  GCW_HBRBACKGROUND = (-10);
  GCW_HCURSOR       = (-12);
  GCW_HICON         = (-14);
  GCW_HMODULE       = (-16);
  GCW_CBWNDEXTRA    = (-18);
  GCW_CBCLSEXTRA    = (-20);
  GCL_WNDPROC       = (-24);
  GCW_STYLE         = (-26);

{ Window creation/destroy }

{ Window Styles }

{ Basic window types }
  WS_OVERLAPPED        = $00000000;
  WS_POPUP             = $80000000;
  WS_CHILD             = $40000000;

{ Clipping styles }
  WS_CLIPSIBLINGS      = $04000000;
  WS_CLIPCHILDREN      = $02000000;

{ Generic window states }
  WS_VISIBLE           = $10000000;
  WS_DISABLED          = $08000000;

{ Main window states }
  WS_MINIMIZE          = $20000000;
  WS_MAXIMIZE          = $01000000;

{ Main window styles }
  WS_CAPTION           = $00C00000;     { WS_BORDER | WS_DLGFRAME }
  WS_BORDER            = $00800000;
  WS_DLGFRAME          = $00400000;
  WS_VSCROLL           = $00200000;
  WS_HSCROLL           = $00100000;
  WS_SYSMENU           = $00080000;
  WS_THICKFRAME        = $00040000;
  WS_MINIMIZEBOX       = $00020000;
  WS_MAXIMIZEBOX       = $00010000;

{ Control window styles }
  WS_GROUP             = $00020000;
  WS_TABSTOP           = $00010000;

{ Common Window Styles }
  WS_OVERLAPPEDWINDOW  = (WS_OVERLAPPED or WS_CAPTION or WS_SYSMENU or WS_THICKFRAME or WS_MINIMIZEBOX or WS_MAXIMIZEBOX);
  WS_POPUPWINDOW       = (WS_POPUP or WS_BORDER or WS_SYSMENU);
  WS_CHILDWINDOW       = (WS_CHILD);

{ Extended Window Styles }
  WS_EX_DLGMODALFRAME  = $00000001;
  WS_EX_NOPARENTNOTIFY = $00000004;

{ Obsolete style names }
  WS_TILED             = WS_OVERLAPPED;
  WS_ICONIC            = WS_MINIMIZE;
  WS_SIZEBOX           = WS_THICKFRAME;
  WS_TILEDWINDOW       = WS_OVERLAPPEDWINDOW;



{ Special value for CreateWindow, et al. }
  HWND_DESKTOP          = HWND(0);

  WM_CREATE   = $0001;
  WM_NCCREATE = $0081;

type
{ WM_CREATE/WM_NCCREATE lParam struct }
  PCREATESTRUCT = ^CREATESTRUCT;
  LPCREATESTRUCT = ^CREATESTRUCT; far;
  CREATESTRUCT = record
    lpCreateParams: FarPointer;
    hInstance: HINST;
    hMenu: HMENU;
    hwndParent: HWND;
    cy: SmallInt;
    cx: SmallInt;
    y: SmallInt;
    x: SmallInt;
    style: LONG;
    lpszName: LPCSTR;
    lpszClass: LPCSTR;
    dwExStyle: DWORD;
  end;
  TCreateStruct = CREATESTRUCT;

const
  WM_DESTROY          = $0002;
  WM_NCDESTROY        = $0082;

  SW_HIDE             = 0;
  SW_SHOWNORMAL       = 1;
  SW_NORMAL           = 1;
  SW_SHOWMINIMIZED    = 2;
  SW_SHOWMAXIMIZED    = 3;
  SW_MAXIMIZE         = 3;
  SW_SHOWNOACTIVATE   = 4;
  SW_SHOW             = 5;
  SW_MINIMIZE         = 6;
  SW_SHOWMINNOACTIVE  = 7;
  SW_SHOWNA           = 8;
  SW_RESTORE          = 9;

{ Obsolete ShowWindow() command names }
  HIDE_WINDOW         = 0;
  SHOW_OPENWINDOW     = 1;
  SHOW_ICONWINDOW     = 2;
  SHOW_FULLSCREEN     = 3;
  SHOW_OPENNOACTIVATE = 4;

  WM_SHOWWINDOW       = $0018;

{ WM_SHOWWINDOW wParam codes }
  SW_PARENTCLOSING    = 1;
  SW_OTHERMAXIMIZED   = 2;
  SW_PARENTOPENING    = 3;
  SW_OTHERRESTORED    = 4;

{ Obsolete constant names }
  SW_OTHERZOOM        = SW_OTHERMAXIMIZED;
  SW_OTHERUNZOOM      = SW_OTHERRESTORED;

  WM_SETREDRAW        = $000B;

{ Enabled state }
  WM_ENABLE           = $000A;

{ Window text }
  WM_SETTEXT          = $000C;
  WM_GETTEXT          = $000D;
  WM_GETTEXTLENGTH    = $000E;

{ Window field offsets for GetWindowLong() and GetWindowWord() }
  GWL_WNDPROC         = (-4);
  GWW_HINSTANCE       = (-6);
  GWW_HWNDPARENT      = (-8);
  GWW_ID              = (-12);
  GWL_STYLE           = (-16);
  GWL_EXSTYLE         = (-20);

{ Window size, position, Z-order, and visibility }

  CW_USEDEFAULT      = SmallInt($8000);

{ SetWindowPos() and WINDOWPOS flags }
  SWP_NOSIZE         = $0001;
  SWP_NOMOVE         = $0002;
  SWP_NOZORDER       = $0004;
  SWP_NOREDRAW       = $0008;
  SWP_NOACTIVATE     = $0010;
  SWP_FRAMECHANGED   = $0020;  { The frame changed: send WM_NCCALCSIZE }
  SWP_SHOWWINDOW     = $0040;
  SWP_HIDEWINDOW     = $0080;
  SWP_NOCOPYBITS     = $0100;
  SWP_NOOWNERZORDER  = $0200;  { Don't do owner Z ordering }

  SWP_DRAWFRAME      = SWP_FRAMECHANGED;
  SWP_NOREPOSITION   = SWP_NOOWNERZORDER;

  SWP_NOSENDCHANGING = $0400;
  SWP_DEFERERASE     = $2000;

{ SetWindowPos() hwndInsertAfter field values }
  HWND_TOP           = HWND(0);
  HWND_BOTTOM        = HWND(1);
  HWND_TOPMOST       = HWND(-1);
  HWND_NOTOPMOST     = HWND(-2);

type
  HDWP = THandle;

const
  WM_MOVE            = $0003;
  WM_SIZE            = $0005;

{ WM_SIZE message wParam values }
  SIZE_RESTORED      = 0;
  SIZE_MINIMIZED     = 1;
  SIZE_MAXIMIZED     = 2;
  SIZE_MAXSHOW       = 3;
  SIZE_MAXHIDE       = 4;

{ Obsolete constant names }
  SIZENORMAL         = SIZE_RESTORED;
  SIZEICONIC         = SIZE_MINIMIZED;
  SIZEFULLSCREEN     = SIZE_MAXIMIZED;
  SIZEZOOMSHOW       = SIZE_MAXSHOW;
  SIZEZOOMHIDE       = SIZE_MAXHIDE;

{ Main window support }

  WM_QUERYOPEN = $0013;
  WM_CLOSE     = $0010;

type
{ Struct pointed to by WM_GETMINMAXINFO lParam }
  PMINMAXINFO = ^MINMAXINFO;
  LPMINMAXINFO = ^MINMAXINFO; far;
  MINMAXINFO = record
    ptReserved: POINT;
    ptMaxSize: POINT;
    ptMaxPosition: POINT;
    ptMinTrackSize: POINT;
    ptMaxTrackSize: POINT;
  end;
  TMinMaxInfo = MINMAXINFO;

const
  WM_GETMINMAXINFO = $0024;

type
{ Window query and enumeration }
  WNDENUMPROC = function(hwnd: HWND; lParam: LPARAM): BOOL; far;

const
{ GetWindow() constants }
  GW_HWNDFIRST = 0;
  GW_HWNDLAST  = 1;
  GW_HWNDNEXT  = 2;
  GW_HWNDPREV  = 3;
  GW_OWNER     = 4;
  GW_CHILD     = 5;

type
{ Window property support }
  PROPENUMPROC = function(hwnd: HWND; lpsz: LPCSTR; hData: HANDLE): BOOL; far;

const
{ Window repainting }
  WM_PAINT          = $000F;
  WM_ERASEBKGND     = $0014;
  WM_ICONERASEBKGND = $0027;

type
{ BeginPaint() return structure }
  PPAINTSTRUCT = ^PAINTSTRUCT;
  NPPAINTSTRUCT = ^PAINTSTRUCT; near;
  LPPAINTSTRUCT = ^PAINTSTRUCT; far;
  PAINTSTRUCT = record
    hdc: HDC;
    fErase: BOOL;
    rcPaint: RECT;
    fRestore: BOOL;
    fIncUpdate: BOOL;
    rgbReserved: array [0..15] of BYTE;
  end;
  TPaintStruct = PAINTSTRUCT;

const
  RDW_INVALIDATE      = $0001;
  RDW_INTERNALPAINT   = $0002;
  RDW_ERASE           = $0004;

  RDW_VALIDATE        = $0008;
  RDW_NOINTERNALPAINT = $0010;
  RDW_NOERASE         = $0020;

  RDW_NOCHILDREN      = $0040;
  RDW_ALLCHILDREN     = $0080;

  RDW_UPDATENOW       = $0100;
  RDW_ERASENOW        = $0200;

  RDW_FRAME           = $0400;
  RDW_NOFRAME         = $0800;

{ Non-client window area management }

  WM_NCPAINT    = $0085;

  WM_NCCALCSIZE = $0083;

type
{ WM_NCCALCSIZE parameter structure }
  PNCCALCSIZE_PARAMS = ^NCCALCSIZE_PARAMS;
  LPNCCALCSIZE_PARAMS = ^NCCALCSIZE_PARAMS; far;
  NCCALCSIZE_PARAMS = record
    rgrc: array [0..1] of RECT;
  end;
  TNCCalcSize_Params = NCCALCSIZE_PARAMS;

const
  WM_NCHITTEST  = $0084;

{ WM_NCHITTEST return codes }
  HTERROR       = (-2);
  HTTRANSPARENT = (-1);
  HTNOWHERE     = 0;
  HTCLIENT      = 1;
  HTCAPTION     = 2;
  HTSYSMENU     = 3;
  HTSIZE        = 4;
  HTMENU        = 5;
  HTHSCROLL     = 6;
  HTVSCROLL     = 7;
  HTMINBUTTON   = 8;
  HTMAXBUTTON   = 9;
  HTLEFT        = 10;
  HTRIGHT       = 11;
  HTTOP         = 12;
  HTTOPLEFT     = 13;
  HTTOPRIGHT    = 14;
  HTBOTTOM      = 15;
  HTBOTTOMLEFT  = 16;
  HTBOTTOMRIGHT = 17;
  HTBORDER      = 18;
  HTGROWBOX     = HTSIZE;
  HTREDUCE      = HTMINBUTTON;
  HTZOOM        = HTMAXBUTTON;

{ Drag-and-drop support }

  WM_QUERYDRAGICON = $0037;
  WM_DROPFILES     = $0233;

{ Window activation }
{ WM_ACTIVATE state values }
  WA_INACTIVE    = 0;
  WA_ACTIVE      = 1;
  WA_CLICKACTIVE = 2;

  WM_ACTIVATE    = $0006;
  WM_ACTIVATEAPP = $001C;
  WM_NCACTIVATE  = $0086;

type
{ Keyboard input support }
  PKeyboardState = ^TKeyboardState;
  LPKeyboardState = ^TKeyboardState; far;
  TKeyboardState = array [0..255] of AnsiChar;

const
  WM_SETFOCUS    = $0007;
  WM_KILLFOCUS   = $0008;

  WM_KEYDOWN     = $0100;
  WM_KEYUP       = $0101;

  WM_CHAR        = $0102;
  WM_DEADCHAR    = $0103;

  WM_SYSKEYDOWN  = $0104;
  WM_SYSKEYUP    = $0105;

  WM_SYSCHAR     = $0106;
  WM_SYSDEADCHAR = $0107;


{ Keyboard message range }
  WM_KEYFIRST    = $0100;
  WM_KEYLAST     = $0108;

{ WM_KEYUP/DOWN/AnsiChar HIWORD(lParam) flags }
  KF_EXTENDED    = $0100;
  KF_DLGMODE     = $0800;
  KF_MENUMODE    = $1000;
  KF_ALTDOWN     = $2000;
  KF_REPEAT      = $4000;
  KF_UP          = $8000;

{ Virtual key codes }
  VK_LBUTTON     = $01;
  VK_RBUTTON     = $02;
  VK_CANCEL      = $03;
  VK_MBUTTON     = $04;
  VK_BACK        = $08;
  VK_TAB         = $09;
  VK_CLEAR       = $0C;
  VK_RETURN      = $0D;
  VK_SHIFT       = $10;
  VK_CONTROL     = $11;
  VK_MENU        = $12;
  VK_PAUSE       = $13;
  VK_CAPITAL     = $14;
  VK_ESCAPE      = $1B;
  VK_SPACE       = $20;
  VK_PRIOR       = $21;
  VK_NEXT        = $22;
  VK_END         = $23;
  VK_HOME        = $24;
  VK_LEFT        = $25;
  VK_UP          = $26;
  VK_RIGHT       = $27;
  VK_DOWN        = $28;
  VK_SELECT      = $29;
  VK_PRINT       = $2A;
  VK_EXECUTE     = $2B;
  VK_SNAPSHOT    = $2C;
  VK_INSERT      = $2D;
  VK_DELETE      = $2E;
  VK_HELP        = $2F;
  VK_NUMPAD0     = $60;
  VK_NUMPAD1     = $61;
  VK_NUMPAD2     = $62;
  VK_NUMPAD3     = $63;
  VK_NUMPAD4     = $64;
  VK_NUMPAD5     = $65;
  VK_NUMPAD6     = $66;
  VK_NUMPAD7     = $67;
  VK_NUMPAD8     = $68;
  VK_NUMPAD9     = $69;
  VK_MULTIPLY    = $6A;
  VK_ADD         = $6B;
  VK_SEPARATOR   = $6C;
  VK_SUBTRACT    = $6D;
  VK_DECIMAL     = $6E;
  VK_DIVIDE      = $6F;
  VK_F1          = $70;
  VK_F2          = $71;
  VK_F3          = $72;
  VK_F4          = $73;
  VK_F5          = $74;
  VK_F6          = $75;
  VK_F7          = $76;
  VK_F8          = $77;
  VK_F9          = $78;
  VK_F10         = $79;
  VK_F11         = $7A;
  VK_F12         = $7B;
  VK_F13         = $7C;
  VK_F14         = $7D;
  VK_F15         = $7E;
  VK_F16         = $7F;
  VK_F17         = $80;
  VK_F18         = $81;
  VK_F19         = $82;
  VK_F20         = $83;
  VK_F21         = $84;
  VK_F22         = $85;
  VK_F23         = $86;
  VK_F24         = $87;
  VK_NUMLOCK     = $90;
  VK_SCROLL      = $91;

{ VK_A thru VK_Z are the same as their ASCII equivalents: 'A' thru 'Z' }
{ VK_0 thru VK_9 are the same as their ASCII equivalents: '0' thru '0' }

{ SetWindowsHook() keyboard hook }
  WH_KEYBOARD    = 2;

{ Mouse input support }
{ Mouse input messages }
  WM_MOUSEMOVE       = $0200;
  WM_LBUTTONDOWN     = $0201;
  WM_LBUTTONUP       = $0202;
  WM_LBUTTONDBLCLK   = $0203;
  WM_RBUTTONDOWN     = $0204;
  WM_RBUTTONUP       = $0205;
  WM_RBUTTONDBLCLK   = $0206;
  WM_MBUTTONDOWN     = $0207;
  WM_MBUTTONUP       = $0208;
  WM_MBUTTONDBLCLK   = $0209;

{ Mouse input message range }
  WM_MOUSEFIRST      = $0200;
  WM_MOUSELAST       = $0209;

{ Mouse message wParam key states }
  MK_LBUTTON         = $0001;
  MK_RBUTTON         = $0002;
  MK_SHIFT           = $0004;
  MK_CONTROL         = $0008;
  MK_MBUTTON         = $0010;

{ Non-client mouse messages }
  WM_NCMOUSEMOVE     = $00A0;
  WM_NCLBUTTONDOWN   = $00A1;
  WM_NCLBUTTONUP     = $00A2;
  WM_NCLBUTTONDBLCLK = $00A3;
  WM_NCRBUTTONDOWN   = $00A4;
  WM_NCRBUTTONUP     = $00A5;
  WM_NCRBUTTONDBLCLK = $00A6;
  WM_NCMBUTTONDOWN   = $00A7;
  WM_NCMBUTTONUP     = $00A8;
  WM_NCMBUTTONDBLCLK = $00A9;

{ Mouse click activation support }
  WM_MOUSEACTIVATE   = $0021;

{ WM_MOUSEACTIVATE return codes }
  MA_ACTIVATE        = 1;
  MA_ACTIVATEANDEAT  = 2;
  MA_NOACTIVATE      = 3;

{ SetWindowsHook() mouse hook }
  WH_MOUSE           = 7;

type
  PMOUSEHOOKSTRUCT = ^MOUSEHOOKSTRUCT;
  LPMOUSEHOOKSTRUCT = ^MOUSEHOOKSTRUCT; far;
  MOUSEHOOKSTRUCT = record
    pt: POINT;
    hwnd: HWND;
    wHitTestCode: UINT;
    dwExtraInfo: DWORD;
  end;
  TMouseHookStruct = MOUSEHOOKSTRUCT;

const
{ Mode control }
  WM_CANCELMODE = $001F;

type
{ Timer support }
  TIMERPROC = procedure(hwnd: HWND; msg, idTimer: UINT; dwTime: DWORD); far;

const
  WM_TIMER = $0113;

type
{ Accelerator support }
  HACCEL = THandle;

{ Menu support }

{ Menu template header }
  PMENUITEMTEMPLATEHEADER = ^MENUITEMTEMPLATEHEADER;
  LPMENUITEMTEMPLATEHEADER = ^MENUITEMTEMPLATEHEADER; far;
  MENUITEMTEMPLATEHEADER = record
    versionNumber: UINT;
    offset: UINT;
  end;
  TMenuItemTemplateHeader = MENUITEMTEMPLATEHEADER;

{ Menu template item struct }
  PMENUITEMTEMPLATE = ^MENUITEMTEMPLATE;
  LPMENUITEMTEMPLATE = ^MENUITEMTEMPLATE; far;
  MENUITEMTEMPLATE = record
    mtOption: UINT;
    mtID: UINT;
    mtString: array [0..0] of AnsiChar;
  end;
  TMenuItemTemplate = MENUITEMTEMPLATE;

const
  MF_INSERT          = $0000;
  MF_CHANGE          = $0080;
  MF_APPEND          = $0100;
  MF_DELETE          = $0200;
  MF_REMOVE          = $1000;

{ Menu flags for Add/Check/EnableMenuItem() }
  MF_BYCOMMAND       = $0000;
  MF_BYPOSITION      = $0400;

  MF_SEPARATOR       = $0800;

  MF_ENABLED         = $0000;
  MF_GRAYED          = $0001;
  MF_DISABLED        = $0002;

  MF_UNCHECKED       = $0000;
  MF_CHECKED         = $0008;
  MF_USECHECKBITMAPS = $0200;

  MF_STRING          = $0000;
  MF_BITMAP          = $0004;
  MF_OWNERDRAW       = $0100;

  MF_POPUP           = $0010;
  MF_MENUBARBREAK    = $0020;
  MF_MENUBREAK       = $0040;

  MF_UNHILITE        = $0000;
  MF_HILITE          = $0080;

  MF_SYSMENU         = $2000;
  MF_HELP            = $4000;
  MF_MOUSESELECT     = $8000;


  MF_END             = $0080;  { Only valid in menu resource templates }

{ Flags for TrackPopupMenu }
  TPM_LEFTBUTTON     = $0000;

{ Menu messages }
  WM_INITMENU        = $0116;
  WM_INITMENUPOPUP   = $0117;

  WM_MENUSELECT      = $011F;
  WM_MENUCHAR        = $0120;

{ Menu and control command messages }
  WM_COMMAND         = $0111;

{ Scroll bar support }
  WM_HSCROLL        = $0114;
  WM_VSCROLL        = $0115;

{ WM_H/VSCROLL commands }
  SB_LINEUP         = 0;
  SB_LINELEFT       = 0;
  SB_LINEDOWN       = 1;
  SB_LINERIGHT      = 1;
  SB_PAGEUP         = 2;
  SB_PAGELEFT       = 2;
  SB_PAGEDOWN       = 3;
  SB_PAGERIGHT      = 3;
  SB_THUMBPOSITION  = 4;
  SB_THUMBTRACK     = 5;
  SB_TOP            = 6;
  SB_LEFT           = 6;
  SB_BOTTOM         = 7;
  SB_RIGHT          = 7;
  SB_ENDSCROLL      = 8;

{ Scroll bar selection constants }
  SB_HORZ           = 0;
  SB_VERT           = 1;
  SB_CTL            = 2;
  SB_BOTH           = 3;

{ EnableScrollBar() flags }
  ESB_ENABLE_BOTH   = $0000;
  ESB_DISABLE_BOTH  = $0003;

  ESB_DISABLE_LEFT  = $0001;
  ESB_DISABLE_RIGHT = $0002;

  ESB_DISABLE_UP    = $0001;
  ESB_DISABLE_DOWN  = $0002;

  ESB_DISABLE_LTUP  = ESB_DISABLE_LEFT;
  ESB_DISABLE_RTDN  = ESB_DISABLE_RIGHT;

{ Clipboard manager }

{ Predefined Clipboard Formats }
  CF_TEXT             = 1;
  CF_BITMAP           = 2;
  CF_METAFILEPICT     = 3;
  CF_SYLK             = 4;
  CF_DIF              = 5;
  CF_TIFF             = 6;
  CF_OEMTEXT          = 7;
  CF_DIB              = 8;
  CF_PALETTE          = 9;
  CF_PENDATA          = 10;
  CF_RIFF             = 11;
  CF_WAVE             = 12;

  CF_OWNERDISPLAY     = $0080;
  CF_DSPTEXT          = $0081;
  CF_DSPBITMAP        = $0082;
  CF_DSPMETAFILEPICT  = $0083;

{ "Private" formats don't get GlobalFree()'d }
  CF_PRIVATEFIRST     = $0200;
  CF_PRIVATELAST      = $02FF;

{ "GDIOBJ" formats do get DeleteObject()'d }
  CF_GDIOBJFIRST      = $0300;
  CF_GDIOBJLAST       = $03FF;

{ Clipboard command messages }
  WM_CUT              = $0300;
  WM_COPY             = $0301;
  WM_PASTE            = $0302;
  WM_CLEAR            = $0303;
  WM_UNDO             = $0304;

{ Clipboard owner messages }
  WM_RENDERFORMAT     = $0305;
  WM_RENDERALLFORMATS = $0306;
  WM_DESTROYCLIPBOARD = $0307;

{ Clipboard viewer messages }
  WM_DRAWCLIPBOARD    = $0308;
  WM_PAINTCLIPBOARD   = $0309;
  WM_SIZECLIPBOARD    = $030B;
  WM_VSCROLLCLIPBOARD = $030A;
  WM_HSCROLLCLIPBOARD = $030E;
  WM_ASKCBFORMATNAME  = $030C;
  WM_CHANGECBCHAIN    = $030D;

{ Mouse cursor support }
{ Standard cursor resource IDs }
  IDC_ARROW    = MAKEINTRESOURCE(32512);
  IDC_IBEAM    = MAKEINTRESOURCE(32513);
  IDC_WAIT     = MAKEINTRESOURCE(32514);
  IDC_CROSS    = MAKEINTRESOURCE(32515);
  IDC_UPARROW  = MAKEINTRESOURCE(32516);
  IDC_SIZE     = MAKEINTRESOURCE(32640);
  IDC_ICON     = MAKEINTRESOURCE(32641);
  IDC_SIZENWSE = MAKEINTRESOURCE(32642);
  IDC_SIZENESW = MAKEINTRESOURCE(32643);
  IDC_SIZEWE   = MAKEINTRESOURCE(32644);
  IDC_SIZENS   = MAKEINTRESOURCE(32645);

  WM_SETCURSOR = $0020;

{ Icon support }
{ Standard icon resource IDs }
  IDI_APPLICATION = MAKEINTRESOURCE(32512);
  IDI_HAND        = MAKEINTRESOURCE(32513);
  IDI_QUESTION    = MAKEINTRESOURCE(32514);
  IDI_EXCLAMATION = MAKEINTRESOURCE(32515);
  IDI_ASTERISK    = MAKEINTRESOURCE(32516);

{ Message Box support }
  MB_OK               = $0000;
  MB_OKCANCEL         = $0001;
  MB_ABORTRETRYIGNORE = $0002;
  MB_YESNOCANCEL      = $0003;
  MB_YESNO            = $0004;
  MB_RETRYCANCEL      = $0005;
  MB_TYPEMASK         = $000F;

  MB_ICONHAND         = $0010;
  MB_ICONQUESTION     = $0020;
  MB_ICONEXCLAMATION  = $0030;
  MB_ICONASTERISK     = $0040;
  MB_ICONMASK         = $00F0;

  MB_ICONINFORMATION  = MB_ICONASTERISK;
  MB_ICONSTOP         = MB_ICONHAND;

  MB_DEFBUTTON1       = $0000;
  MB_DEFBUTTON2       = $0100;
  MB_DEFBUTTON3       = $0200;
  MB_DEFMASK          = $0F00;

  MB_APPLMODAL        = $0000;
  MB_SYSTEMMODAL      = $1000;
  MB_TASKMODAL        = $2000;

  MB_NOFOCUS          = $8000;

{ WM_SYSCOMMAND support }

  WM_SYSCOMMAND = $0112;

{ System Menu Command Values }
  SC_SIZE       = $F000;
  SC_MOVE       = $F010;
  SC_MINIMIZE   = $F020;
  SC_MAXIMIZE   = $F030;
  SC_NEXTWINDOW = $F040;
  SC_PREVWINDOW = $F050;
  SC_CLOSE      = $F060;
  SC_VSCROLL    = $F070;
  SC_HSCROLL    = $F080;
  SC_MOUSEMENU  = $F090;
  SC_KEYMENU    = $F100;
  SC_ARRANGE    = $F110;
  SC_RESTORE    = $F120;
  SC_TASKLIST   = $F130;
  SC_SCREENSAVE = $F140;
  SC_HOTKEY     = $F150;

{ Obsolete names }
  SC_ICON = SC_MINIMIZE;
  SC_ZOOM = SC_MAXIMIZE;

{ MDI Support }

type
{ CreateWindow lpParams structure for creating MDI client }
  PCLIENTCREATESTRUCT = ^CLIENTCREATESTRUCT;
  LPCLIENTCREATESTRUCT = ^CLIENTCREATESTRUCT; far;
  CLIENTCREATESTRUCT = record
    hWindowMenu: HMENU;
    idFirstChild: UINT;
  end;
  TClientCreateStruct = CLIENTCREATESTRUCT;

const
{ MDI messages }
  WM_MDICREATE      = $0220;
  WM_MDIDESTROY     = $0221;
  WM_MDIACTIVATE    = $0222;
  WM_MDIRESTORE     = $0223;
  WM_MDINEXT        = $0224;
  WM_MDIMAXIMIZE    = $0225;
  WM_MDITILE        = $0226;
  WM_MDICASCADE     = $0227;
  WM_MDIICONARRANGE = $0228;
  WM_MDIGETACTIVE   = $0229;
  WM_MDISETMENU     = $0230;

type
{ WM_MDICREATE message structure }
  PMDICREATESTRUCT = ^MDICREATESTRUCT;
  LPMDICREATESTRUCT = ^MDICREATESTRUCT; far;
  MDICREATESTRUCT = record
    szClass: LPCSTR;
    szTitle: LPCSTR;
    hOwner: HINST;
    x: SmallInt;
    y: SmallInt;
    cx: SmallInt;
    cy: SmallInt;
    style: DWORD;
    lParam: LPARAM;
  end;
  TMDICreateStruct = MDICREATESTRUCT;

const
  WM_CHILDACTIVATE  = $0022;

{ Dialog and Control Management }

{ Dialog window class }
  WC_DIALOG = MAKEINTATOM($8002);

{ cbWndExtra bytes needed by dialog manager for dialog classes }
  DLGWINDOWEXTRA = 30;

{ Dialog styles }
  DS_ABSALIGN          = $01;
  DS_SYSMODAL          = $02;
  DS_LOCALEDIT         = $20;
  DS_SETFONT           = $40;
  DS_MODALFRAME        = $80;
  DS_NOIDLEMSG         = $100;

{ Dialog messages }
  DM_GETDEFID          = (WM_USER+0);
  DM_SETDEFID          = (WM_USER+1);

{ Returned in HIWORD() of DM_GETDEFID result if msg is supported }
  DC_HASDEFID          = $534B;

{ Dialog notification messages }
  WM_INITDIALOG        = $0110;
  WM_NEXTDLGCTL        = $0028;

  WM_PARENTNOTIFY      = $0210;

  WM_ENTERIDLE         = $0121;

type
  DLGPROC = function(hwndDlg: HWND; msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; far;

const
{ Get/SetWindowWord/Long offsets for use with WC_DIALOG windows }
  DWL_MSGRESULT        = 0;
  DWL_DLGPROC          = 4;
  DWL_USER             = 8;

  WM_GETDLGCODE        = $0087;

{ dialog codes }
  DLGC_WANTARROWS      = $0001;
  DLGC_WANTTAB         = $0002;
  DLGC_WANTALLKEYS     = $0004;
  DLGC_WANTMESSAGE     = $0004;
  DLGC_HASSETSEL       = $0008;
  DLGC_DEFPUSHBUTTON   = $0010;
  DLGC_UNDEFPUSHBUTTON = $0020;
  DLGC_RADIOBUTTON     = $0040;
  DLGC_WANTCHARS       = $0080;
  DLGC_STATIC          = $0100;
  DLGC_BUTTON          = $2000;

  WM_CTLCOLOR          = $0019;

{ WM_CTLCOLOR control IDs }
  CTLCOLOR_MSGBOX      = 0;
  CTLCOLOR_EDIT        = 1;
  CTLCOLOR_LISTBOX     = 2;
  CTLCOLOR_BTN         = 3;
  CTLCOLOR_DLG         = 4;
  CTLCOLOR_SCROLLBAR   = 5;
  CTLCOLOR_STATIC      = 6;

  WM_SETFONT           = $0030;
  WM_GETFONT           = $0031;

{ Standard dialog button IDs }
  IDOK                 = 1;
  IDCANCEL             = 2;
  IDABORT              = 3;
  IDRETRY              = 4;
  IDIGNORE             = 5;
  IDYES                = 6;
  IDNO                 = 7;

{ Owner draw control support }

{ Owner draw control types }
  ODT_MENU       = 1;
  ODT_LISTBOX    = 2;
  ODT_COMBOBOX   = 3;
  ODT_BUTTON     = 4;

{ Owner draw actions }
  ODA_DRAWENTIRE = $0001;
  ODA_SELECT     = $0002;
  ODA_FOCUS      = $0004;

{ Owner draw state }
  ODS_SELECTED   = $0001;
  ODS_GRAYED     = $0002;
  ODS_DISABLED   = $0004;
  ODS_CHECKED    = $0008;
  ODS_FOCUS      = $0010;

  WM_DRAWITEM    = $002B;

type
  PDRAWITEMSTRUCT = ^DRAWITEMSTRUCT;
  NPDRAWITEMSTRUCT = ^DRAWITEMSTRUCT; near;
  LPDRAWITEMSTRUCT = ^DRAWITEMSTRUCT; far;
  DRAWITEMSTRUCT = record
    CtlType: UINT;
    CtlID: UINT;
    itemID: UINT;
    itemAction: UINT;
    itemState: UINT;
    hwndItem: HWND;
    hDC: HDC;
    rcItem: RECT;
    itemData: DWORD;
  end;
  TDrawItemStruct = DRAWITEMSTRUCT;

const
  WM_MEASUREITEM = $002C;

type
  PMEASUREITEMSTRUCT = ^MEASUREITEMSTRUCT;
  NPMEASUREITEMSTRUCT = ^MEASUREITEMSTRUCT; near;
  LPMEASUREITEMSTRUCT = ^MEASUREITEMSTRUCT; far;
  MEASUREITEMSTRUCT = record
    CtlType: UINT;
    CtlID: UINT;
    itemID: UINT;
    itemWidth: UINT;
    itemHeight: UINT;
    itemData: DWORD;
  end;
  TMeasureItemStruct = MEASUREITEMSTRUCT;

const
  WM_DELETEITEM  = $002D;

type
  PDELETEITEMSTRUCT = ^DELETEITEMSTRUCT;
  NPDELETEITEMSTRUCT = ^DELETEITEMSTRUCT; near;
  LPDELETEITEMSTRUCT = ^DELETEITEMSTRUCT; far;
  DELETEITEMSTRUCT = record
    CtlType: UINT;
    CtlID: UINT;
    itemID: UINT;
    hwndItem: HWND;
    itemData: DWORD;
  end;
  TDeleteItemStruct = DELETEITEMSTRUCT;

const
  WM_COMPAREITEM = $0039;

type
  PCOMPAREITEMSTRUCT = ^COMPAREITEMSTRUCT;
  NPCOMPAREITEMSTRUCT = ^COMPAREITEMSTRUCT; near;
  LPCOMPAREITEMSTRUCT = ^COMPAREITEMSTRUCT; far;
  COMPAREITEMSTRUCT = record
    CtlType: UINT;
    CtlID: UINT;
    hwndItem: HWND;
    itemID1: UINT;
    itemData1: DWORD;
    itemID2: UINT;
    itemData2: DWORD;
  end;
  TCompareItemStruct = COMPAREITEMSTRUCT;

{ Static control }

const
{ Static Control Styles }
  SS_LEFT           = $00000000;
  SS_CENTER         = $00000001;
  SS_RIGHT          = $00000002;
  SS_ICON           = $00000003;
  SS_BLACKRECT      = $00000004;
  SS_GRAYRECT       = $00000005;
  SS_WHITERECT      = $00000006;
  SS_BLACKFRAME     = $00000007;
  SS_GRAYFRAME      = $00000008;
  SS_WHITEFRAME     = $00000009;
  SS_SIMPLE         = $0000000B;
  SS_LEFTNOWORDWRAP = $0000000C;
  SS_NOPREFIX       = $00000080;

{ Button control }

{ Button Control Styles }
  BS_PUSHBUTTON      = $00000000;
  BS_DEFPUSHBUTTON   = $00000001;
  BS_CHECKBOX        = $00000002;
  BS_AUTOCHECKBOX    = $00000003;
  BS_RADIOBUTTON     = $00000004;
  BS_3STATE          = $00000005;
  BS_AUTO3STATE      = $00000006;
  BS_GROUPBOX        = $00000007;
  BS_USERBUTTON      = $00000008;
  BS_AUTORADIOBUTTON = $00000009;
  BS_OWNERDRAW       = $0000000B;
  BS_LEFTTEXT        = $00000020;

{ Button Control Messages  }
  BM_GETCHECK        = (WM_USER+0);
  BM_SETCHECK        = (WM_USER+1);
  BM_GETSTATE        = (WM_USER+2);
  BM_SETSTATE        = (WM_USER+3);
  BM_SETSTYLE        = (WM_USER+4);

{ User Button Notification Codes }
  BN_CLICKED         = 0;
  BN_PAINT           = 1;
  BN_HILITE          = 2;
  BN_UNHILITE        = 3;
  BN_DISABLE         = 4;
  BN_DOUBLECLICKED   = 5;

{ Edit control }

{ Edit control styles }
  ES_LEFT            = $00000000;
  ES_CENTER          = $00000001;
  ES_RIGHT           = $00000002;
  ES_MULTILINE       = $00000004;
  ES_UPPERCASE       = $00000008;
  ES_LOWERCASE       = $00000010;
  ES_PASSWORD        = $00000020;
  ES_AUTOVSCROLL     = $00000040;
  ES_AUTOHSCROLL     = $00000080;
  ES_NOHIDESEL       = $00000100;
  ES_OEMCONVERT      = $00000400;

{ Edit control messages }
  EM_GETSEL          = (WM_USER+0);
  EM_SETSEL          = (WM_USER+1);
  EM_GETRECT         = (WM_USER+2);
  EM_SETRECT         = (WM_USER+3);
  EM_SETRECTNP       = (WM_USER+4);
  EM_LINESCROLL      = (WM_USER+6);
  EM_GETMODIFY       = (WM_USER+8);
  EM_SETMODIFY       = (WM_USER+9);
  EM_GETLINECOUNT    = (WM_USER+10);
  EM_LINEINDEX       = (WM_USER+11);
  EM_SETHANDLE       = (WM_USER+12);
  EM_GETHANDLE       = (WM_USER+13);
  EM_LINELENGTH      = (WM_USER+17);
  EM_REPLACESEL      = (WM_USER+18);
  EM_SETFONT         = (WM_USER+19);  { NOT IMPLEMENTED: use WM_SETFONT }
  EM_GETLINE         = (WM_USER+20);
  EM_LIMITTEXT       = (WM_USER+21);
  EM_CANUNDO         = (WM_USER+22);
  EM_UNDO            = (WM_USER+23);
  EM_FMTLINES        = (WM_USER+24);
  EM_LINEFROMCHAR    = (WM_USER+25);
  EM_SETWORDBREAK    = (WM_USER+26);  { NOT IMPLEMENTED: use EM_SETWORDBREAK }
  EM_SETTABSTOPS     = (WM_USER+27);
  EM_SETPASSWORDCHAR = (WM_USER+28);
  EM_EMPTYUNDOBUFFER = (WM_USER+29);

{ Edit control notification codes }
  EN_SETFOCUS        = $0100;
  EN_KILLFOCUS       = $0200;
  EN_CHANGE          = $0300;
  EN_UPDATE          = $0400;
  EN_ERRSPACE        = $0500;
  EN_MAXTEXT         = $0501;
  EN_HSCROLL         = $0601;
  EN_VSCROLL         = $0602;

{ Scroll bar control }
{ Also see scrolling support }

{ Scroll bar styles }
  SBS_HORZ                    = $0000;
  SBS_VERT                    = $0001;
  SBS_TOPALIGN                = $0002;
  SBS_LEFTALIGN               = $0002;
  SBS_BOTTOMALIGN             = $0004;
  SBS_RIGHTALIGN              = $0004;
  SBS_SIZEBOXTOPLEFTALIGN     = $0002;
  SBS_SIZEBOXBOTTOMRIGHTALIGN = $0004;
  SBS_SIZEBOX                 = $0008;

{ Listbox control }

{ Listbox styles }
  LBS_NOTIFY             = $0001;
  LBS_SORT               = $0002;
  LBS_NOREDRAW           = $0004;
  LBS_MULTIPLESEL        = $0008;
  LBS_OWNERDRAWFIXED     = $0010;
  LBS_OWNERDRAWVARIABLE  = $0020;
  LBS_HASSTRINGS         = $0040;
  LBS_USETABSTOPS        = $0080;
  LBS_NOINTEGRALHEIGHT   = $0100;
  LBS_MULTICOLUMN        = $0200;
  LBS_WANTKEYBOARDINPUT  = $0400;
  LBS_EXTENDEDSEL        = $0800;
  LBS_STANDARD           = (LBS_NOTIFY or LBS_SORT or WS_VSCROLL or WS_BORDER);

{ Listbox messages }
  LB_ADDSTRING           = (WM_USER+1);
  LB_INSERTSTRING        = (WM_USER+2);
  LB_DELETESTRING        = (WM_USER+3);
  LB_RESETCONTENT        = (WM_USER+5);
  LB_SETSEL              = (WM_USER+6);
  LB_SETCURSEL           = (WM_USER+7);
  LB_GETSEL              = (WM_USER+8);
  LB_GETCURSEL           = (WM_USER+9);
  LB_GETTEXT             = (WM_USER+10);
  LB_GETTEXTLEN          = (WM_USER+11);
  LB_GETCOUNT            = (WM_USER+12);
  LB_SELECTSTRING        = (WM_USER+13);
  LB_DIR                 = (WM_USER+14);
  LB_GETTOPINDEX         = (WM_USER+15);
  LB_FINDSTRING          = (WM_USER+16);
  LB_GETSELCOUNT         = (WM_USER+17);
  LB_GETSELITEMS         = (WM_USER+18);
  LB_SETTABSTOPS         = (WM_USER+19);
  LB_GETHORIZONTALEXTENT = (WM_USER+20);
  LB_SETHORIZONTALEXTENT = (WM_USER+21);
  LB_SETCOLUMNWIDTH      = (WM_USER+22);
  LB_SETTOPINDEX         = (WM_USER+24);
  LB_GETITEMRECT         = (WM_USER+25);
  LB_GETITEMDATA         = (WM_USER+26);
  LB_SETITEMDATA         = (WM_USER+27);
  LB_SELITEMRANGE        = (WM_USER+28);
  LB_SETCARETINDEX       = (WM_USER+31);
  LB_GETCARETINDEX       = (WM_USER+32);

{ Listbox notification codes }
  LBN_ERRSPACE           = (-2);
  LBN_SELCHANGE          = 1;
  LBN_DBLCLK             = 2;
  LBN_SELCANCEL          = 3;
  LBN_SETFOCUS           = 4;
  LBN_KILLFOCUS          = 5;

{ Listbox notification messages }
  WM_VKEYTOITEM          = $002E;
  WM_CHARTOITEM          = $002F;

{ Listbox message return values }
  LB_OKAY                = 0;
  LB_ERR                 = (-1);
  LB_ERRSPACE            = (-2);

  LB_CTLCODE             = 0;

{ Dialog directory support }

{ DlgDirList, DlgDirListComboBox flags values }
  DDL_READWRITE = $0000;
  DDL_READONLY  = $0001;
  DDL_HIDDEN    = $0002;
  DDL_SYSTEM    = $0004;
  DDL_DIRECTORY = $0010;
  DDL_ARCHIVE   = $0020;

  DDL_POSTMSGS  = $2000;
  DDL_DRIVES    = $4000;
  DDL_EXCLUSIVE = $8000;

{ Combo box control }

{ Combo box styles }
  CBS_SIMPLE            = $0001;
  CBS_DROPDOWN          = $0002;
  CBS_DROPDOWNLIST      = $0003;
  CBS_OWNERDRAWFIXED    = $0010;
  CBS_OWNERDRAWVARIABLE = $0020;
  CBS_AUTOHSCROLL       = $0040;
  CBS_OEMCONVERT        = $0080;
  CBS_SORT              = $0100;
  CBS_HASSTRINGS        = $0200;
  CBS_NOINTEGRALHEIGHT  = $0400;

{ Combo box messages }
  CB_GETEDITSEL         = (WM_USER+0);
  CB_LIMITTEXT          = (WM_USER+1);
  CB_SETEDITSEL         = (WM_USER+2);
  CB_ADDSTRING          = (WM_USER+3);
  CB_DELETESTRING       = (WM_USER+4);
  CB_DIR                = (WM_USER+5);
  CB_GETCOUNT           = (WM_USER+6);
  CB_GETCURSEL          = (WM_USER+7);
  CB_GETLBTEXT          = (WM_USER+8);
  CB_GETLBTEXTLEN       = (WM_USER+9);
  CB_INSERTSTRING       = (WM_USER+10);
  CB_RESETCONTENT       = (WM_USER+11);
  CB_FINDSTRING         = (WM_USER+12);
  CB_SELECTSTRING       = (WM_USER+13);
  CB_SETCURSEL          = (WM_USER+14);
  CB_SHOWDROPDOWN       = (WM_USER+15);
  CB_GETITEMDATA        = (WM_USER+16);
  CB_SETITEMDATA        = (WM_USER+17);

{ Combo box notification codes }
  CBN_ERRSPACE          = (-1);
  CBN_SELCHANGE         = 1;
  CBN_DBLCLK            = 2;
  CBN_SETFOCUS          = 3;
  CBN_KILLFOCUS         = 4;
  CBN_EDITCHANGE        = 5;
  CBN_EDITUPDATE        = 6;
  CBN_DROPDOWN          = 7;

{ Combo box message return values }
  CB_OKAY               = 0;
  CB_ERR                = (-1);
  CB_ERRSPACE           = (-2);

type
{ Windows hook support }
  LPHHOOK = ^HHOOK; far;
  HHOOK = DWORD;
  HOOKPROC = function(code: SmallInt; wParam: WPARAM; lParam: LPARAM): LRESULT; far;
  THookProc = HOOKPROC;

const
{ Standard hook code }
  HC_ACTION     = 0;

{ Obsolete hook codes (NO LONGER SUPPORTED) }
  HC_GETLPLPFN  = (-3);
  HC_LPLPFNNEXT = (-2);
  HC_LPFNNEXT   = (-1);

{ Computer-based-training (CBT) support }

  WM_QUEUESYNC      = $0023;

{ SetWindowsHook() code }
  WH_CBT            = 5;

  HCBT_MOVESIZE     = 0;
  HCBT_MINMAX       = 1;
  HCBT_QS           = 2;
  HCBT_CREATEWND    = 3;
  HCBT_DESTROYWND   = 4;
  HCBT_ACTIVATE     = 5;
  HCBT_CLICKSKIPPED = 6;
  HCBT_KEYSKIPPED   = 7;
  HCBT_SYSCOMMAND   = 8;
  HCBT_SETFOCUS     = 9;

{ Journalling support }

  WH_JOURNALRECORD   = 0;
  WH_JOURNALPLAYBACK = 1;

{ Journalling hook codes }
  HC_GETNEXT         = 1;
  HC_SKIP            = 2;
  HC_NOREMOVE        = 3;
  HC_NOREM           = HC_NOREMOVE;
  HC_SYSMODALON      = 4;
  HC_SYSMODALOFF     = 5;

type
{ Journalling message structure }
  PEVENTMSG = ^EVENTMSG;
  NPEVENTMSG = ^EVENTMSG; near;
  LPEVENTMSG = ^EVENTMSG; far;
  EVENTMSG = record
    message: UINT;
    paramL: UINT;
    paramH: UINT;
    time: DWORD;
  end;
  TEventMsg = EVENTMSG;

{ Help support }

const
{ WinHelp() commands }
  HELP_CONTEXT      = $0001;
  HELP_QUIT         = $0002;
  HELP_INDEX        = $0003;
  HELP_CONTENTS     = $0003;
  HELP_HELPONHELP   = $0004;
  HELP_SETINDEX     = $0005;
  HELP_SETCONTENTS  = $0005;
  HELP_CONTEXTPOPUP = $0008;
  HELP_FORCEFILE    = $0009;
  HELP_KEY          = $0101;
  HELP_COMMAND      = $0102;
  HELP_PARTIALKEY   = $0105;
  HELP_MULTIKEY     = $0201;
  HELP_SETWINPOS    = $0203;

type
  PMULTIKEYHELP = ^MULTIKEYHELP;
  LPMULTIKEYHELP = ^MULTIKEYHELP; far;
  MULTIKEYHELP = record
    mkSize: UINT;
    mkKeylist: BYTE;
    szKeyphrase: array [0..0] of BYTE;
  end;
  TMultiKeyHelp = MULTIKEYHELP;

  PHELPWININFO = ^HELPWININFO;
  NPHELPWININFO = ^HELPWININFO; near;
  LPHELPWININFO = ^HELPWININFO; far;
  HELPWININFO = record
    wStructSize: SmallInt;
    x: SmallInt;
    y: SmallInt;
    dx: SmallInt;
    dy: SmallInt;
    wMax: SmallInt;
    rgchMember: array [0..1] of AnsiChar;
  end;
  THelpWinInfo = HELPWININFO;

{ Sound support }

const
{ SetSoundNoise() Sources }
  S_PERIOD512    = 0;
  S_PERIOD1024   = 1;
  S_PERIOD2048   = 2;
  S_PERIODVOICE  = 3;
  S_WHITE512     = 4;
  S_WHITE1024    = 5;
  S_WHITE2048    = 6;
  S_WHITEVOICE   = 7;

{ WaitSoundState() constants }
  S_QUEUEEMPTY   = 0;
  S_THRESHOLD    = 1;
  S_ALLTHRESHOLD = 2;

{ Accent Modes }
  S_NORMAL       = 0;
  S_LEGATO       = 1;
  S_STACCATO     = 2;

{ Error return values }
  S_SERDVNA      = (-1);
  S_SEROFM       = (-2);
  S_SERMACT      = (-3);
  S_SERQFUL      = (-4);
  S_SERBDNT      = (-5);
  S_SERDLN       = (-6);
  S_SERDCC       = (-7);
  S_SERDTP       = (-8);
  S_SERDVL       = (-9);
  S_SERDMD       = (-10);
  S_SERDSH       = (-11);
  S_SERDPT       = (-12);
  S_SERDFQ       = (-13);
  S_SERDDR       = (-14);
  S_SERDSR       = (-15);
  S_SERDST       = (-16);

{ Comm support }

  NOPARITY      = 0;
  ODDPARITY     = 1;
  EVENPARITY    = 2;
  MARKPARITY    = 3;
  SPACEPARITY   = 4;

  ONESTOPBIT    = 0;
  ONE5STOPBITS  = 1;
  TWOSTOPBITS   = 2;

  IGNORE        = 0;
  INFINITE      = $FFFF;

{ Error Flags }
  CE_RXOVER     = $0001;
  CE_OVERRUN    = $0002;
  CE_RXPARITY   = $0004;
  CE_FRAME      = $0008;
  CE_BREAK      = $0010;
  CE_CTSTO      = $0020;
  CE_DSRTO      = $0040;
  CE_RLSDTO     = $0080;
  CE_TXFULL     = $0100;
  CE_PTO        = $0200;
  CE_IOE        = $0400;
  CE_DNS        = $0800;
  CE_OOP        = $1000;
  CE_MODE       = $8000;

  IE_BADID      = (-1);
  IE_OPEN       = (-2);
  IE_NOPEN      = (-3);
  IE_MEMORY     = (-4);
  IE_DEFAULT    = (-5);
  IE_HARDWARE   = (-10);
  IE_BYTESIZE   = (-11);
  IE_BAUDRATE   = (-12);

{ Events }
  EV_RXCHAR     = $0001;
  EV_RXFLAG     = $0002;
  EV_TXEMPTY    = $0004;
  EV_CTS        = $0008;
  EV_DSR        = $0010;
  EV_RLSD       = $0020;
  EV_BREAK      = $0040;
  EV_ERR        = $0080;
  EV_RING       = $0100;
  EV_PERR       = $0200;
  EV_CTSS       = $0400;
  EV_DSRS       = $0800;
  EV_RLSDS      = $1000;
  EV_RingTe     = $2000;
//  EV_RINGTE     = EV_RingTe;

{ Escape Functions }
  SETXOFF       = 1;
  SETXON        = 2;
  SETRTS        = 3;
  CLRRTS        = 4;
  SETDTR        = 5;
  CLRDTR        = 6;
  RESETDEV      = 7;

  LPTx          = $80;

type
  PDCB = ^DCB;
  LPDCB = ^DCB; far;
  DCB = record
    Id: BYTE;
    BaudRate: UINT;
    ByteSize: BYTE;
    Parity: BYTE;
    StopBits: BYTE;
    RlsTimeout: UINT;
    CtsTimeout: UINT;
    DsrTimeout: UINT;

    Flags: Word;
{    UINT fBinary        :1;
    UINT fRtsDisable    :1;
    UINT fParity        :1;
    UINT fOutxCtsFlow   :1;
    UINT fOutxDsrFlow   :1;
    UINT fDummy         :2;
    UINT fDtrDisable    :1;

    UINT fOutX          :1;
    UINT fInX           :1;
    UINT fPeChar        :1;
    UINT fNull          :1;
    UINT fChEvt         :1;
    UINT fDtrflow       :1;
    UINT fRtsflow       :1;
    UINT fDummy2        :1;}

    XonChar: AnsiChar;
    XoffChar: AnsiChar;
    XonLim: UINT;
    XoffLim: UINT;
    PeChar: AnsiChar;
    EofChar: AnsiChar;
    EvtChar: AnsiChar;
    TxDelay: UINT;
  end;
  TDCB = DCB;

const
  DCB_Binary      = $0001;
  DCB_RtsDisable  = $0002;
  DCB_Parity      = $0004;
  DCB_OutxCtsFlow = $0008;
  DCB_OutxDsrFlow = $0010;
  DCB_Dummy       = $0060;
  DCB_DtrDisable  = $0080;

  DCB_OutX        = $0100;
  DCB_InX         = $0200;
  DCB_PeChar      = $0400;
  DCB_Null        = $0800;
  DCB_ChEvt       = $1000;
  DCB_Dtrflow     = $2000;
  DCB_Rtsflow     = $4000;
  DCB_Dummy2      = $8000;

type
  PCOMSTAT = ^COMSTAT;
  LPCOMSTAT = ^COMSTAT; far;
  COMSTAT = record
    case Integer of
      0: (
           status: BYTE;
           cbInQue: UINT;
           cbOutQue: UINT;
         );
      1: (
           { BP7 compatible field name, overlaid on top of 'status' }
           Flags: Byte
         );
  end;
  TComStat = COMSTAT;

const
  CSTF_CTSHOLD  = $01;
  CSTF_DSRHOLD  = $02;
  CSTF_RLSDHOLD = $04;
  CSTF_XOFFHOLD = $08;
  CSTF_XOFFSENT = $10;
  CSTF_EOF      = $20;
  CSTF_TXIM     = $40;

  { BP7 compatibility constants }
  COM_CtsHold   = $01;
  COM_DsrHold   = $02;
  COM_RlsdHold  = $04;
  COM_XoffHold  = $08;
  COM_XoffSent  = $10;
  COM_Eof       = $20;
  COM_Txim      = $40;