development/compilers/freepascal/rtl/os2/pmwin.pas

   1 {****************************************************************************
   2
   3     $Id$
   4
   5                             PMWIN interface unit
   6                      FPC Pascal Runtime Library for OS/2
   7                   Copyright (c) 1999-2000 by Florian Klaempfl
   8                     Copyright (c) 1999-2000 by Ramon Bosque
   9
  10  The Free Pascal runtime library is distributed under the Library GNU Public
  11  License v2. So is this unit. The Library GNU Public License requires you to
  12  distribute the source code of this unit with any product that uses it.
  13  Because the EMX library isn't under the LGPL, we grant you an exception to
  14  this, and that is, when you compile a program with the Free Pascal compiler,
  15  you do not need to ship source code with that program, AS LONG AS YOU ARE
  16  USING UNMODIFIED CODE! If you modify this code, you MUST change the next
  17  line:
  18
  19  <This an official, unmodified Free Pascal source code file.>
  20
  21  Send us your modified files, we can work together if you want!
  22
  23  Free Pascal is distributed in the hope that it will be useful,
  24  but WITHOUT ANY WARRANTY; without even the implied warranty of
  25  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  26  Library GNU General Public License for more details.
  27
  28  You should have received a copy of the Library GNU General Public License
  29  along with Free Pascal; see the file COPYING.LIB.  If not, write to
  30  the Free Software Foundation, 59 Temple Place - Suite 330,
  31  Boston, MA 02111-1307, USA.
  32
  33  ****************************************************************************}
  34
  35 {Warning: This code is alfa. Future versions
  36  of this unit might not be compatible.}
  37
  38 unit pmwin;
  39
  40   interface
  41
  42     uses
  43        os2def;
  44
  45     type
  46        proc=function (hwnd,msg : cardinal;mp1,mp2 : pointer) : pointer; cdecl;
  47        QVERSDATA = record
  48         environment : word;
  49         version : word;
  50        end;
  51        PQVERSDATA = ^QVERSDATA;
  52        SWP = record
  53         fl : cardinal;
  54         cy : longint;
  55         cx : longint;
  56         y : longint;
  57         x : longint;
  58         hwndInsertBehind : cardinal;
  59         hwnd : cardinal;
  60         ulReserved1 : cardinal;
  61         ulReserved2 : cardinal;
  62        end;
  63        PSWP = ^SWP;
  64        CREATESTRUCT = record
  65         pPresParams : pointer;
  66         pCtlData : pointer;
  67         id : cardinal;
  68         hwndInsertBehind : cardinal;
  69         hwndOwner : cardinal;
  70         cy : longint;
  71         cx : longint;
  72         y : longint;
  73         x : longint;
  74         flStyle : cardinal;
  75         pszText : pchar;
  76         pszClass : pchar;
  77         hwndParent : cardinal;
  78        end;
  79        PCREATESTRUCT = ^CREATESTRUCT;
  80        CLASSINFO = record
  81         flClassStyle : cardinal;
  82         pfnWindowProc : proc;
  83         cbWindowData : cardinal;
  84        end;
  85        PCLASSINFO = ^CLASSINFO;
  86        QMSG = record
  87         hwnd : cardinal;
  88         msg : cardinal;
  89         mp1 : pointer;
  90         mp2 : pointer;
  91         time : cardinal;
  92         ptl : POINTL;
  93         reserved : cardinal;
  94        end;
  95        PQMSG = ^QMSG;
  96        MQINFO = record
  97         cb : cardinal;
  98         pid : cardinal;
  99         tid : cardinal;
 100         cmsgs : cardinal;
 101         pReserved : pointer;
 102        end;
 103        PMQINFO = ^MQINFO;
 104        WNDPARAMS = record
 105         fsStatus : cardinal;
 106         cchText : cardinal;
 107         pszText : pchar;
 108         cbPresParams : cardinal;
 109         pPresParams : pointer;
 110         cbCtlData : cardinal;
 111         pCtlData : pointer;
 112        end;
 113        PWNDPARAMS = ^WNDPARAMS;
 114        USERBUTTON = record
 115         hwnd : cardinal;
 116         hps : cardinal;
 117         fsState : cardinal;
 118         fsStateOld : cardinal;
 119        end;
 120        PUSERBUTTON = ^USERBUTTON;
 121        OWNERITEM = record
 122         hwnd : cardinal;
 123         hps : cardinal;
 124         fsState : cardinal;
 125         fsAttribute : cardinal;
 126         fsStateOld : cardinal;
 127         fsAttributeOld : cardinal;
 128         rclItem : TRectl;
 129         idItem : longint;
 130         hItem : cardinal;
 131        end;
 132        POWNERITEM = ^OWNERITEM;
 133        PARAM = record
 134         id : cardinal;
 135         cb : cardinal;
 136         ab : array[0..1-1] of BYTE;
 137        end;
 138        PPARAM = ^PARAM;
 139        PRESPARAMS = record
 140         cb : cardinal;
 141         aparam : array[0..1-1] of PARAM;
 142        end;
 143        PPRESPARAMS = ^PRESPARAMS;
 144        TRACKINFO = record
 145         cxBorder : longint;
 146         cyBorder : longint;
 147         cxGrid : longint;
 148         cyGrid : longint;
 149         cxKeyboard : longint;
 150         cyKeyboard : longint;
 151         rclTrack : TRectl;
 152         rclBoundary : TRectl;
 153         ptlMinTrackSize : POINTL;
 154         ptlMaxTrackSize : POINTL;
 155         fs : cardinal;
 156        end;
 157        PTRACKINFO = ^TRACKINFO;
 158        CURSORINFO = record
 159         hwnd : cardinal;
 160         x : longint;
 161         y : longint;
 162         cx : longint;
 163         cy : longint;
 164         fs : cardinal;
 165         rclClip : TRectl;
 166        end;
 167        PCURSORINFO = ^CURSORINFO;
 168        POINTERINFO = record
 169         fPointer : cardinal;
 170         xHotspot : longint;
 171         yHotspot : longint;
 172         hbmPointer : cardinal;
 173         hbmColor : cardinal;
 174         hbmMiniPointer : cardinal;
 175         hbmMiniColor : cardinal;
 176        end;
 177        PPOINTERINFO = ^POINTERINFO;
 178        SMHSTRUCT = record
 179         mp2 : pointer;
 180         mp1 : pointer;
 181         msg : cardinal;
 182         hwnd : cardinal;
 183         model : cardinal;
 184        end;
 185        PSMHSTRUCT = ^SMHSTRUCT;
 186        ERRINFO = record
 187         cbFixedErrInfo : cardinal;
 188         idError : cardinal;
 189         cDetailLevel : cardinal;
 190         offaoffszMsg : cardinal;
 191         offBinaryData : cardinal;
 192        end;
 193        PERRINFO = ^ERRINFO;
 194        CONVCONTEXT = record
 195         cb : cardinal;
 196         fsContext : cardinal;
 197         idCountry : cardinal;
 198         usCodepage : cardinal;
 199         usLangID : cardinal;
 200         usSubLangID : cardinal;
 201        end;
 202        PCONVCONTEXT = ^CONVCONTEXT;
 203        DDEINIT = record
 204         cb : cardinal;
 205         pszAppName : pchar;
 206         pszTopic : pchar;
 207         offConvContext : cardinal;
 208        end;
 209        PDDEINIT = ^DDEINIT;
 210        DDESTRUCT = record
 211         cbData : cardinal;
 212         fsStatus : word;
 213         usFormat : word;
 214         offszItemName : word;
 215         offabData : word;
 216        end;
 217        PDDESTRUCT = ^DDESTRUCT;
 218        DESKTOP = record
 219         cbSize : cardinal;
 220         hbm : cardinal;
 221         x : longint;
 222         y : longint;
 223         fl : cardinal;
 224         lTileCount : longint;
 225         szFile : array[0..260-1] of shortint;
 226        end;
 227        PDESKTOP = ^DESKTOP;
 228 {$PACKRECORDS 1}
 229        CMDMSG = record
 230         cmd : word;
 231         unused : word;
 232         source : word;
 233         fMouse : word;
 234        end;
 235        PCMDMSG = ^CMDMSG;
 236        MSEMSG = record
 237         x : integer;
 238         y : integer;
 239         codeHitTest : word;
 240         fsInp : word;
 241        end;
 242        PMSEMSG = ^MSEMSG;
 243        CHRMSG = record
 244         fs : word;
 245         cRepeat : byte;
 246         scancode : byte;
 247         chr : word;
 248         vkey : word;
 249        end;
 250        PCHRMSG = ^CHRMSG;
 251 {$PACKRECORDS NORMAL}
 252
 253 {$PACKRECORDS 2}
 254     DLGTITEM = record
 255         fsItemStatus : word;
 256         cChildren : word;
 257         cchClassName : word;
 258         offClassName : word;
 259         cchText : word;
 260         offText : word;
 261         flStyle : cardinal;
 262         x : integer;
 263         y : integer;
 264         cx : integer;
 265         cy : integer;
 266         id : word;
 267         offPresParams : word;
 268         offCtlData : word;
 269        end;
 270        PDLGTITEM = ^DLGTITEM;
 271        DLGTEMPLATE = record
 272         cbTemplate : word;
 273         _type : word;
 274         codepage : word;
 275         offadlgti : word;
 276         fsTemplateStatus : word;
 277         iItemFocus : word;
 278         coffPresParams : word;
 279         adlgti : array[0..0] of DLGTITEM;
 280        end;
 281        PDLGTEMPLATE = ^DLGTEMPLATE;
 282        BTNCDATA = record
 283         cb : word;
 284         fsCheckState : word;
 285         fsHiliteState : word;
 286         hImage : cardinal;
 287        end;
 288        PBTNCDATA = ^BTNCDATA;
 289        ENTRYFDATA = record
 290         cb : word;
 291         cchEditLimit : word;
 292         ichMinSel : word;
 293         ichMaxSel : word;
 294        end;
 295        PENTRYFDATA = ^ENTRYFDATA;
 296        MENUITEM = record
 297         iPosition : integer;
 298         afStyle : word;
 299         afAttribute : word;
 300         id : word;
 301         hwndSubMenu : cardinal;
 302         hItem : cardinal;
 303        end;
 304        PMENUITEM = ^MENUITEM;
 305        SBCDATA = record
 306         cb : word;
 307         sHilite : word;
 308         posFirst : integer;
 309         posLast : integer;
 310         posThumb : integer;
 311         cVisible : integer;
 312         cTotal : integer;
 313        end;
 314        PSBCDATA = ^SBCDATA;
 315        FRAMECDATA = record
 316         cb : word;
 317         flCreateFlags : cardinal;
 318         hmodResources : word;
 319         idResources : word;
 320        end;
 321        PFRAMECDATA = ^FRAMECDATA;
 322        ACCEL = record
 323         fs : word;
 324         key : word;
 325         cmd : word;
 326        end;
 327        PACCEL = ^ACCEL;
 328        ACCELTABLE = record
 329         cAccel : word;
 330         codepage : word;
 331         aaccel : array[0..1-1] of ACCEL;
 332        end;
 333        PACCELTABLE = ^ACCELTABLE;
 334        MFP = record
 335         sizeBounds : POINTL;
 336         sizeMM : POINTL;
 337         cbLength : cardinal;
 338         mapMode : word;
 339         reserved : word;
 340         abData : array[0..1-1] of BYTE;
 341        end;
 342        PMFP = ^MFP;
 343        CPTEXT = record
 344         idCountry : word;
 345         usCodepage : word;
 346         usLangID : word;
 347         usSubLangID : word;
 348         abText : array[0..1-1] of BYTE;
 349        end;
 350        PCPTEXT = ^CPTEXT;
 351 {$PACKRECORDS NORMAL}
 352
 353 {Names beginning with T for compatibility}
 354
 355       TQVERSDATA = QVERSDATA;
 356       TSWP = SWP;
 357       TCREATESTRUCT = CREATESTRUCT;
 358       TCLASSINFO = CLASSINFO;
 359       TQMSG = QMSG;
 360       TMQINFO = MQINFO;
 361       TWNDPARAMS = WNDPARAMS;
 362       TUSERBUTTON = USERBUTTON;
 363       TOWNERITEM = OWNERITEM;
 364       TPARAM = PARAM;
 365       TPRESPARAMS = PRESPARAMS;
 366       TTRACKINFO = TRACKINFO;
 367       TCURSORINFO = CURSORINFO;
 368       TPOINTERINFO = POINTERINFO;
 369       TSMHSTRUCT = SMHSTRUCT;
 370       TERRINFO = ERRINFO;
 371       TCONVCONTEXT = CONVCONTEXT;
 372       TDDEINIT = DDEINIT;
 373       TDDESTRUCT = DDESTRUCT;
 374       TDESKTOP = DESKTOP;
 375       TCMDMSG = CMDMSG;
 376       TMSEMSG = MSEMSG;
 377       TCHRMSG = CHRMSG;
 378       TDLGTITEM = DLGTITEM;
 379       TDLGTEMPLATE = DLGTEMPLATE;
 380       TBTNCDATA = BTNCDATA;
 381       TENTRYFDATA = ENTRYFDATA;
 382       TMENUITEM = MENUITEM;
 383       TSBCDATA = SBCDATA;
 384       TFRAMECDATA = FRAMECDATA;
 385       TACCEL = ACCEL;
 386       TACCELTABLE = ACCELTABLE;
 387       TMPF = MFP;
 388       TCPTEXT = CPTEXT;
 389 const
 390        WS_VISIBLE = $80000000;
 391        WS_DISABLED = $40000000;
 392        WS_CLIPCHILDREN = $20000000;
 393        WS_CLIPSIBLINGS = $10000000;
 394        WS_PARENTCLIP = $08000000;
 395        WS_SAVEBITS = $04000000;
 396        WS_SYNCPAINT = $02000000;
 397        WS_MINIMIZED = $01000000;
 398        WS_MAXIMIZED = $00800000;
 399        WS_ANIMATE = $00400000;
 400        WS_GROUP = $00010000;
 401        WS_TABSTOP = $00020000;
 402        WS_MULTISELECT = $00040000;
 403        CS_MOVENOTIFY = $00000001;
 404        CS_SIZEREDRAW = $00000004;
 405        CS_HITTEST = $00000008;
 406        CS_PUBLIC = $00000010;
 407        CS_FRAME = $00000020;
 408        CS_CLIPCHILDREN = $20000000;
 409        CS_CLIPSIBLINGS = $10000000;
 410        CS_PARENTCLIP = $08000000;
 411        CS_SAVEBITS = $04000000;
 412        CS_SYNCPAINT = $02000000;
 413
 414        HWND_DESKTOP = 1;
 415        HWND_OBJECT = 2;
 416        HWND_TOP = 3;
 417        HWND_BOTTOM = 4;
 418        HWND_THREADCAPTURE = 5;
 419
 420        PSF_LOCKWINDOWUPDATE = $0001;
 421        PSF_CLIPUPWARDS = $0002;
 422        PSF_CLIPDOWNWARDS = $0004;
 423        PSF_CLIPSIBLINGS = $0008;
 424        PSF_CLIPCHILDREN = $0010;
 425        PSF_PARENTCLIP = $0020;
 426        SW_SCROLLCHILDREN = $0001;
 427        SW_INVALIDATERGN = $0002;
 428
 429        QV_OS2 = $0000;
 430        QV_CMS = $0001;
 431        QV_TSO = $0002;
 432        QV_TSOBATCH = $0003;
 433        QV_OS400 = $0004;
 434
 435        QW_NEXT = 0;
 436        QW_PREV = 1;
 437        QW_TOP = 2;
 438        QW_BOTTOM = 3;
 439        QW_OWNER = 4;
 440        QW_PARENT = 5;
 441        QW_NEXTTOP = 6;
 442        QW_PREVTOP = 7;
 443        QW_FRAMEOWNER = 8;
 444
 445        AWP_MINIMIZED = $00010000;
 446        AWP_MAXIMIZED = $00020000;
 447        AWP_RESTORED = $00040000;
 448        AWP_ACTIVATE = $00080000;
 449        AWP_DEACTIVATE = $00100000;
 450        SWP_SIZE = $0001;
 451        SWP_MOVE = $0002;
 452        SWP_ZORDER = $0004;
 453        SWP_SHOW = $0008;
 454        SWP_HIDE = $0010;
 455        SWP_NOREDRAW = $0020;
 456        SWP_NOADJUST = $0040;
 457        SWP_ACTIVATE = $0080;
 458        SWP_DEACTIVATE = $0100;
 459        SWP_EXTSTATECHANGE = $0200;
 460        SWP_MINIMIZE = $0400;
 461        SWP_MAXIMIZE = $0800;
 462        SWP_RESTORE = $1000;
 463        SWP_FOCUSACTIVATE = $2000;
 464        SWP_FOCUSDEACTIVATE = $4000;
 465        SWP_NOAUTOCLOSE = $8000;
 466
 467        DBM_NORMAL = $0000;
 468        DBM_INVERT = $0001;
 469        DBM_HALFTONE = $0002;
 470        DBM_STRETCH = $0004;
 471        DBM_IMAGEATTRS = $0008;
 472
 473        DT_LEFT = $0000;
 474        DT_QUERYEXTENT = $0002;
 475        DT_UNDERSCORE = $0010;
 476        DT_STRIKEOUT = $0020;
 477        DT_TEXTATTRS = $0040;
 478        DT_EXTERNALLEADING = $0080;
 479        DT_CENTER = $0100;
 480        DT_RIGHT = $0200;
 481        DT_TOP = $0000;
 482        DT_VCENTER = $0400;
 483        DT_BOTTOM = $0800;
 484        DT_HALFTONE = $1000;
 485        DT_MNEMONIC = $2000;
 486        DT_WORDBREAK = $4000;
 487        DT_ERASERECT = $8000;
 488
 489        DB_PATCOPY = $0000;
 490        DB_PATINVERT = $0001;
 491        DB_DESTINVERT = $0002;
 492        DB_AREAMIXMODE = $0003;
 493        DB_ROP = $0007;
 494        DB_INTERIOR = $0008;
 495        DB_AREAATTRS = $0010;
 496        DB_STANDARD = $0100;
 497        DB_DLGBORDER = $0200;
 498
 499        QWS_USER = 0;
 500        QWS_ID = -1;
 501        QWS_MIN = -1;
 502        QWL_USER = 0;
 503        QWL_STYLE = -2;
 504        QWP_PFNWP = -3;
 505        QWL_HMQ = -4;
 506        QWL_RESERVED = -5;
 507        QWL_MIN = -6;
 508        QWL_HHEAP = $0004;
 509        QWL_HWNDFOCUSSAVE = $0018;
 510        QWL_DEFBUTTON = $0040;
 511        QWL_PSSCBLK = $0048;
 512        QWL_PFEPBLK = $004c;
 513        QWL_PSTATBLK = $0050;
 514        QWS_FLAGS = $0008;
 515        QWS_RESULT = $000a;
 516        QWS_XRESTORE = $000c;
 517        QWS_YRESTORE = $000e;
 518        QWS_CXRESTORE = $0010;
 519        QWS_CYRESTORE = $0012;
 520        QWS_XMINIMIZE = $0014;
 521        QWS_YMINIMIZE = $0016;
 522
 523        WM_NULL = $0000;
 524        WM_CREATE = $0001;
 525        WM_DESTROY = $0002;
 526        WM_ENABLE = $0004;
 527        WM_SHOW = $0005;
 528        WM_MOVE = $0006;
 529        WM_SIZE = $0007;
 530        WM_ADJUSTWINDOWPOS = $0008;
 531        WM_CALCVALIDRECTS = $0009;
 532        WM_SETWINDOWPARAMS = $000a;
 533        WM_QUERYWINDOWPARAMS = $000b;
 534        WM_HITTEST = $000c;
 535        WM_ACTIVATE = $000d;
 536        WM_SETFOCUS = $000f;
 537        WM_SETSELECTION = $0010;
 538        WM_PPAINT = $0011;
 539        WM_PSETFOCUS = $0012;
 540        WM_PSYSCOLORCHANGE = $0013;
 541        WM_PSIZE = $0014;
 542        WM_PACTIVATE = $0015;
 543        WM_PCONTROL = $0016;
 544        WM_COMMAND = $0020;
 545        WM_SYSCOMMAND = $0021;
 546        WM_HELP = $0022;
 547        WM_PAINT = $0023;
 548        WM_TIMER = $0024;
 549        WM_SEM1 = $0025;
 550        WM_SEM2 = $0026;
 551        WM_SEM3 = $0027;
 552        WM_SEM4 = $0028;
 553        WM_CLOSE = $0029;
 554        WM_QUIT = $002a;
 555        WM_SYSCOLORCHANGE = $002b;
 556        WM_SYSVALUECHANGED = $002d;
 557        WM_APPTERMINATENOTIFY = $002e;
 558        WM_PRESPARAMCHANGED = $002f;
 559        WM_CONTROL = $0030;
 560        WM_VSCROLL = $0031;
 561        WM_HSCROLL = $0032;
 562        WM_INITMENU = $0033;
 563        WM_MENUSELECT = $0034;
 564        WM_MENUEND = $0035;
 565        WM_DRAWITEM = $0036;
 566        WM_MEASUREITEM = $0037;
 567        WM_CONTROLPOINTER = $0038;
 568        WM_QUERYDLGCODE = $003a;
 569        WM_INITDLG = $003b;
 570        WM_SUBSTITUTESTRING = $003c;
 571        WM_MATCHMNEMONIC = $003d;
 572        WM_SAVEAPPLICATION = $003e;
 573        WM_HELPBASE = $0F00;
 574        WM_HELPTOP = $0FFF;
 575        WM_USER = $1000;
 576        CMDSRC_PUSHBUTTON = 1;
 577        CMDSRC_MENU = 2;
 578        CMDSRC_ACCELERATOR = 3;
 579        CMDSRC_FONTDLG = 4;
 580        CMDSRC_FILEDLG = 5;
 581        CMDSRC_PRINTDLG = 6;
 582        CMDSRC_COLORDLG = 7;
 583        CMDSRC_OTHER = 0;
 584
 585        PM_REMOVE = $0001;
 586        PM_NOREMOVE = $0000;
 587        RUM_IN = 1;
 588        RUM_OUT = 2;
 589        RUM_INOUT = 3;
 590        SMD_DELAYED = $0001;
 591        SMD_IMMEDIATE = $0002;
 592        SSM_SYNCHRONOUS = $0001;
 593        SSM_ASYNCHRONOUS = $0002;
 594        SSM_MIXED = $0003;
 595        CVR_ALIGNLEFT = $0001;
 596        CVR_ALIGNBOTTOM = $0002;
 597        CVR_ALIGNRIGHT = $0004;
 598        CVR_ALIGNTOP = $0008;
 599        CVR_REDRAW = $0010;
 600        HT_NORMAL = 0;
 601        HT_TRANSPARENT = (-1);
 602        HT_DISCARD = (-2);
 603        HT_ERROR = (-3);
 604
 605        WPM_TEXT = $0001;
 606        WPM_CTLDATA = $0002;
 607        WPM_PRESPARAMS = $0004;
 608        WPM_CCHTEXT = $0008;
 609        WPM_CBCTLDATA = $0010;
 610        WPM_CBPRESPARAMS = $0020;
 611
 612        BMSG_POST = $0000;
 613        BMSG_SEND = $0001;
 614        BMSG_POSTQUEUE = $0002;
 615        BMSG_DESCENDANTS = $0004;
 616        BMSG_FRAMEONLY = $0008;
 617
 618        QS_KEY = $0001;
 619        QS_MOUSEBUTTON = $0002;
 620        QS_MOUSEMOVE = $0004;
 621        QS_MOUSE = $0006;
 622        QS_TIMER = $0008;
 623        QS_PAINT = $0010;
 624        QS_POSTMSG = $0020;
 625        QS_SEM1 = $0040;
 626        QS_SEM2 = $0080;
 627        QS_SEM3 = $0100;
 628        QS_SEM4 = $0200;
 629        QS_SENDMSG = $0400;
 630
 631        SMIM_ALL = $0EFF;
 632        SMI_NOINTEREST = $0001;
 633        SMI_INTEREST = $0002;
 634        SMI_RESET = $0004;
 635        SMI_AUTODISPATCH = $0008;
 636
 637        FC_NOSETFOCUS = $0001;
 638        FC_NOBRINGTOTOP = FC_NOSETFOCUS;
 639        FC_NOLOSEFOCUS = $0002;
 640        FC_NOBRINGTOPFIRSTWINDOW = FC_NOLOSEFOCUS;
 641        FC_NOSETACTIVE = $0004;
 642        FC_NOLOSEACTIVE = $0008;
 643        FC_NOSETSELECTION = $0010;
 644        FC_NOLOSESELECTION = $0020;
 645        QFC_NEXTINCHAIN = $0001;
 646        QFC_ACTIVE = $0002;
 647        QFC_FRAME = $0003;
 648        QFC_SELECTACTIVE = $0004;
 649        QFC_PARTOFCHAIN = $0005;
 650
 651        WM_MOUSEFIRST = $0070;
 652        WM_MOUSELAST = $0079;
 653        WM_BUTTONCLICKFIRST = $0071;
 654        WM_BUTTONCLICKLAST = $0079;
 655        WM_MOUSEMOVE = $0070;
 656        WM_BUTTON1DOWN = $0071;
 657        WM_BUTTON1UP = $0072;
 658        WM_BUTTON1DBLCLK = $0073;
 659        WM_BUTTON2DOWN = $0074;
 660        WM_BUTTON2UP = $0075;
 661        WM_BUTTON2DBLCLK = $0076;
 662        WM_BUTTON3DOWN = $0077;
 663        WM_BUTTON3UP = $0078;
 664        WM_BUTTON3DBLCLK = $0079;
 665        WM_EXTMOUSEFIRST = $0410;
 666        WM_EXTMOUSELAST = $0419;
 667        WM_CHORD = $0410;
 668        WM_BUTTON1MOTIONSTART = $0411;
 669        WM_BUTTON1MOTIONEND = $0412;
 670        WM_BUTTON1CLICK = $0413;
 671        WM_BUTTON2MOTIONSTART = $0414;
 672        WM_BUTTON2MOTIONEND = $0415;
 673        WM_BUTTON2CLICK = $0416;
 674        WM_BUTTON3MOTIONSTART = $0417;
 675        WM_BUTTON3MOTIONEND = $0418;
 676        WM_BUTTON3CLICK = $0419;
 677        WM_MOUSETRANSLATEFIRST = $0420;
 678        WM_MOUSETRANSLATELAST = $0428;
 679        WM_BEGINDRAG = $0420;
 680        WM_ENDDRAG = $0421;
 681        WM_SINGLESELECT = $0422;
 682        WM_OPEN = $0423;
 683        WM_CONTEXTMENU = $0424;
 684        WM_CONTEXTHELP = $0425;
 685        WM_TEXTEDIT = $0426;
 686        WM_BEGINSELECT = $0427;
 687        WM_ENDSELECT = $0428;
 688
 689        WM_CHAR = $007a;
 690        WM_VIOCHAR = $007b;
 691        KC_NONE = $0000;
 692        KC_CHAR = $0001;
 693        KC_VIRTUALKEY = $0002;
 694        KC_SCANCODE = $0004;
 695        KC_SHIFT = $0008;
 696        KC_CTRL = $0010;
 697        KC_ALT = $0020;
 698        KC_KEYUP = $0040;
 699        KC_PREVDOWN = $0080;
 700        KC_LONEKEY = $0100;
 701        KC_DEADKEY = $0200;
 702        KC_COMPOSITE = $0400;
 703        KC_INVALIDCOMP = $0800;
 704        KC_TOGGLE = $1000;
 705        KC_INVALIDCHAR = $2000;
 706        KC_DBCSRSRVD1 = $4000;
 707        KC_DBCSRSRVD2 = $8000;
 708
 709        INP_NONE = $0000;
 710        INP_KBD = $0001;
 711        INP_MULT = $0002;
 712        INP_RES2 = $0004;
 713        INP_SHIFT = $0008;
 714        INP_CTRL = $0010;
 715        INP_ALT = $0020;
 716        INP_RES3 = $0040;
 717        INP_RES4 = $0080;
 718        INP_IGNORE = $FFFF;
 719        VK_BUTTON1 = $01;
 720        VK_BUTTON2 = $02;
 721        VK_BUTTON3 = $03;
 722        VK_BREAK = $04;
 723        VK_BACKSPACE = $05;
 724        VK_TAB = $06;
 725        VK_BACKTAB = $07;
 726        VK_NEWLINE = $08;
 727        VK_SHIFT = $09;
 728        VK_CTRL = $0A;
 729        VK_ALT = $0B;
 730        VK_ALTGRAF = $0C;
 731        VK_PAUSE = $0D;
 732        VK_CAPSLOCK = $0E;
 733        VK_ESC = $0F;
 734        VK_SPACE = $10;
 735        VK_PAGEUP = $11;
 736        VK_PAGEDOWN = $12;
 737        VK_END = $13;
 738        VK_HOME = $14;
 739        VK_LEFT = $15;
 740        VK_UP = $16;
 741        VK_RIGHT = $17;
 742        VK_DOWN = $18;
 743        VK_PRINTSCRN = $19;
 744        VK_INSERT = $1A;
 745        VK_DELETE = $1B;
 746        VK_SCRLLOCK = $1C;
 747        VK_NUMLOCK = $1D;
 748        VK_ENTER = $1E;
 749        VK_SYSRQ = $1F;
 750        VK_F1 = $20;
 751        VK_F2 = $21;
 752        VK_F3 = $22;
 753        VK_F4 = $23;
 754        VK_F5 = $24;
 755        VK_F6 = $25;
 756        VK_F7 = $26;
 757        VK_F8 = $27;
 758        VK_F9 = $28;
 759        VK_F10 = $29;
 760        VK_F11 = $2A;
 761        VK_F12 = $2B;
 762        VK_F13 = $2C;
 763        VK_F14 = $2D;
 764        VK_F15 = $2E;
 765        VK_F16 = $2F;
 766        VK_F17 = $30;
 767        VK_F18 = $31;
 768        VK_F19 = $32;
 769        VK_F20 = $33;
 770        VK_F21 = $34;
 771        VK_F22 = $35;
 772        VK_F23 = $36;
 773        VK_F24 = $37;
 774        VK_ENDDRAG = $38;
 775        VK_MENU = VK_F10;
 776        VK_DBCSFIRST = $0080;
 777        VK_DBCSLAST = $00ff;
 778        VK_USERFIRST = $0100;
 779        VK_USERLAST = $01ff;
 780
 781        WM_JOURNALNOTIFY = $007c;
 782        JRN_QUEUESTATUS = $00000001;
 783        JRN_PHYSKEYSTATE = $00000002;
 784
 785        DID_OK = 1;
 786        DID_CANCEL = 2;
 787        DID_ERROR = $ffff;
 788
 789        WA_WARNING = 0;
 790        WA_NOTE = 1;
 791        WA_ERROR = 2;
 792        WA_CWINALARMS = 3;
 793
 794        MB_OK = $0000;
 795        MB_OKCANCEL = $0001;
 796        MB_RETRYCANCEL = $0002;
 797        MB_ABORTRETRYIGNORE = $0003;
 798        MB_YESNO = $0004;
 799        MB_YESNOCANCEL = $0005;
 800        MB_CANCEL = $0006;
 801        MB_ENTER = $0007;
 802        MB_ENTERCANCEL = $0008;
 803        MB_NOICON = $0000;
 804        MB_CUANOTIFICATION = $0000;
 805        MB_ICONQUESTION = $0010;
 806        MB_ICONEXCLAMATION = $0020;
 807        MB_CUAWARNING = $0020;
 808        MB_ICONASTERISK = $0030;
 809        MB_ICONHAND = $0040;
 810        MB_CUACRITICAL = $0040;
 811        MB_QUERY = MB_ICONQUESTION;
 812        MB_WARNING = MB_CUAWARNING;
 813        MB_INFORMATION = MB_ICONASTERISK;
 814        MB_CRITICAL = MB_CUACRITICAL;
 815        MB_ERROR = MB_CRITICAL;
 816        MB_DEFBUTTON1 = $0000;
 817        MB_DEFBUTTON2 = $0100;
 818        MB_DEFBUTTON3 = $0200;
 819        MB_APPLMODAL = $0000;
 820        MB_SYSTEMMODAL = $1000;
 821        MB_HELP = $2000;
 822        MB_MOVEABLE = $4000;
 823        MBID_OK = 1;
 824        MBID_CANCEL = 2;
 825        MBID_ABORT = 3;
 826        MBID_RETRY = 4;
 827        MBID_IGNORE = 5;
 828        MBID_YES = 6;
 829        MBID_NO = 7;
 830        MBID_HELP = 8;
 831        MBID_ENTER = 9;
 832        MBID_ERROR = $ffff;
 833        DLGC_ENTRYFIELD = $0001;
 834        DLGC_BUTTON = $0002;
 835        DLGC_RADIOBUTTON = $0004;
 836        DLGC_STATIC = $0008;
 837        DLGC_DEFAULT = $0010;
 838        DLGC_PUSHBUTTON = $0020;
 839        DLGC_CHECKBOX = $0040;
 840        DLGC_SCROLLBAR = $0080;
 841        DLGC_MENU = $0100;
 842        DLGC_TABONCLICK = $0200;
 843        DLGC_MLE = $0400;
 844
 845        EDI_FIRSTTABITEM = 0;
 846        EDI_LASTTABITEM = 1;
 847        EDI_NEXTTABITEM = 2;
 848        EDI_PREVTABITEM = 3;
 849        EDI_FIRSTGROUPITEM = 4;
 850        EDI_LASTGROUPITEM = 5;
 851        EDI_NEXTGROUPITEM = 6;
 852        EDI_PREVGROUPITEM = 7;
 853
 854        SS_TEXT = $0001;
 855        SS_GROUPBOX = $0002;
 856        SS_ICON = $0003;
 857        SS_BITMAP = $0004;
 858        SS_FGNDRECT = $0005;
 859        SS_HALFTONERECT = $0006;
 860        SS_BKGNDRECT = $0007;
 861        SS_FGNDFRAME = $0008;
 862        SS_HALFTONEFRAME = $0009;
 863        SS_BKGNDFRAME = $000a;
 864        SS_SYSICON = $000b;
 865        SS_AUTOSIZE = $0040;
 866        SM_SETHANDLE = $0100;
 867        SM_QUERYHANDLE = $0101;
 868        BS_PUSHBUTTON = 0;
 869        BS_CHECKBOX = 1;
 870        BS_AUTOCHECKBOX = 2;
 871        BS_RADIOBUTTON = 3;
 872        BS_AUTORADIOBUTTON = 4;
 873        BS_3STATE = 5;
 874        BS_AUTO3STATE = 6;
 875        BS_USERBUTTON = 7;
 876        BS_PRIMARYSTYLES = $000f;
 877        BS_BITMAP = $0040;
 878        BS_ICON = $0080;
 879        BS_HELP = $0100;
 880        BS_SYSCOMMAND = $0200;
 881        BS_DEFAULT = $0400;
 882        BS_NOPOINTERFOCUS = $0800;
 883        BS_NOBORDER = $1000;
 884        BS_NOCURSORSELECT = $2000;
 885        BS_AUTOSIZE = $4000;
 886
 887        BM_CLICK = $0120;
 888        BM_QUERYCHECKINDEX = $0121;
 889        BM_QUERYHILITE = $0122;
 890        BM_SETHILITE = $0123;
 891        BM_QUERYCHECK = $0124;
 892        BM_SETCHECK = $0125;
 893        BM_SETDEFAULT = $0126;
 894        BN_CLICKED = 1;
 895        BN_DBLCLICKED = 2;
 896        BN_PAINT = 3;
 897        BDS_HILITED = $0100;
 898        BDS_DISABLED = $0200;
 899        BDS_DEFAULT = $0400;
 900        ES_LEFT = $00000000;
 901        ES_CENTER = $00000001;
 902        ES_RIGHT = $00000002;
 903        ES_AUTOSCROLL = $00000004;
 904        ES_MARGIN = $00000008;
 905        ES_AUTOTAB = $00000010;
 906        ES_READONLY = $00000020;
 907        ES_COMMAND = $00000040;
 908        ES_UNREADABLE = $00000080;
 909        ES_AUTOSIZE = $00000200;
 910        ES_ANY = $00000000;
 911        ES_SBCS = $00001000;
 912        ES_DBCS = $00002000;
 913        ES_MIXED = $00003000;
 914        CBS_SIMPLE = $0001;
 915        CBS_DROPDOWN = $0002;
 916        CBS_DROPDOWNLIST = $0004;
 917        CBS_COMPATIBLE = $0008;
 918        CBID_LIST = $029A;
 919        CBID_EDIT = $029B;
 920        CBM_SHOWLIST = $0170;
 921        CBM_HILITE = $0171;
 922        CBM_ISLISTSHOWING = $0172;
 923        CBN_EFCHANGE = 1;
 924        CBN_EFSCROLL = 2;
 925        CBN_MEMERROR = 3;
 926        CBN_LBSELECT = 4;
 927        CBN_LBSCROLL = 5;
 928        CBN_SHOWLIST = 6;
 929        CBN_ENTER = 7;
 930
 931        EM_QUERYCHANGED = $0140;
 932        EM_QUERYSEL = $0141;
 933        EM_SETSEL = $0142;
 934        EM_SETTEXTLIMIT = $0143;
 935        EM_CUT = $0144;
 936        EM_COPY = $0145;
 937        EM_CLEAR = $0146;
 938        EM_PASTE = $0147;
 939        EM_QUERYFIRSTCHAR = $0148;
 940        EM_SETFIRSTCHAR = $0149;
 941        EM_QUERYREADONLY = $014a;
 942        EM_SETREADONLY = $014b;
 943        EM_SETINSERTMODE = $014c;
 944        EN_SETFOCUS = $0001;
 945        EN_KILLFOCUS = $0002;
 946        EN_CHANGE = $0004;
 947        EN_SCROLL = $0008;
 948        EN_MEMERROR = $0010;
 949        EN_OVERFLOW = $0020;
 950        EN_INSERTMODETOGGLE = $0040;
 951        LS_MULTIPLESEL = $00000001;
 952        LS_OWNERDRAW = $00000002;
 953        LS_NOADJUSTPOS = $00000004;
 954        LS_HORZSCROLL = $00000008;
 955        LS_EXTENDEDSEL = $00000010;
 956        LN_SELECT = 1;
 957        LN_SETFOCUS = 2;
 958        LN_KILLFOCUS = 3;
 959        LN_SCROLL = 4;
 960        LN_ENTER = 5;
 961        LM_QUERYITEMCOUNT = $0160;
 962        LM_INSERTITEM = $0161;
 963        LM_SETTOPINDEX = $0162;
 964        LM_DELETEITEM = $0163;
 965        LM_SELECTITEM = $0164;
 966        LM_QUERYSELECTION = $0165;
 967        LM_SETITEMTEXT = $0166;
 968        LM_QUERYITEMTEXTLENGTH = $0167;
 969        LM_QUERYITEMTEXT = $0168;
 970        LM_SETITEMHANDLE = $0169;
 971        LM_QUERYITEMHANDLE = $016a;
 972        LM_SEARCHSTRING = $016b;
 973        LM_SETITEMHEIGHT = $016c;
 974        LM_QUERYTOPINDEX = $016d;
 975        LM_DELETEALL = $016e;
 976        LIT_CURSOR = (-4);
 977        LIT_ERROR = (-3);
 978        LIT_MEMERROR = (-2);
 979        LIT_NONE = (-1);
 980        LIT_FIRST = (-1);
 981        LIT_END = (-1);
 982        LIT_SORTASCENDING = (-2);
 983        LIT_SORTDESCENDING = (-3);
 984        LSS_SUBSTRING = $0001;
 985        LSS_PREFIX = $0002;
 986        LSS_CASESENSITIVE = $0004;
 987        MS_ACTIONBAR = $00000001;
 988        MS_TITLEBUTTON = $00000002;
 989        MS_VERTICALFLIP = $00000004;
 990        MS_CONDITIONALCASCADE = $00000040;
 991
 992        MM_INSERTITEM = $0180;
 993        MM_DELETEITEM = $0181;
 994        MM_QUERYITEM = $0182;
 995        MM_SETITEM = $0183;
 996        MM_QUERYITEMCOUNT = $0184;
 997        MM_STARTMENUMODE = $0185;
 998        MM_ENDMENUMODE = $0186;
 999        MM_REMOVEITEM = $0188;
1000        MM_SELECTITEM = $0189;
1001        MM_QUERYSELITEMID = $018a;
1002        MM_QUERYITEMTEXT = $018b;
1003        MM_QUERYITEMTEXTLENGTH = $018c;
1004        MM_SETITEMHANDLE = $018d;
1005        MM_SETITEMTEXT = $018e;
1006        MM_ITEMPOSITIONFROMID = $018f;
1007        MM_ITEMIDFROMPOSITION = $0190;
1008        MM_QUERYITEMATTR = $0191;
1009        MM_SETITEMATTR = $0192;
1010        MM_ISITEMVALID = $0193;
1011        MM_QUERYITEMRECT = $0194;
1012        MM_QUERYDEFAULTITEMID = $0431;
1013        MM_SETDEFAULTITEMID = $0432;
1014
1015        MIT_END = (-1);
1016        MIT_NONE = (-1);
1017        MIT_MEMERROR = (-1);
1018        MIT_ERROR = (-1);
1019        MIT_FIRST = (-2);
1020        MIT_LAST = (-3);
1021        MID_NONE = MIT_NONE;
1022        MID_ERROR = (-1);
1023        MIS_TEXT = $0001;
1024        MIS_BITMAP = $0002;
1025        MIS_SEPARATOR = $0004;
1026        MIS_OWNERDRAW = $0008;
1027        MIS_SUBMENU = $0010;
1028        MIS_MULTMENU = $0020;
1029        MIS_SYSCOMMAND = $0040;
1030        MIS_HELP = $0080;
1031        MIS_STATIC = $0100;
1032        MIS_BUTTONSEPARATOR = $0200;
1033        MIS_BREAK = $0400;
1034        MIS_BREAKSEPARATOR = $0800;
1035        MIS_GROUP = $1000;
1036        MIS_SINGLE = $2000;
1037        MIA_NODISMISS = $0020;
1038        MIA_FRAMED = $1000;
1039        MIA_CHECKED = $2000;
1040        MIA_DISABLED = $4000;
1041        MIA_HILITED = $8000;
1042
1043        PU_POSITIONONITEM = $0001;
1044        PU_HCONSTRAIN = $0002;
1045        PU_VCONSTRAIN = $0004;
1046        PU_NONE = $0000;
1047        PU_MOUSEBUTTON1DOWN = $0008;
1048        PU_MOUSEBUTTON2DOWN = $0010;
1049        PU_MOUSEBUTTON3DOWN = $0018;
1050        PU_SELECTITEM = $0020;
1051        PU_MOUSEBUTTON1 = $0040;
1052        PU_MOUSEBUTTON2 = $0080;
1053        PU_MOUSEBUTTON3 = $0100;
1054        PU_KEYBOARD = $0200;
1055        SBS_HORZ = 0;
1056        SBS_VERT = 1;
1057        SBS_THUMBSIZE = 2;
1058        SBS_AUTOTRACK = 4;
1059        SBS_AUTOSIZE = $2000;
1060        SBM_SETSCROLLBAR = $01a0;
1061        SBM_SETPOS = $01a1;
1062        SBM_QUERYPOS = $01a2;
1063        SBM_QUERYRANGE = $01a3;
1064        SBM_SETTHUMBSIZE = $01a6;
1065        SB_LINEUP = 1;
1066        SB_LINEDOWN = 2;
1067        SB_LINELEFT = 1;
1068        SB_LINERIGHT = 2;
1069        SB_PAGEUP = 3;
1070        SB_PAGEDOWN = 4;
1071        SB_PAGELEFT = 3;
1072        SB_PAGERIGHT = 4;
1073        SB_SLIDERTRACK = 5;
1074        SB_SLIDERPOSITION = 6;
1075        SB_ENDSCROLL = 7;
1076
1077        FCF_TITLEBAR = $00000001;
1078        FCF_SYSMENU = $00000002;
1079        FCF_MENU = $00000004;
1080        FCF_SIZEBORDER = $00000008;
1081        FCF_MINBUTTON = $00000010;
1082        FCF_MAXBUTTON = $00000020;
1083        FCF_MINMAX = $00000030;
1084        FCF_VERTSCROLL = $00000040;
1085        FCF_HORZSCROLL = $00000080;
1086        FCF_DLGBORDER = $00000100;
1087        FCF_BORDER = $00000200;
1088        FCF_SHELLPOSITION = $00000400;
1089        FCF_TASKLIST = $00000800;
1090        FCF_NOBYTEALIGN = $00001000;
1091        FCF_NOMOVEWITHOWNER = $00002000;
1092        FCF_ICON = $00004000;
1093        FCF_ACCELTABLE = $00008000;
1094        FCF_SYSMODAL = $00010000;
1095        FCF_SCREENALIGN = $00020000;
1096        FCF_MOUSEALIGN = $00040000;
1097        FCF_HIDEBUTTON = $01000000;
1098        FCF_HIDEMAX = $01000020;
1099        FCF_DBE_APPSTAT = $80000000;
1100        FCF_AUTOICON = $40000000;
1101        FCF_STANDARD = $0000CC3F;
1102        FS_ICON = $00000001;
1103        FS_ACCELTABLE = $00000002;
1104        FS_SHELLPOSITION = $00000004;
1105        FS_TASKLIST = $00000008;
1106        FS_NOBYTEALIGN = $00000010;
1107        FS_NOMOVEWITHOWNER = $00000020;
1108        FS_SYSMODAL = $00000040;
1109        FS_DLGBORDER = $00000080;
1110        FS_BORDER = $00000100;
1111        FS_SCREENALIGN = $00000200;
1112        FS_MOUSEALIGN = $00000400;
1113        FS_SIZEBORDER = $00000800;
1114        FS_AUTOICON = $00001000;
1115        FS_DBE_APPSTAT = $00008000;
1116        FS_STANDARD = $0000000F;
1117        FF_FLASHWINDOW = $0001;
1118        FF_ACTIVE = $0002;
1119        FF_FLASHHILITE = $0004;
1120        FF_OWNERHIDDEN = $0008;
1121        FF_DLGDISMISSED = $0010;
1122        FF_OWNERDISABLED = $0020;
1123        FF_SELECTED = $0040;
1124        FF_NOACTIVATESWP = $0080;
1125
1126        WM_FLASHWINDOW = $0040;
1127        WM_FORMATFRAME = $0041;
1128        WM_UPDATEFRAME = $0042;
1129        WM_FOCUSCHANGE = $0043;
1130        WM_SETBORDERSIZE = $0044;
1131        WM_TRACKFRAME = $0045;
1132        WM_MINMAXFRAME = $0046;
1133        WM_SETICON = $0047;
1134        WM_QUERYICON = $0048;
1135        WM_SETACCELTABLE = $0049;
1136        WM_QUERYACCELTABLE = $004a;
1137        WM_TRANSLATEACCEL = $004b;
1138        WM_QUERYTRACKINFO = $004c;
1139        WM_QUERYBORDERSIZE = $004d;
1140        WM_NEXTMENU = $004e;
1141        WM_ERASEBACKGROUND = $004f;
1142        WM_QUERYFRAMEINFO = $0050;
1143        WM_QUERYFOCUSCHAIN = $0051;
1144        WM_OWNERPOSCHANGE = $0052;
1145        WM_CALCFRAMERECT = $0053;
1146        WM_WINDOWPOSCHANGED = $0055;
1147        WM_ADJUSTFRAMEPOS = $0056;
1148        WM_QUERYFRAMECTLCOUNT = $0059;
1149        WM_QUERYHELPINFO = $005B;
1150        WM_SETHELPINFO = $005C;
1151        WM_ERROR = $005D;
1152        WM_REALIZEPALETTE = $005E;
1153        FI_FRAME = $00000001;
1154        FI_OWNERHIDE = $00000002;
1155        FI_ACTIVATEOK = $00000004;
1156        FI_NOMOVEWITHOWNER = $00000008;
1157
1158        FID_SYSMENU = $8002;
1159        FID_TITLEBAR = $8003;
1160        FID_MINMAX = $8004;
1161        FID_MENU = $8005;
1162        FID_VERTSCROLL = $8006;
1163        FID_HORZSCROLL = $8007;
1164        FID_CLIENT = $8008;
1165        FID_DBE_APPSTAT = $8010;
1166        FID_DBE_KBDSTAT = $8011;
1167        FID_DBE_PECIC = $8012;
1168        FID_DBE_KKPOPUP = $8013;
1169        SC_SIZE = $8000;
1170        SC_MOVE = $8001;
1171        SC_MINIMIZE = $8002;
1172        SC_MAXIMIZE = $8003;
1173        SC_CLOSE = $8004;
1174        SC_NEXT = $8005;
1175        SC_APPMENU = $8006;
1176        SC_SYSMENU = $8007;
1177        SC_RESTORE = $8008;
1178        SC_NEXTFRAME = $8009;
1179        SC_NEXTWINDOW = $8010;
1180        SC_TASKMANAGER = $8011;
1181        SC_HELPKEYS = $8012;
1182        SC_HELPINDEX = $8013;
1183        SC_HELPEXTENDED = $8014;
1184        SC_SWITCHPANELIDS = $8015;
1185        SC_DBE_FIRST = $8018;
1186        SC_DBE_LAST = $801F;
1187        SC_BEGINDRAG = $8020;
1188        SC_ENDDRAG = $8021;
1189        SC_SELECT = $8022;
1190        SC_OPEN = $8023;
1191        SC_CONTEXTMENU = $8024;
1192        SC_CONTEXTHELP = $8025;
1193        SC_TEXTEDIT = $8026;
1194        SC_BEGINSELECT = $8027;
1195        SC_ENDSELECT = $8028;
1196        SC_WINDOW = $8029;
1197        SC_HIDE = $802a;
1198        TBM_SETHILITE = $01e3;
1199        TBM_QUERYHILITE = $01e4;
1200
1201        SV_SWAPBUTTON = 0;
1202        SV_DBLCLKTIME = 1;
1203        SV_CXDBLCLK = 2;
1204        SV_CYDBLCLK = 3;
1205        SV_CXSIZEBORDER = 4;
1206        SV_CYSIZEBORDER = 5;
1207        SV_ALARM = 6;
1208        SV_RESERVEDFIRST1 = 7;
1209        SV_RESERVEDLAST1 = 8;
1210        SV_CURSORRATE = 9;
1211        SV_FIRSTSCROLLRATE = 10;
1212        SV_SCROLLRATE = 11;
1213        SV_NUMBEREDLISTS = 12;
1214        SV_WARNINGFREQ = 13;
1215        SV_NOTEFREQ = 14;
1216        SV_ERRORFREQ = 15;
1217        SV_WARNINGDURATION = 16;
1218        SV_NOTEDURATION = 17;
1219        SV_ERRORDURATION = 18;
1220        SV_RESERVEDFIRST = 19;
1221        SV_RESERVEDLAST = 19;
1222        SV_CXSCREEN = 20;
1223        SV_CYSCREEN = 21;
1224        SV_CXVSCROLL = 22;
1225        SV_CYHSCROLL = 23;
1226        SV_CYVSCROLLARROW = 24;
1227        SV_CXHSCROLLARROW = 25;
1228        SV_CXBORDER = 26;
1229        SV_CYBORDER = 27;
1230        SV_CXDLGFRAME = 28;
1231        SV_CYDLGFRAME = 29;
1232        SV_CYTITLEBAR = 30;
1233        SV_CYVSLIDER = 31;
1234        SV_CXHSLIDER = 32;
1235        SV_CXMINMAXBUTTON = 33;
1236        SV_CYMINMAXBUTTON = 34;
1237        SV_CYMENU = 35;
1238        SV_CXFULLSCREEN = 36;
1239        SV_CYFULLSCREEN = 37;
1240        SV_CXICON = 38;
1241        SV_CYICON = 39;
1242        SV_CXPOINTER = 40;
1243        SV_CYPOINTER = 41;
1244        SV_DEBUG = 42;
1245        SV_CMOUSEBUTTONS = 43;
1246        SV_CPOINTERBUTTONS = 43;
1247        SV_POINTERLEVEL = 44;
1248        SV_CURSORLEVEL = 45;
1249        SV_TRACKRectlEVEL = 46;
1250        SV_CTIMERS = 47;
1251        SV_MOUSEPRESENT = 48;
1252        SV_CXBYTEALIGN = 49;
1253        SV_CXALIGN = 49;
1254        SV_CYBYTEALIGN = 50;
1255        SV_CYALIGN = 50;
1256        SV_NOTRESERVED = 56;
1257        SV_EXTRAKEYBEEP = 57;
1258        SV_SETLIGHTS = 58;
1259        SV_INSERTMODE = 59;
1260        SV_MENUROLLDOWNDELAY = 64;
1261        SV_MENUROLLUPDELAY = 65;
1262        SV_ALTMNEMONIC = 66;
1263        SV_TASKLISTMOUSEACCESS = 67;
1264        SV_CXICONTEXTWIDTH = 68;
1265        SV_CICONTEXTLINES = 69;
1266        SV_CHORDTIME = 70;
1267        SV_CXCHORD = 71;
1268        SV_CYCHORD = 72;
1269        SV_CXMOTION = 73;
1270        SV_CYMOTION = 74;
1271        SV_BEGINDRAG = 75;
1272        SV_ENDDRAG = 76;
1273        SV_SINGLESELECT = 77;
1274        SV_OPEN = 78;
1275        SV_CONTEXTMENU = 79;
1276        SV_CONTEXTHELP = 80;
1277        SV_TEXTEDIT = 81;
1278        SV_BEGINSELECT = 82;
1279        SV_ENDSELECT = 83;
1280        SV_BEGINDRAGKB = 84;
1281        SV_ENDDRAGKB = 85;
1282        SV_SELECTKB = 86;
1283        SV_OPENKB = 87;
1284        SV_CONTEXTMENUKB = 88;
1285        SV_CONTEXTHELPKB = 89;
1286        SV_TEXTEDITKB = 90;
1287        SV_BEGINSELECTKB = 91;
1288        SV_ENDSELECTKB = 92;
1289        SV_ANIMATION = 93;
1290        SV_ANIMATIONSPEED = 94;
1291        SV_MONOICONS = 95;
1292        SV_KBDALTERED = 96;
1293        SV_PRINTSCREEN = 97;
1294        SV_CSYSVALUES = 98;
1295
1296        PP_FOREGROUNDCOLOR = 1;
1297        PP_FOREGROUNDCOLORINDEX = 2;
1298        PP_BACKGROUNDCOLOR = 3;
1299        PP_BACKGROUNDCOLORINDEX = 4;
1300        PP_HILITEFOREGROUNDCOLOR = 5;
1301        PP_HILITEFOREGROUNDCOLORINDEX = 6;
1302        PP_HILITEBACKGROUNDCOLOR = 7;
1303        PP_HILITEBACKGROUNDCOLORINDEX = 8;
1304        PP_DISABLEDFOREGROUNDCOLOR = 9;
1305        PP_DISABLEDFOREGROUNDCOLORINDEX = 10;
1306        PP_DISABLEDBACKGROUNDCOLOR = 11;
1307        PP_DISABLEDBACKGROUNDCOLORINDEX = 12;
1308        PP_BORDERCOLOR = 13;
1309        PP_BORDERCOLORINDEX = 14;
1310        PP_FONTNAMESIZE = 15;
1311        PP_FONTHANDLE = 16;
1312        PP_RESERVED = 17;
1313        PP_ACTIVECOLOR = 18;
1314        PP_ACTIVECOLORINDEX = 19;
1315        PP_INACTIVECOLOR = 20;
1316        PP_INACTIVECOLORINDEX = 21;
1317        PP_ACTIVETEXTFGNDCOLOR = 22;
1318        PP_ACTIVETEXTFGNDCOLORINDEX = 23;
1319        PP_ACTIVETEXTBGNDCOLOR = 24;
1320        PP_ACTIVETEXTBGNDCOLORINDEX = 25;
1321        PP_INACTIVETEXTFGNDCOLOR = 26;
1322        PP_INACTIVETEXTFGNDCOLORINDEX = 27;
1323        PP_INACTIVETEXTBGNDCOLOR = 28;
1324        PP_INACTIVETEXTBGNDCOLORINDEX = 29;
1325        PP_SHADOW = 30;
1326        PP_MENUFOREGROUNDCOLOR = 31;
1327        PP_MENUFOREGROUNDCOLORINDEX = 32;
1328        PP_MENUBACKGROUNDCOLOR = 33;
1329        PP_MENUBACKGROUNDCOLORINDEX = 34;
1330        PP_MENUHILITEFGNDCOLOR = 35;
1331        PP_MENUHILITEFGNDCOLORINDEX = 36;
1332        PP_MENUHILITEBGNDCOLOR = 37;
1333        PP_MENUHILITEBGNDCOLORINDEX = 38;
1334        PP_MENUDISABLEDFGNDCOLOR = 39;
1335        PP_MENUDISABLEDFGNDCOLORINDEX = 40;
1336        PP_MENUDISABLEDBGNDCOLOR = 41;
1337        PP_MENUDISABLEDBGNDCOLORINDEX = 42;
1338        PP_USER = $8000;
1339        QPF_NOINHERIT = $0001;
1340        QPF_ID1COLORINDEX = $0002;
1341        QPF_ID2COLORINDEX = $0004;
1342        QPF_PURERGBCOLOR = $0008;
1343        QPF_VALIDFLAGS = $000F;
1344
1345        SYSCLR_SHADOWHILITEBGND = (-50);
1346        SYSCLR_SHADOWHILITEFGND = (-49);
1347        SYSCLR_SHADOWTEXT = (-48);
1348        SYSCLR_ENTRYFIELD = (-47);
1349        SYSCLR_MENUDISABLEDTEXT = (-46);
1350        SYSCLR_MENUHILITE = (-45);
1351        SYSCLR_MENUHILITEBGND = (-44);
1352        SYSCLR_PAGEBACKGROUND = (-43);
1353        SYSCLR_FIELDBACKGROUND = (-42);
1354        SYSCLR_BUTTONLIGHT = (-41);
1355        SYSCLR_BUTTONMIDDLE = (-40);
1356        SYSCLR_BUTTONDARK = (-39);
1357        SYSCLR_BUTTONDEFAULT = (-38);
1358        SYSCLR_TITLEBOTTOM = (-37);
1359        SYSCLR_SHADOW = (-36);
1360        SYSCLR_ICONTEXT = (-35);
1361        SYSCLR_DIALOGBACKGROUND = (-34);
1362        SYSCLR_HILITEFOREGROUND = (-33);
1363        SYSCLR_HILITEBACKGROUND = (-32);
1364        SYSCLR_INACTIVETITLETEXTBGND = (-31);
1365        SYSCLR_ACTIVETITLETEXTBGND = (-30);
1366        SYSCLR_INACTIVETITLETEXT = (-29);
1367        SYSCLR_ACTIVETITLETEXT = (-28);
1368        SYSCLR_OUTPUTTEXT = (-27);
1369        SYSCLR_WINDOWSTATICTEXT = (-26);
1370        SYSCLR_SCROLLBAR = (-25);
1371        SYSCLR_BACKGROUND = (-24);
1372        SYSCLR_ACTIVETITLE = (-23);
1373        SYSCLR_INACTIVETITLE = (-22);
1374        SYSCLR_MENU = (-21);
1375        SYSCLR_WINDOW = (-20);
1376        SYSCLR_WINDOWFRAME = (-19);
1377        SYSCLR_MENUTEXT = (-18);
1378        SYSCLR_WINDOWTEXT = (-17);
1379        SYSCLR_TITLETEXT = (-16);
1380        SYSCLR_ACTIVEBORDER = (-15);
1381        SYSCLR_INACTIVEBORDER = (-14);
1382        SYSCLR_APPWORKSPACE = (-13);
1383        SYSCLR_HELPBACKGROUND = (-12);
1384        SYSCLR_HELPTEXT = (-11);
1385        SYSCLR_HELPHILITE = (-10);
1386        SYSCLR_CSYSCOLORS = 41;
1387
1388        TID_CURSOR = $ffff;
1389        TID_SCROLL = $fffe;
1390        TID_FLASHWINDOW = $fffd;
1391        TID_USERMAX = $7fff;
1392
1393        AF_CHAR = $0001;
1394        AF_VIRTUALKEY = $0002;
1395        AF_SCANCODE = $0004;
1396        AF_SHIFT = $0008;
1397        AF_CONTROL = $0010;
1398        AF_ALT = $0020;
1399        AF_LONEKEY = $0040;
1400        AF_SYSCOMMAND = $0100;
1401        AF_HELP = $0200;
1402
1403        EAF_DEFAULTOWNER = $0001;
1404        EAF_UNCHANGEABLE = $0002;
1405        EAF_REUSEICON = $0004;
1406
1407        TF_LEFT = $0001;
1408        TF_TOP = $0002;
1409        TF_RIGHT = $0004;
1410        TF_BOTTOM = $0008;
1411        TF_MOVE = $000F;
1412        TF_SETPOINTERPOS = $0010;
1413        TF_GRID = $0020;
1414        TF_STANDARD = $0040;
1415        TF_ALLINBOUNDARY = $0080;
1416        TF_VALIDATETRACKRECT = $0100;
1417        TF_PARTINBOUNDARY = $0200;
1418        WM_RENDERFMT = $0060;
1419        WM_RENDERALLFMTS = $0061;
1420        WM_DESTROYCLIPBOARD = $0062;
1421        WM_PAINTCLIPBOARD = $0063;
1422        WM_SIZECLIPBOARD = $0064;
1423        WM_HSCROLLCLIPBOARD = $0065;
1424        WM_VSCROLLCLIPBOARD = $0066;
1425        WM_DRAWCLIPBOARD = $0067;
1426        CF_TEXT = 1;
1427        CF_BITMAP = 2;
1428        CF_DSPTEXT = 3;
1429        CF_DSPBITMAP = 4;
1430        CF_METAFILE = 5;
1431        CF_DSPMETAFILE = 6;
1432        CF_PALETTE = 9;
1433        SZFMT_TEXT = '#1';
1434        SZFMT_BITMAP = '#2';
1435        SZFMT_DSPTEXT = '#3';
1436        SZFMT_DSPBITMAP = '#4';
1437        SZFMT_METAFILE = '#5';
1438        SZFMT_DSPMETAFILE = '#6';
1439        SZFMT_PALETTE = '#9';
1440        SZFMT_SYLK = 'Sylk';
1441        SZFMT_DIF = 'Dif';
1442        SZFMT_TIFF = 'Tiff';
1443        SZFMT_OEMTEXT = 'OemText';
1444        SZFMT_DIB = 'Dib';
1445        SZFMT_OWNERDISPLAY = 'OwnerDisplay';
1446        SZFMT_LINK = 'Link';
1447        SZFMT_METAFILEPICT = 'MetaFilePict';
1448        SZFMT_DSPMETAFILEPICT = 'DspMetaFilePict';
1449        SZFMT_CPTEXT = 'Codepage Text';
1450        SZDDEFMT_RTF = 'Rich Text Format';
1451        SZDDEFMT_PTRPICT = 'Printer_Picture';
1452
1453        CFI_OWNERFREE = $0001;
1454        CFI_OWNERDISPLAY = $0002;
1455        CFI_POINTER = $0400;
1456        CFI_HANDLE = $0200;
1457
1458        CURSOR_SOLID = $0000;
1459        CURSOR_HALFTONE = $0001;
1460        CURSOR_FRAME = $0002;
1461        CURSOR_FLASH = $0004;
1462        CURSOR_SETPOS = $8000;
1463
1464        SPTR_ARROW = 1;
1465        SPTR_TEXT = 2;
1466        SPTR_WAIT = 3;
1467        SPTR_SIZE = 4;
1468        SPTR_MOVE = 5;
1469        SPTR_SIZENWSE = 6;
1470        SPTR_SIZENESW = 7;
1471        SPTR_SIZEWE = 8;
1472        SPTR_SIZENS = 9;
1473        SPTR_APPICON = 10;
1474        SPTR_ICONINFORMATION = 11;
1475        SPTR_ICONQUESTION = 12;
1476        SPTR_ICONERROR = 13;
1477        SPTR_ICONWARNING = 14;
1478        SPTR_CPTR = 14;
1479        SPTR_ILLEGAL = 18;
1480        SPTR_FILE = 19;
1481        SPTR_FOLDER = 20;
1482        SPTR_MULTFILE = 21;
1483        SPTR_PROGRAM = 22;
1484        SPTR_HANDICON = SPTR_ICONERROR;
1485        SPTR_QUESICON = SPTR_ICONQUESTION;
1486        SPTR_BANGICON = SPTR_ICONWARNING;
1487        SPTR_NOTEICON = SPTR_ICONINFORMATION;
1488
1489        DP_NORMAL = $0000;
1490        DP_HALFTONED = $0001;
1491        DP_INVERTED = $0002;
1492
1493        SBMP_OLD_SYSMENU = 1;
1494        SBMP_OLD_SBUPARROW = 2;
1495        SBMP_OLD_SBDNARROW = 3;
1496        SBMP_OLD_SBRGARROW = 4;
1497        SBMP_OLD_SBLFARROW = 5;
1498        SBMP_MENUCHECK = 6;
1499        SBMP_OLD_CHECKBOXES = 7;
1500        SBMP_BTNCORNERS = 8;
1501        SBMP_OLD_MINBUTTON = 9;
1502        SBMP_OLD_MAXBUTTON = 10;
1503        SBMP_OLD_RESTOREBUTTON = 11;
1504        SBMP_OLD_CHILDSYSMENU = 12;
1505        SBMP_DRIVE = 15;
1506        SBMP_FILE = 16;
1507        SBMP_FOLDER = 17;
1508        SBMP_TREEPLUS = 18;
1509        SBMP_TREEMINUS = 19;
1510        SBMP_PROGRAM = 22;
1511        SBMP_MENUATTACHED = 23;
1512        SBMP_SIZEBOX = 24;
1513        SBMP_SYSMENU = 25;
1514        SBMP_MINBUTTON = 26;
1515        SBMP_MAXBUTTON = 27;
1516        SBMP_RESTOREBUTTON = 28;
1517        SBMP_CHILDSYSMENU = 29;
1518        SBMP_SYSMENUDEP = 30;
1519        SBMP_MINBUTTONDEP = 31;
1520        SBMP_MAXBUTTONDEP = 32;
1521        SBMP_RESTOREBUTTONDEP = 33;
1522        SBMP_CHILDSYSMENUDEP = 34;
1523        SBMP_SBUPARROW = 35;
1524        SBMP_SBDNARROW = 36;
1525        SBMP_SBLFARROW = 37;
1526        SBMP_SBRGARROW = 38;
1527        SBMP_SBUPARROWDEP = 39;
1528        SBMP_SBDNARROWDEP = 40;
1529        SBMP_SBLFARROWDEP = 41;
1530        SBMP_SBRGARROWDEP = 42;
1531        SBMP_SBUPARROWDIS = 43;
1532        SBMP_SBDNARROWDIS = 44;
1533        SBMP_SBLFARROWDIS = 45;
1534        SBMP_SBRGARROWDIS = 46;
1535        SBMP_COMBODOWN = 47;
1536        SBMP_CHECKBOXES = 48;
1537
1538        HK_SENDMSG = 0;
1539        HK_INPUT = 1;
1540        HK_MSGFILTER = 2;
1541        HK_JOURNALRECORD = 3;
1542        HK_JOURNALPLAYBACK = 4;
1543        HK_HELP = 5;
1544        HK_LOADER = 6;
1545        HK_REGISTERUSERMSG = 7;
1546        HK_MSGCONTROL = 8;
1547        HK_PLIST_ENTRY = 9;
1548        HK_PLIST_EXIT = 10;
1549        HK_FINDWORD = 11;
1550        HK_CODEPAGECHANGED = 12;
1551        HK_WINDOWDC = 15;
1552        HK_DESTROYWINDOW = 16;
1553        HK_CHECKMSGFILTER = 20;
1554        HMQ_CURRENT = 1;
1555        MSGF_DIALOGBOX = 1;
1556        MSGF_MESSAGEBOX = 2;
1557        MSGF_TRACK = 8;
1558        MSGF_DDEPOSTMSG = 3;
1559        HLPM_FRAME = (-1);
1560        HLPM_WINDOW = (-2);
1561        HLPM_MENU = (-3);
1562        PM_MODEL_1X = 0;
1563        PM_MODEL_2X = 1;
1564
1565        LHK_DELETEPROC = 1;
1566        LHK_DELETELIB = 2;
1567        LHK_LOADPROC = 3;
1568        LHK_LOADLIB = 4;
1569        MCHK_MSGINTEREST = 1;
1570        MCHK_CLASSMSGINTEREST = 2;
1571        MCHK_SYNCHRONISATION = 3;
1572        MCHK_MSGMODE = 4;
1573        RUMHK_DATATYPE = 1;
1574        RUMHK_MSG = 2;
1575
1576        {WinCompareStrings}
1577        WCS_ERROR = 0;
1578        WCS_EQ = 1;
1579        WCS_LT = 2;
1580        WCS_GT = 3;
1581
1582        WINDBG_HWND_NOT_DESTROYED = $1022;
1583        WINDBG_HPTR_NOT_DESTROYED = $1023;
1584        WINDBG_HACCEL_NOT_DESTROYED = $1024;
1585        WINDBG_HENUM_NOT_DESTROYED = $1025;
1586        WINDBG_VISRGN_SEM_BUSY = $1026;
1587        WINDBG_USER_SEM_BUSY = $1027;
1588        WINDBG_DC_CACHE_BUSY = $1028;
1589        WINDBG_HOOK_STILL_INSTALLED = $1029;
1590        WINDBG_WINDOW_STILL_LOCKED = $102a;
1591        WINDBG_UPDATEPS_ASSERTION_FAIL = $102b;
1592        WINDBG_SENDMSG_WITHIN_USER_SEM = $102c;
1593        WINDBG_USER_SEM_NOT_ENTERED = $102d;
1594        WINDBG_PROC_NOT_EXPORTED = $102e;
1595        WINDBG_BAD_SENDMSG_cardinal = $102f;
1596        WINDBG_ABNORMAL_EXIT = $1030;
1597        WINDBG_INTERNAL_REVISION = $1031;
1598        WINDBG_INITSYSTEM_FAILED = $1032;
1599        WINDBG_HATOMTBL_NOT_DESTROYED = $1033;
1600        WINDBG_WINDOW_UNLOCK_WAIT = $1035;
1601
1602        SZDDESYS_TOPIC = 'System';
1603        SZDDESYS_ITEM_TOPICS = 'Topics';
1604        SZDDESYS_ITEM_SYSITEMS = 'SysItems';
1605        SZDDESYS_ITEM_RTNMSG = 'ReturnMessage';
1606        SZDDESYS_ITEM_STATUS = 'Status';
1607        SZDDESYS_ITEM_FORMATS = 'Formats';
1608        SZDDESYS_ITEM_SECURITY = 'Security';
1609        SZDDESYS_ITEM_ITEMFORMATS = 'ItemFormats';
1610        SZDDESYS_ITEM_HELP = 'Help';
1611        SZDDESYS_ITEM_PROTOCOLS = 'Protocols';
1612        SZDDESYS_ITEM_RESTART = 'Restart';
1613
1614        DDECTXT_CASESENSITIVE = $0001;
1615
1616        {DDE}
1617        DDE_FACK = $0001;
1618        DDE_FBUSY = $0002;
1619        DDE_FNODATA = $0004;
1620        DDE_FACKREQ = $0008;
1621        DDE_FRESPONSE = $0010;
1622        DDE_NOTPROCESSED = $0020;
1623        DDE_FRESERVED = $00C0;
1624        DDE_FAPPSTATUS = $FF00;
1625        DDEFMT_TEXT = $0001;
1626        DDEPM_RETRY = $00000001;
1627        DDEPM_NOFREE = $00000002;
1628        WM_DDE_FIRST = $00A0;
1629        WM_DDE_INITIATE = $00A0;
1630        WM_DDE_REQUEST = $00A1;
1631        WM_DDE_ACK = $00A2;
1632        WM_DDE_DATA = $00A3;
1633        WM_DDE_ADVISE = $00A4;
1634        WM_DDE_UNADVISE = $00A5;
1635        WM_DDE_POKE = $00A6;
1636        WM_DDE_EXECUTE = $00A7;
1637        WM_DDE_TERMINATE = $00A8;
1638        WM_DDE_INITIATEACK = $00A9;
1639        WM_DDE_LAST = $00AF;
1640        WM_QUERYCONVERTPOS = $00b0;
1641        QCP_CONVERT = $0001;
1642        QCP_NOCONVERT = $0000;
1643
1644        SDT_DESTROY = $0001;
1645        SDT_NOBKGND = $0002;
1646        SDT_TILE = $0004;
1647        SDT_SCALE = $0008;
1648        SDT_PATTERN = $0010;
1649        SDT_CENTER = $0020;
1650        SDT_RETAIN = $0040;
1651        SDT_LOADFILE = $0080;
1652
1653        STR_DLLNAME = 'keyremap';
1654        WM_DBCSFIRST = $00b0;
1655        WM_DBCSLAST = $00cf;
1656
1657     function WinRegisterClass(hab : cardinal;pszClassName : pchar;pfnWndProc : proc;flStyle,cbWindowData : cardinal) : longbool; cdecl;
1658     function WinDefWindowProc(hwnd,msg : cardinal;mp1,mp2 : pointer) : pointer; cdecl;
1659     function WinDestroyWindow(hwnd : cardinal) : longbool; cdecl;
1660     function WinShowWindow(hwnd : cardinal;fShow : longbool) : longbool;  cdecl;
1661     function WinQueryWindowRect(hwnd : cardinal;var rclDest : TRectl) : longbool; cdecl;
1662     function WinQueryWindowRect(hwnd : cardinal;prclDest : PRectl) : longbool; cdecl;
1663     function WinGetPS(hwnd : cardinal) : cardinal;  cdecl;
1664     function WinReleasePS(hps : cardinal) : longbool;  cdecl;
1665     function WinEndPaint(hps : cardinal) : longbool; cdecl;
1666     function WinGetClipPS(hwnd,hwndClip,fl : cardinal) : cardinal; cdecl;
1667     function WinIsWindowShowing(hwnd : cardinal) : longbool; cdecl;
1668     function WinBeginPaint(hwnd,hps : cardinal;var rclPaint : TRectl) : cardinal; cdecl;
1669     function WinBeginPaint(hwnd,hps : cardinal;prclPaint: PRectl) : cardinal; cdecl;
1670     function WinOpenWindowDC(hwnd : cardinal) : cardinal; cdecl;
1671     function WinScrollWindow(hwnd : cardinal;dx,dy : longint;var rclScroll,rclClip : TRectl;hrgnUpdate : cardinal;var rclUpdate : TRectl;rgfsw : cardinal) : longint; cdecl;
1672     function WinScrollWindow(hwnd : cardinal;dx,dy : longint;prclScroll,prclClip : PRectl;hrgnUpdate : cardinal;prclUpdate : PRectl;rgfsw : cardinal) : longint; cdecl;
1673     function WinFillRect(hps : cardinal;var rcl : TRectl;lColor : longint) : longbool; cdecl;
1674     function WinFillRect(hps : cardinal;prcl : PRectl;lColor : longint) : longbool; cdecl;
1675     function WinQueryVersion(hab : cardinal) : cardinal; cdecl;
1676     function WinInitialize(flOptions : cardinal) : cardinal; cdecl;
1677     function WinTerminate(hab : cardinal) : longbool; cdecl;
1678     function WinQueryAnchorBlock(hwnd : cardinal) : cardinal; cdecl;
1679     function WinCreateWindow(hwndParent : cardinal;pszClass,pszName : pchar;flStyle : cardinal;x,y,cx,cy : longint;hwndOwner,hwndInsertBehind,id : cardinal;var pCtlData,pPresParams : pointer) : cardinal; cdecl;
1680     function WinEnableWindow(hwnd : cardinal;fEnable : longbool) : longbool; cdecl;
1681     function WinIsWindowEnabled(hwnd : cardinal) : longbool; cdecl;
1682     function WinEnableWindowUpdate(hwnd : cardinal;fEnable : longbool) : longbool; cdecl;
1683     function WinIsWindowVisible(hwnd : cardinal) : longbool; cdecl;
1684     function WinQueryWindowText(hwnd : cardinal;cchBufferMax : longint;pchBuffer : pchar) : longint; cdecl;
1685     function WinSetWindowText(hwnd : cardinal;pszText : pchar) : longbool; cdecl;
1686     function WinQueryWindowTextLength(hwnd : cardinal) : longint; cdecl;
1687     function WinWindowFromID(hwndParent,id : cardinal) : cardinal; cdecl;
1688     function WinIsWindow(hab,hwnd : cardinal) : longbool; cdecl;
1689     function WinQueryWindow(hwnd : cardinal;cmd : longint) : cardinal; cdecl;
1690     function WinMultWindowFromIDs(hwndParent : cardinal;var prghwnd : cardinal;idFirst,idLast : cardinal) : longint; cdecl;
1691     function WinMultWindowFromIDs(hwndParent : cardinal;prghwnd : PCardinal;idFirst,idLast : cardinal) : longint; cdecl;
1692     function WinSetParent(hwnd,hwndNewParent : cardinal;fRedraw : longbool) : longbool; cdecl;
1693     function WinIsChild(hwnd,hwndParent : cardinal) : longbool; cdecl;
1694     function WinSetOwner(hwnd,hwndNewOwner : cardinal) : longbool; cdecl;
1695     function WinQueryWindowProcess(hwnd : cardinal;var _pid,_tid : cardinal) : longbool; cdecl;
1696     function WinQueryWindowProcess(hwnd : cardinal;_ppid,_ptid : PCardinal) : longbool; cdecl;
1697     function WinQueryObjectWindow(hwndDesktop : cardinal) : cardinal; cdecl;
1698     function WinQueryDesktopWindow(hab,hdc : cardinal) : cardinal; cdecl;
1699     function WinSetWindowPos(hwnd,hwndInsertBehind : cardinal;x,y,cx,cy : longint;fl : cardinal) : longbool; cdecl;
1700     function WinSetMultWindowPos(hab : cardinal;var _swp : TSWP;cswp : cardinal) : longbool; cdecl;
1701     function WinSetMultWindowPos(hab : cardinal;_pswp : PSWP;cswp : cardinal) : longbool; cdecl;
1702     function WinQueryWindowPos(hwnd : cardinal;var _swp : TSWP) : longbool; cdecl;
1703     function WinQueryWindowPos(hwnd : cardinal;_pswp : PSWP) : longbool; cdecl;
1704     function WinUpdateWindow(hwnd : cardinal) : longbool; cdecl;
1705     function WinInvalidateRect(hwnd : cardinal;var wrc : TRectl;fIncludeChildren : longbool) : longbool; cdecl;
1706     function WinInvalidateRect(hwnd : cardinal;pwrc : PRectl;fIncludeChildren : longbool) : longbool; cdecl;
1707     function WinInvalidateRegion(hwnd,hrgn : cardinal;fIncludeChildren : longbool) : longbool; cdecl;
1708     function WinInvertRect(hps : cardinal;var rcl : TRectl) : longbool; cdecl;
1709     function WinInvertRect(hps : cardinal;prcl : PRectl) : longbool; cdecl;
1710     function WinDrawBitmap(hpsDst,hbm : cardinal;var wrcSrc : TRectl;var ptlDst : POINTL;clrFore : longint;clrBack : longint;fl : cardinal) : longbool; cdecl;
1711     function WinDrawBitmap(hpsDst,hbm : cardinal;pwrcSrc : PRectl;pptlDst : PPOINTL;clrFore : longint;clrBack : longint;fl : cardinal) : longbool; cdecl;
1712     function WinDrawText(hps : cardinal;cchText : longint;lpchText : pchar;var rcl : TRectl;clrFore,clrBack : longint;flCmd : cardinal) : longint; cdecl;
1713     function WinDrawText(hps : cardinal;cchText : longint;lpchText : pchar;prcl : PRectl;clrFore,clrBack : longint;flCmd : cardinal) : longint; cdecl;
1714     function WinDrawBorder(hps : cardinal;var rcl : TRectl;cx,cy : longint;clrFore,clrBack : longint;flCmd : cardinal) : longbool; cdecl;
1715     function WinDrawBorder(hps : cardinal;prcl : PRectl;cx,cy : longint;clrFore,clrBack : longint;flCmd : cardinal) : longbool; cdecl;
1716     function WinLoadString(hab,hmod,id : cardinal;cchMax : longint;pchBuffer : pchar) : longint; cdecl;
1717     function WinLoadMessage(hab,hmod,id : cardinal;cchMax : longint;pchBuffer : pchar) : longint; cdecl;
1718     function WinSetActiveWindow(hwndDesktop,hwnd : cardinal) : longbool; cdecl;
1719     function WinSubclassWindow(hwnd : cardinal;pfnwp : proc) : proc; cdecl;
1720     function WinQueryClassName(hwnd : cardinal;cchMax : longint;pch : pchar) : longint; cdecl;
1721     function WinQueryClassInfo(hab : cardinal;pszClassName : pchar;var _ClassInfo : TClassInfo) : longbool; cdecl;
1722     function WinQueryClassInfo(hab : cardinal;pszClassName : pchar;_PClassInfo : PClassInfo) : longbool; cdecl;
1723     function WinQueryActiveWindow(hwndDesktop : cardinal) : cardinal; cdecl;
1724     function WinIsThreadActive(hab : cardinal) : longbool; cdecl;
1725     function WinQuerySysModalWindow(hwndDesktop : cardinal) : cardinal; cdecl;
1726     function WinSetSysModalWindow(hwndDesktop,hwnd : cardinal) : longbool; cdecl;
1727     function WinQueryWindowUShort(hwnd : cardinal;index : longint) : word; cdecl;
1728     function WinSetWindowUShort(hwnd : cardinal;index : longint;us : word) : longbool; cdecl;
1729     function WinQueryWindowULong(hwnd : cardinal;index : longint) : cardinal; cdecl;
1730     function WinSetWindowULong(hwnd : cardinal;index : longint;ul : cardinal) : longbool; cdecl;
1731     function WinQueryWindowPtr(hwnd : cardinal;index : longint) : pointer; cdecl;
1732     function WinSetWindowPtr(hwnd : cardinal;index : longint;p : pointer) : longbool; cdecl;
1733     function WinSetWindowBits(hwnd : cardinal;index : longint;flData,flMask : cardinal) : longbool; cdecl;
1734     function WinBeginEnumWindows(hwnd : cardinal) : cardinal; cdecl;
1735     function WinGetNextWindow(henum : cardinal) : cardinal; cdecl;
1736     function WinEndEnumWindows(henum : cardinal) : longbool; cdecl;
1737     function WinWindowFromPoint(hwnd : cardinal;var ptl : TPointL;fChildren : longbool) : cardinal; cdecl;
1738     function WinWindowFromPoint(hwnd : cardinal;pptl : PPointL;fChildren : longbool) : cardinal; cdecl;
1739     function WinMapWindowPoints(hwndFrom,hwndTo : cardinal;var prgptl : TPointL;cwpt : longint) : longbool; cdecl;
1740     function WinMapWindowPoints(hwndFrom,hwndTo : cardinal;prgptl : PPointL;cwpt : longint) : longbool; cdecl;
1741     function WinValidateRect(hwnd : cardinal;var rcl : TRectl;fIncludeChildren : longbool) : longbool; cdecl;
1742     function WinValidateRect(hwnd : cardinal;prcl : PRectl;fIncludeChildren : longbool) : longbool; cdecl;
1743     function WinValidateRegion(hwnd,hrgn : cardinal;fIncludeChildren : longbool) : longbool; cdecl;
1744     function WinWindowFromDC(hdc : cardinal) : cardinal; cdecl;
1745     function WinQueryWindowDC(hwnd : cardinal) : cardinal; cdecl;
1746     function WinGetScreenPS(hwndDesktop : cardinal) : cardinal; cdecl;
1747     function WinLockWindowUpdate(hwndDesktop,hwndLockUpdate : cardinal) : longbool; cdecl;
1748     function WinLockVisRegions(hwndDesktop : cardinal;fLock : longbool) : longbool; cdecl;
1749     function WinQueryUpdateRect(hwnd : cardinal;var rcl : TRectl) : longbool; cdecl;
1750     function WinQueryUpdateRect(hwnd : cardinal;prcl : PRectl) : longbool; cdecl;
1751     function WinQueryUpdateRegion(hwnd,hrgn : cardinal) : longint; cdecl;
1752     function WinExcludeUpdateRegion(hps,hwnd : cardinal) : longint; cdecl;
1753     function WinSendMsg(hwnd,msg : cardinal;mp1,mp2 : pointer) : pointer; cdecl;
1754     function WinCreateMsgQueue(hab : cardinal;cmsg : longint) : cardinal; cdecl;
1755     function WinDestroyMsgQueue(hmq : cardinal) : longbool; cdecl;
1756     function WinQueryQueueInfo(hmq : cardinal;var mqi : TMQInfo;cbCopy : cardinal) : longbool; cdecl;
1757     function WinQueryQueueInfo(hmq : cardinal;pmqi : PMQInfo;cbCopy : cardinal) : longbool; cdecl;
1758     function WinCancelShutdown(hmq : cardinal;fCancelAlways : longbool) : longbool; cdecl;
1759     function WinGetMsg(hab : cardinal;var _qmsg : TQMsg;hwndFilter,msgFilterFirst,msgFilterLast : cardinal) : longbool; cdecl;
1760     function WinGetMsg(hab : cardinal;_pqmsg : PQMsg;hwndFilter,msgFilterFirst,msgFilterLast : cardinal) : longbool; cdecl;
1761     function WinPeekMsg(hab : cardinal;var _qmsg : TQMsg;hwndFilter,msgFilterFirst,msgFilterLast,fl : cardinal) : longbool; cdecl;
1762     function WinPeekMsg(hab : cardinal;_pqmsg : PQMsg;hwndFilter,msgFilterFirst,msgFilterLast,fl : cardinal) : longbool; cdecl;
1763     function WinDispatchMsg(hab : cardinal;var _qmsg : TQMsg) : pointer; cdecl;
1764     function WinDispatchMsg(hab : cardinal;_pqmsg : PQMsg) : pointer; cdecl;
1765     function WinPostMsg(hwnd,msg : cardinal;mp1,mp2 : pointer) : longbool; cdecl;
1766     function WinRegisterUserMsg(hab,msgid : cardinal;datatype1,dir1,datatype2,dir2,datatyper : longint) : longbool; cdecl;
1767     function WinRegisterUserDatatype(hab : cardinal;datatype,count : longint;var types : longint) : longbool; cdecl;
1768     function WinSetMsgMode(hab : cardinal;classname : pchar;control : longint) : longbool; cdecl;
1769     function WinSetSynchroMode(hab : cardinal;mode : longint) : longbool;  cdecl;
1770     function WinInSendMsg(hab : cardinal) : longbool; cdecl;
1771     function WinBroadcastMsg(hwnd,msg : cardinal;mp1,mp2 : pointer;rgf : cardinal) : longbool; cdecl;
1772     function WinWaitMsg(hab,msgFirst,msgLast : cardinal) : longbool; cdecl;
1773     function WinQueryQueueStatus(hwndDesktop : cardinal) : cardinal; cdecl;
1774     function WinQueryMsgPos(hab : cardinal;var ptl : TPointL) : longbool; cdecl;
1775     function WinQueryMsgPos(hab : cardinal;pptl : PPointL) : longbool; cdecl;
1776     function WinQueryMsgTime(hab : cardinal) : cardinal; cdecl;
1777     function WinWaitEventSem(hev,ulTimeout : cardinal) : cardinal; cdecl;
1778     function WinRequestMutexSem(hmtx,ulTimeout : cardinal) : cardinal; cdecl;
1779     function WinWaitMuxWaitSem(hmux,ulTimeout:cardinal;var ulUser : cardinal) : cardinal; cdecl;
1780     function WinWaitMuxWaitSem(hmux,ulTimeout:cardinal;pulUser : PCardinal) : cardinal; cdecl;
1781     function WinPostQueueMsg(hmq,msg : cardinal;mp1,mp2 : pointer) : longbool; cdecl;
1782     function WinSetMsgInterest(hwnd,msg_class : cardinal;control : longint) : longbool; cdecl;
1783     function WinSetClassMsgInterest(hab : cardinal;pszClassName : pchar;msg_class : cardinal;control : longint) : longbool; cdecl;
1784     function WinSetFocus(hwndDesktop,hwndSetFocus : cardinal) : longbool; cdecl;
1785     function WinFocusChange(hwndDesktop,hwndSetFocus,flFocusChange : cardinal) : longbool; cdecl;
1786     function WinSetCapture(hwndDesktop,hwnd : cardinal) : longbool; cdecl;
1787     function WinQueryCapture(hwndDesktop : cardinal) : cardinal; cdecl;
1788     function WinQueryFocus(hwndDesktop : cardinal) : cardinal; cdecl;
1789     function WinGetKeyState(hwndDesktop : cardinal;vkey : longint) : longint; cdecl;
1790     function WinGetPhysKeyState(hwndDesktop : cardinal;sc : longint) : longint; cdecl;
1791     function WinEnablePhysInput(hwndDesktop : cardinal;fEnable : longbool) : longbool; cdecl;
1792     function WinIsPhysInputEnabled(hwndDesktop : cardinal) : longbool; cdecl;
1793     function WinSetKeyboardStateTable(hwndDesktop : cardinal;var KeyStateTable;fSet : longbool) : longbool; cdecl;
1794     function WinSetKeyboardStateTable(hwndDesktop : cardinal;pKeyStateTable : pointer;fSet : longbool) : longbool; cdecl;
1795     function WinGetDlgMsg(hwndDlg : cardinal;var _qmsg : TQMsg) : longbool; cdecl;
1796     function WinGetDlgMsg(hwndDlg : cardinal;_pqmsg : PQMsg) : longbool; cdecl;
1797     function WinLoadDlg(hwndParent,hwndOwner : cardinal;pfnDlgProc : proc;hmod,idDlg : cardinal;pCreateParams : pointer) : cardinal; cdecl;
1798     function WinDlgBox(hwndParent,hwndOwner : cardinal;pfnDlgProc : proc;hmod,idDlg : cardinal;pCreateParams : pointer) : cardinal; cdecl;
1799     function WinDismissDlg(hwndDlg,usResult : cardinal) : longbool; cdecl;
1800     function WinQueryDlgItemShort(hwndDlg,idItem : cardinal;var _Result : integer;fSigned : longbool) : longbool; cdecl;
1801     function WinQueryDlgItemShort(hwndDlg,idItem : cardinal;PResult : PInteger;fSigned : longbool) : longbool; cdecl;
1802     function WinSetDlgItemShort(hwndDlg,idItem : cardinal;usValue : word;fSigned : longbool) : longbool; cdecl;
1803     function WinSetDlgItemText(hwndDlg,idItem : cardinal;pszText : pchar) : longbool; cdecl;
1804     function WinQueryDlgItemText(hwndDlg,idItem : cardinal;cchBufferMax : longint;pchBuffer : pchar) : cardinal; cdecl;
1805     function WinQueryDlgItemTextLength(hwndDlg,idItem : cardinal) : longint; cdecl;
1806     function WinDefDlgProc(hwndDlg,msg : cardinal;mp1,mp2 : pointer) : pointer; cdecl;
1807     function WinAlarm(hwndDesktop,rgfType : cardinal) : longbool; cdecl;
1808     function WinMessageBox(hwndParent,hwndOwner : cardinal;pszText,pszCaption : pchar;idWindow,flStyle : cardinal) : cardinal; cdecl;
1809     function WinProcessDlg(hwndDlg : cardinal) : cardinal; cdecl;
1810     function WinSendDlgItemMsg(hwndDlg,idItem,msg : cardinal;mp1,mp2 : pointer) : pointer; cdecl;
1811     function WinMapDlgPoints(hwndDlg : cardinal;var prgwptl : TPointL;cwpt : cardinal;fCalcWindowCoords : longbool) : longbool; cdecl;
1812     function WinMapDlgPoints(hwndDlg : cardinal;prgwptl : PPointL;cwpt : cardinal;fCalcWindowCoords : longbool) : longbool; cdecl;
1813     function WinEnumDlgItem(hwndDlg,hwnd,code : cardinal) : cardinal; cdecl;
1814     function WinSubstituteStrings(hwnd : cardinal;pszSrc : pchar;cchDstMax : longint;pszDst : pchar) : longint; cdecl;
1815     function WinCreateDlg(hwndParent,hwndOwner : cardinal;pfnDlgProc : proc;var dlgt : TDlgTemplate;pCreateParams : pointer) : cardinal; cdecl;
1816     function WinCreateDlg(hwndParent,hwndOwner : cardinal;pfnDlgProc : proc;pdlgt : PDlgTemplate;pCreateParams : pointer) : cardinal; cdecl;
1817     function WinLoadMenu(hwndFrame,hmod,idMenu : cardinal) : cardinal; cdecl;
1818     function WinCreateMenu(hwndParent : cardinal;lpmt : pointer) : cardinal; cdecl;
1819     function WinPopupMenu(hwndParent,hwndOwner,hwndMenu : cardinal;x,y,idItem : longint;fs : cardinal) : longbool; cdecl;
1820     function WinCreateStdWindow(hwndParent,flStyle : cardinal;var flCreateFlags : cardinal;pszClientClass,pszTitle : pchar;styleClient,hmod,idResources : cardinal;var hwndClient : cardinal) : cardinal; cdecl;
1821     function WinCreateStdWindow(hwndParent,flStyle : cardinal;pflCreateFlags : PCardinal;pszClientClass,pszTitle : pchar;styleClient,hmod,idResources : cardinal;phwndClient : PCardinal) : cardinal; cdecl;
1822     function WinFlashWindow(hwndFrame : cardinal;fFlash : longbool) : longbool; cdecl;
1823     function WinCreateFrameControls(hwndFrame : cardinal;var fcdata : TFrameCData;pszTitle : pchar) : longbool;  cdecl;
1824     function WinCreateFrameControls(hwndFrame : cardinal;pfcdata : PFrameCData;pszTitle : pchar) : longbool;  cdecl;
1825     function WinCalcFrameRect(hwndFrame : cardinal;var rcl : TRectl;fClient : longbool) : longbool; cdecl;
1826     function WinCalcFrameRect(hwndFrame : cardinal;prcl : PRectl;fClient : longbool) : longbool; cdecl;
1827     function WinGetMinPosition(hwnd : cardinal;var _swp : TSWP;var pptl : POINTL) : longbool; cdecl;
1828     function WinGetMinPosition(hwnd : cardinal;_pswp : PSWP;var pptl : POINTL) : longbool; cdecl;
1829     function WinGetMaxPosition(hwnd : cardinal;var _swp : TSWP) : longbool; cdecl;
1830     function WinGetMaxPosition(hwnd : cardinal;_pswp : PSWP) : longbool; cdecl;
1831     function WinSaveWindowPos(hsvwp : cardinal;var _swp : TSWP;cswp : cardinal) : longbool; cdecl;
1832     function WinSaveWindowPos(hsvwp : cardinal;_pswp : PSWP;cswp : cardinal) : longbool; cdecl;
1833     function WinCopyRect(hab : cardinal;var rclDst, rclSrc : TRectl) : longbool; cdecl;
1834     function WinCopyRect(hab : cardinal;prclDst, prclSrc : PRectl) : longbool; cdecl;
1835     function WinSetRect(hab : cardinal;var rcl : TRectl;xLeft,yBottom,xRight,yTop : longint) : longbool; cdecl;
1836     function WinSetRect(hab : cardinal;_prcl : PRectl;xLeft,yBottom,xRight,yTop : longint) : longbool; cdecl;
1837     function WinIsRectEmpty(hab : cardinal;var rcl : TRectl) : longbool; cdecl;
1838     function WinIsRectEmpty(hab : cardinal;prcl : PRectl) : longbool; cdecl;
1839     function WinEqualRect(hab : cardinal;var rcl1,rcl2 : TRectl) : longbool; cdecl;
1840     function WinEqualRect(hab : cardinal;prcl1,prcl2 : PRectl) : longbool; cdecl;
1841     function WinSetRectEmpty(hab : cardinal;var rcl : TRectl) : longbool; cdecl;
1842     function WinSetRectEmpty(hab : cardinal;prcl : PRectl) : longbool; cdecl;
1843     function WinOffsetRect(hab : cardinal;var rcl : TRectl;cx,cy : longint) : longbool; cdecl;
1844     function WinOffsetRect(hab : cardinal;prcl : PRectl;cx,cy : longint) : longbool; cdecl;
1845     function WinInflateRect(hab : cardinal;var rcl : TRectl;cx,cy : longint) : longbool; cdecl;
1846     function WinInflateRect(hab : cardinal;prcl : PRectl;cx,cy : longint) : longbool; cdecl;
1847     function WinPtInRect(hab : cardinal;var rcl : TRectl;var ptl : TPointL) : longbool; cdecl;
1848     function WinPtInRect(hab : cardinal;prcl : PRectl;pptl : PPointL) : longbool; cdecl;
1849     function WinIntersectRect(hab : cardinal;var rclDst,rclSrc1,rclSrc2 : TRectl) : longbool; cdecl;
1850     function WinIntersectRect(hab : cardinal;prclDst,prclSrc1,prclSrc2 : PRectl) : longbool; cdecl;
1851     function WinUnionRect(hab : cardinal;var rclDst,rclSrc1,rclSrc2 : TRectl) : longbool; cdecl;
1852     function WinUnionRect(hab : cardinal;prclDst,prclSrc1,prclSrc2 : PRectl) : longbool; cdecl;
1853     function WinSubtractRect(hab : cardinal;var rclDst,rclSrc1,rclSrc2 : TRectl) : longbool; cdecl;
1854     function WinSubtractRect(hab : cardinal;prclDst,prclSrc1,prclSrc2 : PRectl) : longbool; cdecl;
1855     function WinMakeRect(hab : cardinal;var wrc : TRectl) : longbool; cdecl;
1856     function WinMakeRect(hab : cardinal;pwrc : PRectl) : longbool; cdecl;
1857     function WinMakePoints(hab : cardinal;var wpt : TPointL;cwpt : cardinal) : longbool; cdecl;
1858     function WinMakePoints(hab : cardinal;pwpt : PPointL;cwpt : cardinal) : longbool; cdecl;
1859     function WinQuerySysValue(hwndDesktop : cardinal;iSysValue : longint) : longint; cdecl;
1860     function WinSetSysValue(hwndDesktop : cardinal;iSysValue,lValue : longint) : longbool; cdecl;
1861     function WinSetPresParam(hwnd,id,cbParam : cardinal;pbParam : pointer) : longbool;  cdecl;
1862     function WinQueryPresParam(hwnd,id1,id2 : cardinal;var ulId : cardinal;cbBuf : cardinal;pbBuf : pointer;fs : cardinal) : cardinal; cdecl;
1863     function WinQueryPresParam(hwnd,id1,id2 : cardinal;pulId : PCardinal;cbBuf : cardinal;pbBuf : pointer;fs : cardinal) : cardinal; cdecl;
1864     function WinRemovePresParam(hwnd,id : cardinal) : longbool; cdecl;
1865     function WinQuerySysColor(hwndDesktop : cardinal;clr,lReserved : longint) : longint; cdecl;
1866     function WinSetSysColors(hwndDesktop,flOptions,flFormat : cardinal;clrFirst : longint;cclr : cardinal;var clr : longint) : longbool; cdecl;
1867     function WinSetSysColors(hwndDesktop,flOptions,flFormat : cardinal;clrFirst : longint;cclr : cardinal;pclr : PLongint) : longbool; cdecl;
1868     function WinStartTimer(hab,hwnd,idTimer,dtTimeout : cardinal) : cardinal; cdecl;
1869     function WinStopTimer(hab,hwnd,idTimer : cardinal) : longbool; cdecl;
1870     function WinGetCurrentTime(hab : cardinal) : cardinal; cdecl;
1871     function WinLoadAccelTable(hab,hmod,idAccelTable : cardinal) : cardinal; cdecl;
1872     function WinCopyAccelTable(haccel : cardinal;var _AccelTable : TAccelTable;cbCopyMax : cardinal) : cardinal; cdecl;
1873     function WinCopyAccelTable(haccel : cardinal;_pAccelTable : PAccelTable;cbCopyMax : cardinal) : cardinal; cdecl;
1874     function WinCreateAccelTable(hab : cardinal;var _AccelTable : TAccelTable) : cardinal; cdecl;
1875     function WinCreateAccelTable(hab : cardinal;_pAccelTable : PAccelTable) : cardinal; cdecl;
1876     function WinDestroyAccelTable(haccel : cardinal) : longbool; cdecl;
1877     function WinTranslateAccel(hab,hwnd,haccel : cardinal;var _qmsg : TQMsg) : longbool; cdecl;
1878     function WinTranslateAccel(hab,hwnd,haccel : cardinal;_pqmsg : PQMsg) : longbool; cdecl;
1879     function WinSetAccelTable(hab,haccel,hwndFrame : cardinal) : longbool; cdecl;
1880     function WinQueryAccelTable(hab,hwndFrame : cardinal) : cardinal; cdecl;
1881     function WinTrackRect(hwnd,hps : cardinal;var ti : TTrackInfo) : longbool; cdecl;
1882     function WinTrackRect(hwnd,hps : cardinal;pti : PTrackInfo) : longbool; cdecl;
1883     function WinShowTrackRect(hwnd : cardinal;fShow : longbool) : longbool; cdecl;
1884     function WinSetClipbrdOwner(hab,hwnd : cardinal) : longbool; cdecl;
1885     function WinSetClipbrdData(hab,ulData,fmt,rgfFmtInfo : cardinal) : longbool;  cdecl;
1886     function WinQueryClipbrdData(hab,fmt : cardinal) : cardinal;  cdecl;
1887     function WinQueryClipbrdFmtInfo(hab,fmt : cardinal;var prgfFmtInfo : cardinal) : longbool; cdecl;
1888     function WinQueryClipbrdFmtInfo(hab,fmt : cardinal;prgfFmtInfo : PCardinal) : longbool; cdecl;
1889     function WinSetClipbrdViewer(hab,hwndNewClipViewer : cardinal) : longbool;  cdecl;
1890     function WinEnumClipbrdFmts(hab,fmt : cardinal) : cardinal; cdecl;
1891     function WinEmptyClipbrd(hab : cardinal) : longbool; cdecl;
1892     function WinOpenClipbrd(hab : cardinal) : longbool;  cdecl;
1893     function WinCloseClipbrd(hab : cardinal) : longbool; cdecl;
1894     function WinQueryClipbrdOwner(hab : cardinal) : cardinal; cdecl;
1895     function WinQueryClipbrdViewer(hab : cardinal) : cardinal; cdecl;
1896     function WinDestroyCursor(hwnd : cardinal) : longbool; cdecl;
1897     function WinShowCursor(hwnd : cardinal;fShow : longbool) : longbool; cdecl;
1898     function WinCreateCursor(hwnd : cardinal;x,y,cx,cy : longint;fs : cardinal;var rclClip : TRectl) : longbool; cdecl;
1899     function WinCreateCursor(hwnd : cardinal;x,y,cx,cy : longint;fs : cardinal;prclClip : PRectl) : longbool; cdecl;
1900     function WinQueryCursorInfo(hwndDesktop : cardinal;var _CursorInfo : TCursorInfo) : longbool; cdecl;
1901     function WinQueryCursorInfo(hwndDesktop : cardinal;_pCursorInfo : PCursorInfo) : longbool; cdecl;
1902     function WinSetPointer(hwndDesktop,hptrNew : cardinal) : longbool; cdecl;
1903     function WinSetPointerOwner(hptr,pid : cardinal;fDestroy : longbool) : longbool; cdecl;
1904     function WinShowPointer(hwndDesktop : cardinal;fShow : longbool) : longbool; cdecl;
1905     function WinQuerySysPointer(hwndDesktop : cardinal;iptr : longint;fLoad : longbool) : cardinal; cdecl;
1906     function WinLoadPointer(hwndDesktop,hmod,idres : cardinal) : cardinal; cdecl;
1907     function WinCreatePointer(hwndDesktop,hbmPointer : cardinal;fPointer : longbool;xHotspot,yHotspot : longint) : cardinal; cdecl;
1908     function WinSetPointerPos(hwndDesktop : cardinal;x,y : longint) : longbool; cdecl;
1909     function WinDestroyPointer(hptr : cardinal) : longbool; cdecl;
1910     function WinQueryPointer(hwndDesktop : cardinal) : cardinal; cdecl;
1911     function WinQueryPointerPos(hwndDesktop : cardinal;var ptl : TPointL) : longbool; cdecl;
1912     function WinQueryPointerPos(hwndDesktop : cardinal;pptl : PPointL) : longbool; cdecl;
1913     function WinCreatePointerIndirect(hwndDesktop : cardinal;var ptri : TPointerInfo) : cardinal; cdecl;
1914     function WinCreatePointerIndirect(hwndDesktop : cardinal;pptri : PPointerInfo) : cardinal; cdecl;
1915     function WinQueryPointerInfo(hptr : cardinal;var _PointerInfo : TPointerInfo) : longbool; cdecl;
1916     function WinQueryPointerInfo(hptr : cardinal;_pPointerInfo : PPointerInfo) : longbool; cdecl;
1917     function WinDrawPointer(hps : cardinal;x,y : longint;hptr,fs : cardinal) : longbool; cdecl;
1918     function WinGetSysBitmap(hwndDesktop,ibm : cardinal) : cardinal; cdecl;
1919     function WinSetHook(hab : cardinal;hmq : cardinal;iHook : longint;pfnHook : pointer;hmod : cardinal) : longbool; cdecl;
1920     function WinReleaseHook(hab,hmq : cardinal;iHook : longint;pfnHook : pointer;hmod : cardinal) : longbool; cdecl;
1921     function WinCallMsgFilter(hab : cardinal;var _qmsg : TQMsg;msgf : cardinal) : longbool; cdecl;
1922     function WinCallMsgFilter(hab : cardinal;_pqmsg : PQMsg;msgf : cardinal) : longbool; cdecl;
1923     function WinSetClassThunkProc(pszClassname : pchar;pfnThunkProc : pointer) : longbool; cdecl;
1924     function WinQueryClassThunkProc(pszClassname : pchar) : pointer; cdecl;
1925     function WinSetWindowThunkProc(hwnd : cardinal;pfnThunkProc : pointer) : longbool; cdecl;
1926     function WinQueryWindowThunkProc(hwnd : cardinal) : pointer; cdecl;
1927     function WinQueryWindowModel(hwnd : cardinal) : longint; cdecl;
1928     function WinQueryCp(hmq : cardinal) : cardinal; cdecl;
1929     function WinSetCp(hmq,idCodePage : cardinal) : longbool; cdecl;
1930     function WinQueryCpList(hab,ccpMax : cardinal;var prgcp : cardinal) : cardinal; cdecl;
1931     function WinQueryCpList(hab,ccpMax : cardinal;prgcp : PCardinal) : cardinal; cdecl;
1932     function WinCpTranslateString(hab,cpSrc : cardinal;pszSrc : pchar;cpDst,cchDestMax : cardinal;pchDest : pchar) : longbool; cdecl;
1933     function WinCpTranslateChar(hab,cpSrc : cardinal;chSrc : byte;cpDst : cardinal) : byte; cdecl;
1934     function WinUpper(hab,idcp,idcc : cardinal;psz : pchar) : cardinal; cdecl;
1935     function WinUpperChar(hab,idcp,idcc,c : cardinal) : cardinal; cdecl;
1936     function WinNextChar(hab,idcp,idcc : cardinal;psz : pchar) : pchar; cdecl;
1937     function WinPrevChar(hab,idcp,idcc : cardinal;pszStart,psz : pchar) : pchar; cdecl;
1938     function WinCompareStrings(hab,idcp,idcc : cardinal;psz1,psz2 : pchar;reserved : cardinal) : cardinal; cdecl;
1939     function WinCreateAtomTable(cbInitial,cBuckets : cardinal) : cardinal; cdecl;
1940     function WinDestroyAtomTable(hAtomTbl : cardinal) : cardinal; cdecl;
1941     function WinAddAtom(hAtomTbl : cardinal;pszAtomName : pchar) : cardinal; cdecl;
1942     function WinFindAtom(hAtomTbl : cardinal;pszAtomName : pchar) : cardinal; cdecl;
1943     function WinDeleteAtom(hAtomTbl,atom : cardinal) : cardinal; cdecl;
1944     function WinQueryAtomUsage(hAtomTbl,atom : cardinal) : cardinal; cdecl;
1945     function WinQueryAtomLength(hAtomTbl,atom : cardinal) : cardinal; cdecl;
1946     function WinQueryAtomName(hAtomTbl,atom : cardinal;pchBuffer : pchar;cchBufferMax : cardinal) : cardinal; cdecl;
1947     function WinGetLastError(hab : cardinal) : cardinal; cdecl;
1948     function WinGetErrorInfo(hab : cardinal) : PERRINFO; cdecl;
1949     function WinFreeErrorInfo(var perrinfo : ERRINFO) : longbool; cdecl;
1950     {DDE Functions}
1951     function WinDdeInitiate(hwndClient : cardinal;pszAppName,pszTopicName : pchar;var cctxt : TConvContext) : longbool; cdecl;
1952     function WinDdeInitiate(hwndClient : cardinal;pszAppName,pszTopicName : pchar;pcctxt : PConvContext) : longbool; cdecl;
1953     function WinDdeRespond(hwndClient,hwndServer : cardinal;pszAppName,pszTopicName : pchar;var cctxt : TConvContext) : pointer; cdecl;
1954     function WinDdeRespond(hwndClient,hwndServer : cardinal;pszAppName,pszTopicName : pchar;pcctxt : PConvContext) : pointer; cdecl;
1955     function WinDdePostMsg(hwndTo,hwndFrom,wm : cardinal;var ddest : TDDEStruct;flOptions : cardinal) : longbool; cdecl;
1956     function WinDdePostMsg(hwndTo,hwndFrom,wm : cardinal;pddest : PDDEStruct;flOptions : cardinal) : longbool; cdecl;
1957     {Library related functions}
1958     function WinDeleteProcedure(hab : cardinal;wndproc : proc) : longbool; cdecl;
1959     function WinDeleteLibrary(hab,libhandle : cardinal) : longbool; cdecl;
1960     function WinLoadProcedure(hab,libhandle : cardinal;procname : pchar) : proc; cdecl;
1961     function WinLoadLibrary(hab : cardinal;libname : pchar) : cardinal; cdecl;
1962     function WinSetDesktopBkgnd(hwndDesktop : cardinal;var dskNew : TDesktop) : cardinal; cdecl;
1963     function WinSetDesktopBkgnd(hwndDesktop : cardinal;pdskNew : PDesktop) : cardinal; cdecl;
1964     function WinQueryDesktopBkgnd(hwndDesktop : cardinal;var dsk : TDesktop) : longbool; cdecl;
1965     function WinQueryDesktopBkgnd(hwndDesktop : cardinal;pdsk : PDesktop) : longbool; cdecl;
1966     function WinRealizePalette(hwnd,hps : cardinal;var cclr : cardinal) : longint; cdecl;
1967     function WinRealizePalette(hwnd,hps : cardinal;pcclr : PCardinal) : longint; cdecl;
1968     function cardinalFROMMP(mp : pointer) : cardinal; cdecl;
1969     function integer1FROMMP(mp : pointer) : word; cdecl;
1970     function integer2FROMMP(mp : pointer) : word; cdecl;
1971
1972   implementation
1973
1974     function WinRegisterClass(hab : cardinal;pszClassName : pchar;pfnWndProc : proc;flStyle,cbWindowData : cardinal) : longbool; cdecl;external 'pmwin' index 926;
1975     function WinDefWindowProc(hwnd,msg : cardinal;mp1,mp2 : pointer) : pointer; cdecl;external 'pmwin' index 911;
1976     function WinDestroyWindow(hwnd : cardinal) : longbool; cdecl;external 'pmwin' index 728;
1977     function WinShowWindow(hwnd : cardinal;fShow : longbool) : longbool; cdecl;external 'pmwin' index 883;
1978     function WinQueryWindowRect(hwnd : cardinal;var rclDest : TRectl) : longbool; cdecl;external 'pmwin' index 840;
1979     function WinQueryWindowRect(hwnd : cardinal;prclDest : PRectl) : longbool; cdecl;external 'pmwin' index 840;
1980     function WinGetPS(hwnd : cardinal) : cardinal; cdecl;external 'pmwin' index 757;
1981     function WinReleasePS(hps : cardinal) : longbool; cdecl;external 'pmwin' index 848;
1982     function WinEndPaint(hps : cardinal) : longbool; cdecl;external 'pmwin' index 738;
1983     function WinGetClipPS(hwnd,hwndClip,fl : cardinal) : cardinal; cdecl;external 'pmwin' index 749;
1984     function WinIsWindowShowing(hwnd : cardinal) : longbool; cdecl;external 'pmwin' index 774;
1985     function WinBeginPaint(hwnd,hps : cardinal; var rclPaint : TRectl) : cardinal; cdecl;external 'pmwin' index 703;
1986     function WinBeginPaint(hwnd,hps : cardinal; prclPaint : PRectl) : cardinal; cdecl;external 'pmwin' index 703;
1987     function WinOpenWindowDC(hwnd : cardinal) : cardinal; cdecl;external 'pmwin' index 794;
1988     function WinScrollWindow(hwnd : cardinal;dx,dy : longint;var rclScroll,rclClip : TRectl;hrgnUpdate : cardinal;var rclUpdate : TRectl;rgfsw : cardinal) : longint; cdecl;external 'pmwin' index 849;
1989     function WinScrollWindow(hwnd : cardinal;dx,dy : longint;prclScroll,prclClip : PRectl;hrgnUpdate : cardinal;prclUpdate : PRectl;rgfsw : cardinal) : longint; cdecl;external 'pmwin' index 849;
1990     function WinFillRect(hps : cardinal;var rcl : TRectl;lColor : longint) : longbool; cdecl;external 'pmwin' index 743;
1991     function WinFillRect(hps : cardinal;prcl : PRectl;lColor : longint) : longbool; cdecl;external 'pmwin' index 743;
1992     function WinQueryVersion(hab : cardinal) : cardinal; cdecl;external 'pmwin' index 833;
1993     function WinInitialize(flOptions : cardinal) : cardinal; cdecl;external 'pmwin' index 763;
1994     function WinTerminate(hab : cardinal) : longbool; cdecl;external 'pmwin' index 888;
1995     function WinQueryAnchorBlock(hwnd : cardinal) : cardinal; cdecl;external 'pmwin' index 800;
1996     function WinCreateWindow(hwndParent : cardinal;pszClass,pszName : pchar;flStyle : cardinal;x,y,cx,cy : longint;hwndOwner,hwndInsertBehind,id : cardinal;var pCtlData,PresParams : pointer) : cardinal; cdecl;external 'pmwin' index 909;
1997     function WinEnableWindow(hwnd : cardinal;fEnable : longbool) : longbool; cdecl;external 'pmwin' index 735;
1998     function WinIsWindowEnabled(hwnd : cardinal) : longbool; cdecl;external 'pmwin' index 773;
1999     function WinEnableWindowUpdate(hwnd : cardinal;fEnable : longbool) : longbool; cdecl;external 'pmwin' index 736;
2000     function WinIsWindowVisible(hwnd : cardinal) : longbool; cdecl;external 'pmwin' index 775;
2001     function WinQueryWindowText(hwnd : cardinal;cchBufferMax : longint; pchBuffer : pchar) : longint; cdecl;external 'pmwin' index 841;
2002     function WinSetWindowText(hwnd : cardinal;pszText : pchar) : longbool; cdecl;external 'pmwin' index 877;
2003     function WinQueryWindowTextLength(hwnd : cardinal) : longint; cdecl;external 'pmwin' index 842;
2004     function WinWindowFromID(hwndParent,id : cardinal) : cardinal; cdecl;external 'pmwin' index 899;
2005     function WinIsWindow(hab,hwnd : cardinal) : longbool; cdecl;external 'pmwin' index 772;
2006     function WinQueryWindow(hwnd : cardinal;cmd : longint) : cardinal; cdecl;external 'pmwin' index 834;
2007     function WinMultWindowFromIDs(hwndParent : cardinal;var prghwnd : cardinal;idFirst,idLast : cardinal) : longint; cdecl;external 'pmwin' index 917;
2008     function WinMultWindowFromIDs(hwndParent : cardinal;prghwnd : PCardinal;idFirst,idLast : cardinal) : longint; cdecl;external 'pmwin' index 917;
2009     function WinSetParent(hwnd,hwndNewParent : cardinal;fRedraw : longbool) : longbool; cdecl;external 'pmwin' index 865;
2010     function WinIsChild(hwnd,hwndParent : cardinal) : longbool; cdecl;external 'pmwin' index 768;
2011     function WinSetOwner(hwnd,hwndNewOwner : cardinal) : longbool; cdecl;external 'pmwin' index 864;
2012     function WinQueryWindowProcess(hwnd : cardinal;var _pid,_tid : cardinal) : longbool; cdecl;external 'pmwin' index 838;
2013     function WinQueryWindowProcess(hwnd : cardinal;_ppid,_ptid : PCardinal) : longbool; cdecl;external 'pmwin' index 838;
2014     function WinQueryObjectWindow(hwndDesktop : cardinal) : cardinal; cdecl;external 'pmwin' index 820;
2015     function WinQueryDesktopWindow(hab,hdc : cardinal) : cardinal; cdecl;external 'pmwin' index 813;
2016     function WinSetWindowPos(hwnd,hwndInsertBehind : cardinal;x,y,cx,cy : longint;fl : cardinal) : longbool; cdecl;external 'pmwin' index 875;
2017     function WinSetMultWindowPos(hab : cardinal;var _swp : TSWP;cswp : cardinal) : longbool; cdecl;external 'pmwin' index 863;
2018     function WinSetMultWindowPos(hab : cardinal;_pswp : PSWP;cswp : cardinal) : longbool; cdecl;external 'pmwin' index 863;
2019     function WinQueryWindowPos(hwnd : cardinal;var _swp : TSWP) : longbool; cdecl;external 'pmwin' index 837;
2020     function WinQueryWindowPos(hwnd : cardinal;_pswp : PSWP) : longbool; cdecl;external 'pmwin' index 837;
2021     function WinUpdateWindow(hwnd : cardinal) : longbool; cdecl;external 'pmwin' index 892;
2022     function WinInvalidateRect(hwnd : cardinal;var wrc : TRectl;fIncludeChildren : longbool) : longbool; cdecl;external 'pmwin' index 765;
2023     function WinInvalidateRect(hwnd : cardinal;pwrc : PRectl;fIncludeChildren : longbool) : longbool; cdecl;external 'pmwin' index 765;
2024     function WinInvalidateRegion(hwnd,hrgn : cardinal;fIncludeChildren : longbool) : longbool; cdecl;external 'pmwin' index 766;
2025     function WinInvertRect(hps : cardinal;var rcl : TRectl) : longbool; cdecl;external 'pmwin' index 767;
2026     function WinInvertRect(hps : cardinal;prcl : PRectl) : longbool; cdecl;external 'pmwin' index 767;
2027     function WinDrawBitmap(hpsDst,hbm : cardinal;var wrcSrc : TRectl;var ptlDst : TPointL;clrFore,clrBack : longint;fl : cardinal) : longbool; cdecl;external 'pmwin' index 730;
2028     function WinDrawBitmap(hpsDst,hbm : cardinal;pwrcSrc : PRectl;pptlDst : PPointL;clrFore,clrBack : longint;fl : cardinal) : longbool; cdecl;external 'pmwin' index 730;
2029     function WinDrawText(hps : cardinal;cchText : longint;lpchText : pchar;var rcl : TRectl;clrFore,clrBack : longint;flCmd : cardinal) : longint; cdecl;external 'pmwin' index 913;
2030     function WinDrawText(hps : cardinal;cchText : longint;lpchText : pchar;prcl : PRectl;clrFore,clrBack : longint;flCmd : cardinal) : longint; cdecl;external 'pmwin' index 913;
2031     function WinDrawBorder(hps : cardinal;var rcl : TRectl;cx,cy,clrFore,clrBack : longint;flCmd : cardinal) : longbool; cdecl;external 'pmwin' index 731;
2032     function WinDrawBorder(hps : cardinal;prcl : PRectl;cx,cy,clrFore,clrBack : longint;flCmd : cardinal) : longbool; cdecl;external 'pmwin' index 731;
2033     function WinLoadString(hab,hmod,id : cardinal;cchMax : longint;pchBuffer : pchar) : longint; cdecl;external 'pmwin' index 781;
2034     function WinLoadMessage(hab,hmod,id : cardinal;cchMax : longint;pchBuffer : pchar) : longint; cdecl;external 'pmwin' index 779;
2035     function WinSetActiveWindow(hwndDesktop,hwnd : cardinal) : longbool; cdecl;external 'pmwin' index 851;
2036     function WinSubclassWindow(hwnd : cardinal;pfnwp : proc) : proc; cdecl;external 'pmwin' index 929;
2037     function WinQueryClassName(hwnd : cardinal;cchMax : longint; pch : pchar) : longint; cdecl;external 'pmwin' index 805;
2038     function WinQueryClassInfo(hab : cardinal;pszClassName : pchar;var _ClassInfo : TClassInfo) : longbool; cdecl;external 'pmwin' index 925;
2039     function WinQueryClassInfo(hab : cardinal;pszClassName : pchar;_pClassInfo : PClassInfo) : longbool; cdecl;external 'pmwin' index 925;
2040     function WinQueryActiveWindow(hwndDesktop : cardinal) : cardinal; cdecl;external 'pmwin' index 799;
2041     function WinIsThreadActive(hab : cardinal) : longbool; cdecl;external 'pmwin' index 771;
2042     function WinQuerySysModalWindow(hwndDesktop : cardinal) : cardinal; cdecl;external 'pmwin' index 827;
2043     function WinSetSysModalWindow(hwndDesktop,hwnd : cardinal) : longbool; cdecl;external 'pmwin' index 872;
2044     function WinQueryWindowUShort(hwnd : cardinal;index : longint) : word; cdecl;external 'pmwin' index 844;
2045     function WinSetWindowUShort(hwnd : cardinal;index : longint;us : word) : longbool; cdecl;external 'pmwin' index 879;
2046     function WinQueryWindowULong(hwnd : cardinal;index : longint) : cardinal; cdecl;external 'pmwin' index 843;
2047     function WinSetWindowULong(hwnd : cardinal;index : longint;ul : cardinal) : longbool; cdecl;external 'pmwin' index 878;
2048     function WinQueryWindowPtr(hwnd : cardinal;index : longint) : pointer; cdecl;external 'pmwin' index 839;
2049     function WinSetWindowPtr(hwnd : cardinal;index : longint;p : pointer) : longbool; cdecl;external 'pmwin' index 876;
2050     function WinSetWindowBits(hwnd : cardinal;index : longint;flData,flMask : cardinal) : longbool; cdecl;external 'pmwin' index 874;
2051     function WinBeginEnumWindows(hwnd : cardinal) : cardinal; cdecl;external 'pmwin' index 702;
2052     function WinGetNextWindow(henum : cardinal) : cardinal; cdecl;external 'pmwin' index 756;
2053     function WinEndEnumWindows(henum : cardinal) : longbool; cdecl;external 'pmwin' index 737;
2054     function WinWindowFromPoint(hwnd : cardinal;var ptl : TPointL;fChildren : longbool) : cardinal; cdecl;external 'pmwin' index 900;
2055     function WinWindowFromPoint(hwnd : cardinal;pptl : PPointL;fChildren : longbool) : cardinal; cdecl;external 'pmwin' index 900;
2056     function WinMapWindowPoints(hwndFrom,hwndTo : cardinal;var prgptl : TPointL;cwpt : longint) : longbool; cdecl;external 'pmwin' index 788;
2057     function WinMapWindowPoints(hwndFrom,hwndTo : cardinal;prgptl : PPointL;cwpt : longint) : longbool; cdecl;external 'pmwin' index 788;
2058     function WinValidateRect(hwnd : cardinal;var rcl : TRectl;fIncludeChildren : longbool) : longbool; cdecl;external 'pmwin' index 895;
2059     function WinValidateRect(hwnd : cardinal;prcl : PRectl;fIncludeChildren : longbool) : longbool; cdecl;external 'pmwin' index 895;
2060     function WinValidateRegion(hwnd,hrgn : cardinal;fIncludeChildren : longbool) : longbool; cdecl;external 'pmwin' index 896;
2061     function WinWindowFromDC(hdc : cardinal) : cardinal; cdecl;external 'pmwin' index 898;
2062     function WinQueryWindowDC(hwnd : cardinal) : cardinal; cdecl;external 'pmwin' index 835;
2063     function WinGetScreenPS(hwndDesktop : cardinal) : cardinal; cdecl;external 'pmwin' index 759;
2064     function WinLockWindowUpdate(hwndDesktop,hwndLockUpdate : cardinal) : longbool; cdecl;external 'pmwin' index 784;
2065     function WinLockVisRegions(hwndDesktop : cardinal;fLock : longbool) : longbool; cdecl;external 'pmwin' index 782;
2066     function WinQueryUpdateRect(hwnd : cardinal;var rcl : TRectl) : longbool; cdecl;external 'pmwin' index 831;
2067     function WinQueryUpdateRect(hwnd : cardinal;prcl : PRectl) : longbool; cdecl;external 'pmwin' index 831;
2068     function WinQueryUpdateRegion(hwnd,hrgn : cardinal) : longint; cdecl;external 'pmwin' index 832;
2069     function WinExcludeUpdateRegion(hps,hwnd : cardinal) : longint; cdecl;external 'pmwin' index 742;
2070     function WinSendMsg(hwnd,msg : cardinal;mp1,mp2 : pointer) : pointer; cdecl;external 'pmwin' index 920;
2071     function WinCreateMsgQueue(hab : cardinal;cmsg : longint) : cardinal; cdecl;external 'pmwin' index 716;
2072     function WinDestroyMsgQueue(hmq : cardinal) : longbool; cdecl;external 'pmwin' index 726;
2073     function WinQueryQueueInfo(hmq : cardinal;var mqi : TMQInfo;cbCopy : cardinal) : longbool; cdecl;external 'pmwin' index 824;
2074     function WinQueryQueueInfo(hmq : cardinal;pmqi : PMQInfo;cbCopy : cardinal) : longbool; cdecl;external 'pmwin' index 824;
2075     function WinCancelShutdown(hmq : cardinal;fCancelAlways : longbool) : longbool; cdecl;external 'pmwin' index 705;
2076     function WinGetMsg(hab : cardinal;var _qmsg : TQMsg;hwndFilter,msgFilterFirst,msgFilterLast : cardinal) : longbool; cdecl;external 'pmwin' index 915;
2077     function WinGetMsg(hab : cardinal;_pqmsg : PQMsg;hwndFilter,msgFilterFirst,msgFilterLast : cardinal) : longbool; cdecl;external 'pmwin' index 915;
2078     function WinPeekMsg(hab : cardinal;var _qmsg : TQMsg;hwndFilter,msgFilterFirst,msgFilterLast,fl : cardinal) : longbool; cdecl;external 'pmwin' index 918;
2079     function WinPeekMsg(hab : cardinal;_pqmsg : PQMsg;hwndFilter,msgFilterFirst,msgFilterLast,fl : cardinal) : longbool; cdecl;external 'pmwin' index 918;
2080     function WinDispatchMsg(hab : cardinal;var _qmsg : TQMsg) : pointer; cdecl;external 'pmwin' index 912;
2081     function WinDispatchMsg(hab : cardinal;_pqmsg : PQMsg) : pointer; cdecl;external 'pmwin' index 912;
2082     function WinPostMsg(hwnd,msg : cardinal;mp1,mp2 : pointer) : longbool; cdecl;external 'pmwin' index 919;
2083     function WinRegisterUserMsg(hab,msgid : cardinal;datatype1,dir1,datatype2,dir2,datatyper : longint) : longbool; cdecl;external 'pmwin' index 846;
2084     function WinRegisterUserDatatype(hab : cardinal;datatype,count : longint;var types : longint) : longbool; cdecl;external 'pmwin' index 845;
2085     function WinSetMsgMode(hab : cardinal;classname :pchar;control : longint) : longbool; cdecl;external 'pmwin' index 862;
2086     function WinSetSynchroMode(hab : cardinal;mode : longint) : longbool; cdecl;external 'pmwin' index 870;
2087     function WinInSendMsg(hab : cardinal) : longbool; cdecl;external 'pmwin' index 761;
2088     function WinBroadcastMsg(hwnd,msg : cardinal;mp1,mp2 : pointer;rgf : cardinal) : longbool; cdecl;external 'pmwin' index 901;
2089     function WinWaitMsg(hab,msgFirst,msgLast : cardinal) : longbool; cdecl;external 'pmwin' index 897;
2090     function WinQueryQueueStatus(hwndDesktop : cardinal) : cardinal; cdecl;external 'pmwin' index 825;
2091     function WinQueryMsgPos(hab : cardinal;var ptl : TPointL) : longbool; cdecl;external 'pmwin' index 818;
2092     function WinQueryMsgPos(hab : cardinal;pptl : PPointL) : longbool; cdecl;external 'pmwin' index 818;
2093     function WinQueryMsgTime(hab : cardinal) : cardinal; cdecl;external 'pmwin' index 819;
2094     function WinWaitEventSem(hev,ulTimeout : cardinal) : cardinal; cdecl;external 'pmwin' index 978;
2095     function WinRequestMutexSem(hmtx,ulTimeout : cardinal) : cardinal; cdecl;external 'pmwin' index 979;
2096     function WinWaitMuxWaitSem(hmux,ulTimeout : cardinal;var ulUser : cardinal) : cardinal; cdecl;external 'pmwin' index 980;
2097     function WinWaitMuxWaitSem(hmux,ulTimeout : cardinal;pulUser : PCardinal) : cardinal; cdecl;external 'pmwin' index 980;
2098     function WinPostQueueMsg(hmq,msg : cardinal;mp1,mp2 : pointer) : longbool; cdecl;external 'pmwin' index 902;
2099     function WinSetMsgInterest(hwnd,msg_class : cardinal;control : longint) : longbool; cdecl;external 'pmwin' index 861;
2100     function WinSetClassMsgInterest(hab : cardinal;pszClassName : pchar;msg_class : cardinal;control : longint) : longbool; cdecl;external 'pmwin' index 853;
2101     function WinSetFocus(hwndDesktop,hwndSetFocus : cardinal) : longbool; cdecl;external 'pmwin' index 860;
2102     function WinFocusChange(hwndDesktop,hwndSetFocus,flFocusChange : cardinal) : longbool; cdecl;external 'pmwin' index 746;
2103     function WinSetCapture(hwndDesktop,hwnd : cardinal) : longbool; cdecl;external 'pmwin' index 852;
2104     function WinQueryCapture(hwndDesktop : cardinal) : cardinal; cdecl;external 'pmwin' index 804;
2105     function WinQueryFocus(hwndDesktop : cardinal) : cardinal; cdecl;external 'pmwin' index 817;
2106     function WinGetKeyState(hwndDesktop : cardinal;vkey : longint) : longint; cdecl;external 'pmwin' index 752;
2107     function WinGetPhysKeyState(hwndDesktop : cardinal;sc : longint) : longint; cdecl;external 'pmwin' index 758;
2108     function WinEnablePhysInput(hwndDesktop : cardinal;fEnable : longbool) : longbool; cdecl;external 'pmwin' index 734;
2109     function WinIsPhysInputEnabled(hwndDesktop : cardinal) : longbool; cdecl;external 'pmwin' index 769;
2110     function WinSetKeyboardStateTable(hwndDesktop : cardinal;var KeyStateTable;fSet : longbool) : longbool; cdecl;external 'pmwin' index 921;
2111     function WinSetKeyboardStateTable(hwndDesktop : cardinal;pKeyStateTable : pointer;fSet : longbool) : longbool; cdecl;external 'pmwin' index 921;
2112     function WinGetDlgMsg(hwndDlg : cardinal;var _qmsg : TQMsg) : longbool; cdecl;external 'pmwin' index 914;
2113     function WinGetDlgMsg(hwndDlg : cardinal;_pqmsg : PQMsg) : longbool; cdecl;external 'pmwin' index 914;
2114     function WinLoadDlg(hwndParent,hwndOwner : cardinal;pfnDlgProc : proc;hmod,idDlg : cardinal;pCreateParams : pointer) : cardinal; cdecl;external 'pmwin' index 924;
2115     function WinDlgBox(hwndParent,hwndOwner : cardinal;pfnDlgProc : proc;hmod,idDlg : cardinal;pCreateParams : pointer) : cardinal; cdecl;external 'pmwin' index 923;
2116     function WinDismissDlg(hwndDlg,usResult : cardinal) : longbool; cdecl;external 'pmwin' index 729;
2117     function WinQueryDlgItemShort(hwndDlg,idItem : cardinal;var _Result : integer;fSigned : longbool) : longbool; cdecl;external 'pmwin' index 814;
2118     function WinQueryDlgItemShort(hwndDlg,idItem : cardinal;pResult : PInteger;fSigned : longbool) : longbool; cdecl;external 'pmwin' index 814;
2119     function WinSetDlgItemShort(hwndDlg,idItem : cardinal;usValue : word;fSigned : longbool) : longbool; cdecl;external 'pmwin' index 858;
2120     function WinSetDlgItemText(hwndDlg,idItem : cardinal;pszText : pchar) : longbool; cdecl;external 'pmwin' index 859;
2121     function WinQueryDlgItemText(hwndDlg,idItem : cardinal;cchBufferMax : longint;pchBuffer : pchar) : cardinal; cdecl;external 'pmwin' index 815;
2122     function WinQueryDlgItemTextLength(hwndDlg,idItem : cardinal) : longint; cdecl;external 'pmwin' index 816;
2123     function WinDefDlgProc(hwndDlg,msg : cardinal;mp1,mp2 : pointer) : pointer; cdecl;external 'pmwin' index 910;
2124     function WinAlarm(hwndDesktop,rgfType : cardinal) : longbool; cdecl;external 'pmwin' index 701;
2125     function WinMessageBox(hwndParent,hwndOwner : cardinal;pszText,pszCaption : pchar;idWindow,flStyle : cardinal) : cardinal; cdecl;external 'pmwin' index 789;
2126     function WinProcessDlg(hwndDlg : cardinal) : cardinal; cdecl;external 'pmwin' index 796;
2127     function WinSendDlgItemMsg(hwndDlg,idItem,msg : cardinal;mp1,mp2 : pointer) : pointer; cdecl;external 'pmwin' index 903;
2128     function WinMapDlgPoints(hwndDlg : cardinal;var prgwptl : TPointL;cwpt : cardinal;fCalcWindowCoords : longbool) : longbool; cdecl;external 'pmwin' index 787;
2129     function WinMapDlgPoints(hwndDlg : cardinal;prgwptl : PPointL;cwpt : cardinal;fCalcWindowCoords : longbool) : longbool; cdecl;external 'pmwin' index 787;
2130     function WinEnumDlgItem(hwndDlg,hwnd,code : cardinal) : cardinal; cdecl;external 'pmwin' index 740;
2131     function WinSubstituteStrings(hwnd : cardinal;pszSrc : pchar;cchDstMax : longint;pszDst : pchar) : longint; cdecl;external 'pmwin' index 886;
2132     function WinCreateDlg(hwndParent,hwndOwner : cardinal;pfnDlgProc : proc;var dlgt : TDlgTemplate;pCreateParams : pointer) : cardinal; cdecl;external 'pmwin' index 922;
2133     function WinCreateDlg(hwndParent,hwndOwner : cardinal;pfnDlgProc : proc;pdlgt : PDlgTemplate;pCreateParams : pointer) : cardinal; cdecl;external 'pmwin' index 922;
2134     function WinLoadMenu(hwndFrame,hmod,idMenu : cardinal) : cardinal; cdecl;external 'pmwin' index 778;
2135     function WinCreateMenu(hwndParent : cardinal;lpmt : pointer) : cardinal; cdecl;external 'pmwin' index 907;
2136     function WinPopupMenu(hwndParent,hwndOwner,hwndMenu : cardinal;x,y,idItem : longint;fs : cardinal) : longbool; cdecl;external 'pmwin' index 937;
2137     function WinCreateStdWindow(hwndParent,flStyle : cardinal;var flCreateFlags : cardinal;pszClientClass,pszTitle : pchar;styleClient,hmod,idResources : cardinal;var hwndClient : cardinal) : cardinal; cdecl;external 'pmwin' index 908;
2138     function WinCreateStdWindow(hwndParent,flStyle : cardinal;pflCreateFlags : PCardinal;pszClientClass,pszTitle : pchar;styleClient,hmod,idResources : cardinal;phwndClient : PCardinal) : cardinal; cdecl;external 'pmwin' index 908;
2139     function WinFlashWindow(hwndFrame : cardinal;fFlash : longbool) : longbool; cdecl;external 'pmwin' index 745;
2140     function WinCreateFrameControls(hwndFrame : cardinal;var fcdata : TFrameCData;pszTitle : pchar) : longbool; cdecl;external 'pmwin' index 906;
2141     function WinCreateFrameControls(hwndFrame : cardinal;pfcdata : PFrameCData;pszTitle : pchar) : longbool; cdecl;external 'pmwin' index 906;
2142     function WinCalcFrameRect(hwndFrame : cardinal;var rcl : TRectl;fClient : longbool) : longbool; cdecl;external 'pmwin' index 704;
2143     function WinCalcFrameRect(hwndFrame : cardinal;prcl : PRectl;fClient : longbool) : longbool; cdecl;external 'pmwin' index 704;
2144     function WinGetMinPosition(hwnd : cardinal;var _swp : TSWP;var pptl : POINTL) : longbool; cdecl;external 'pmwin' index 755;
2145     function WinGetMinPosition(hwnd : cardinal;_pswp : PSWP;var pptl : POINTL) : longbool; cdecl;external 'pmwin' index 755;
2146     function WinGetMaxPosition(hwnd : cardinal;var _swp : TSWP) : longbool; cdecl;external 'pmwin' index 754;
2147     function WinGetMaxPosition(hwnd : cardinal;_pswp : PSWP) : longbool; cdecl;external 'pmwin' index 754;
2148     function WinSaveWindowPos(hsvwp : cardinal;var _swp : TSWP;cswp : cardinal) : longbool; cdecl;external 'pmwin' index 943;
2149     function WinSaveWindowPos(hsvwp : cardinal;_pswp : PSWP;cswp : cardinal) : longbool; cdecl;external 'pmwin' index 943;
2150     function WinCopyRect(hab : cardinal;var rclDst,rclSrc : TRectl) : longbool; cdecl;external 'pmwin' index 710;
2151     function WinCopyRect(hab : cardinal;prclDst,prclSrc : PRectl) : longbool; cdecl;external 'pmwin' index 710;
2152     function WinSetRect(hab : cardinal;var rcl : TRectl;xLeft,yBottom,xRight,yTop : longint) : longbool; cdecl;external 'pmwin' index 868;
2153     function WinSetRect(hab : cardinal;prcl : PRectl;xLeft,yBottom,xRight,yTop : longint) : longbool; cdecl;external 'pmwin' index 868;
2154     function WinIsRectEmpty(hab : cardinal;var rcl : TRectl) : longbool; cdecl;external 'pmwin' index 770;
2155     function WinIsRectEmpty(hab : cardinal;prcl : PRectl) : longbool; cdecl;external 'pmwin' index 770;
2156     function WinEqualRect(hab : cardinal;var rcl1,rcl2 : TRectl) : longbool; cdecl;external 'pmwin' index 741;
2157     function WinEqualRect(hab : cardinal;prcl1,prcl2 : PRectl) : longbool; cdecl;external 'pmwin' index 741;
2158     function WinSetRectEmpty(hab : cardinal;var rcl : TRectl) : longbool; cdecl;external 'pmwin' index 869;
2159     function WinSetRectEmpty(hab : cardinal;prcl : PRectl) : longbool; cdecl;external 'pmwin' index 869;
2160     function WinOffsetRect(hab : cardinal;var rcl : TRectl;cx,cy : longint) : longbool; cdecl;external 'pmwin' index 792;
2161     function WinOffsetRect(hab : cardinal;prcl : PRectl;cx,cy : longint) : longbool; cdecl;external 'pmwin' index 792;
2162     function WinInflateRect(hab : cardinal;var rcl : TRectl;cx,cy : longint) : longbool; cdecl;external 'pmwin' index 762;
2163     function WinInflateRect(hab : cardinal;prcl : PRectl;cx,cy : longint) : longbool; cdecl;external 'pmwin' index 762;
2164     function WinPtInRect(hab : cardinal;var rcl : TRectl;var ptl : TPointL) : longbool; cdecl;external 'pmwin' index 797;
2165     function WinPtInRect(hab : cardinal;prcl : PRectl;pptl : PPointL) : longbool; cdecl;external 'pmwin' index 797;
2166     function WinIntersectRect(hab : cardinal;var rclDst,rclSrc1,rclSrc2 : TRectl) : longbool; cdecl;external 'pmwin' index 764;
2167     function WinIntersectRect(hab : cardinal;prclDst,prclSrc1,prclSrc2 : PRectl) : longbool; cdecl;external 'pmwin' index 764;
2168     function WinUnionRect(hab : cardinal;var rclDst,rclSrc1,rclSrc2 : TRectl) : longbool; cdecl;external 'pmwin' index 891;
2169     function WinUnionRect(hab : cardinal;prclDst,prclSrc1,prclSrc2 : PRectl) : longbool; cdecl;external 'pmwin' index 891;
2170     function WinSubtractRect(hab : cardinal;var rclDst,rclSrc1,rclSrc2 : TRectl) : longbool; cdecl;external 'pmwin' index 887;
2171     function WinSubtractRect(hab : cardinal;prclDst,prclSrc1,prclSrc2 : PRectl) : longbool; cdecl;external 'pmwin' index 887;
2172     function WinMakeRect(hab : cardinal;var pwrc : TRectl) : longbool; cdecl;external 'pmwin' index 786;
2173     function WinMakeRect(hab : cardinal;pwrc : PRectl) : longbool; cdecl;external 'pmwin' index 786;
2174     function WinMakePoints(hab : cardinal;var wpt : TPointL;cwpt : cardinal) : longbool; cdecl;external 'pmwin' index 785;
2175     function WinMakePoints(hab : cardinal;pwpt : PPointL;cwpt : cardinal) : longbool; cdecl;external 'pmwin' index 785;
2176     function WinQuerySysValue(hwndDesktop : cardinal;iSysValue : longint) : longint; cdecl;external 'pmwin' index 829;
2177     function WinSetSysValue(hwndDesktop : cardinal;iSysValue,lValue : longint) : longbool; cdecl;external 'pmwin' index 873;
2178     function WinSetPresParam(hwnd,id,cbParam : cardinal;pbParam : pointer) : longbool; cdecl;external 'pmwin' index 938;
2179     function WinQueryPresParam(hwnd,id1,id2 : cardinal;var ulId : cardinal;cbBuf : cardinal;pbBuf : pointer;fs : cardinal) : cardinal; cdecl;external 'pmwin' index 939;
2180     function WinQueryPresParam(hwnd,id1,id2 : cardinal;pulId : PCardinal;cbBuf : cardinal;pbBuf : pointer;fs : cardinal) : cardinal; cdecl;external 'pmwin' index 939;
2181     function WinRemovePresParam(hwnd,id : cardinal) : longbool; cdecl;external 'pmwin' index 940;
2182     function WinQuerySysColor(hwndDesktop : cardinal;clr,lReserved : longint) : longint; cdecl;external 'pmwin' index 826;
2183     function WinSetSysColors(hwndDesktop,flOptions,flFormat : cardinal;clrFirst : longint;cclr : cardinal;var clr : longint) : longbool; cdecl;external 'pmwin' index 871;
2184     function WinSetSysColors(hwndDesktop,flOptions,flFormat : cardinal;clrFirst : longint;cclr : cardinal;pclr : PLongint) : longbool; cdecl;external 'pmwin' index 871;
2185     function WinStartTimer(hab,hwnd,idTimer,dtTimeout : cardinal) : cardinal; cdecl;external 'pmwin' index 884;
2186     function WinStopTimer(hab,hwnd,idTimer : cardinal) : longbool; cdecl;external 'pmwin' index 885;
2187     function WinGetCurrentTime(hab : cardinal) : cardinal; cdecl;external 'pmwin' index 750;
2188     function WinLoadAccelTable(hab,hmod,idAccelTable : cardinal) : cardinal; cdecl;external 'pmwin' index 776;
2189     function WinCopyAccelTable(haccel : cardinal;var _AccelTable : TAccelTable;cbCopyMax : cardinal) : cardinal; cdecl;external 'pmwin' index 709;
2190     function WinCopyAccelTable(haccel : cardinal;_pAccelTable : PAccelTable;cbCopyMax : cardinal) : cardinal; cdecl;external 'pmwin' index 709;
2191     function WinCreateAccelTable(hab : cardinal;var _AccelTable : TAccelTable) : cardinal; cdecl;external 'pmwin' index 713;
2192     function WinCreateAccelTable(hab : cardinal;_pAccelTable : PAccelTable) : cardinal; cdecl;external 'pmwin' index 713;
2193     function WinDestroyAccelTable(haccel : cardinal) : longbool; cdecl;external 'pmwin' index 723;
2194     function WinTranslateAccel(hab,hwnd,haccel : cardinal;var _qmsg : TQMsg) : longbool; cdecl;external 'pmwin' index 904;
2195     function WinTranslateAccel(hab,hwnd,haccel : cardinal;_pqmsg : PQMsg) : longbool; cdecl;external 'pmwin' index 904;
2196     function WinSetAccelTable(hab,haccel,hwndFrame : cardinal) : longbool; cdecl;external 'pmwin' index 850;
2197     function WinQueryAccelTable(hab,hwndFrame : cardinal) : cardinal; cdecl;external 'pmwin' index 798;
2198     function WinTrackRect(hwnd,hps : cardinal;var ti : TTrackInfo) : longbool; cdecl;external 'pmwin' index 890;
2199     function WinTrackRect(hwnd,hps : cardinal;pti : PTrackInfo) : longbool; cdecl;external 'pmwin' index 890;
2200     function WinShowTrackRect(hwnd : cardinal;fShow : longbool) : longbool; cdecl;external 'pmwin' index 882;
2201     function WinSetClipbrdOwner(hab,hwnd : cardinal) : longbool; cdecl;external 'pmwin' index 855;
2202     function WinSetClipbrdData(hab,ulData,fmt,rgfFmtInfo : cardinal) : longbool; cdecl;external 'pmwin' index 854;
2203     function WinQueryClipbrdData(hab,fmt : cardinal) : cardinal; cdecl;external 'pmwin' index 806;
2204     function WinQueryClipbrdFmtInfo(hab,fmt : cardinal;var prgfFmtInfo : cardinal) : longbool; cdecl;external 'pmwin' index 807;
2205     function WinQueryClipbrdFmtInfo(hab,fmt : cardinal;prgfFmtInfo : PCardinal) : longbool; cdecl;external 'pmwin' index 807;
2206     function WinSetClipbrdViewer(hab,hwndNewClipViewer : cardinal) : longbool; cdecl;external 'pmwin' index 856;
2207     function WinEnumClipbrdFmts(hab,fmt : cardinal) : cardinal; cdecl;external 'pmwin' index 739;
2208     function WinEmptyClipbrd(hab : cardinal) : longbool; cdecl;external 'pmwin' index 733;
2209     function WinOpenClipbrd(hab : cardinal) : longbool; cdecl;external 'pmwin' index 793;
2210     function WinCloseClipbrd(hab : cardinal) : longbool; cdecl;external 'pmwin' index 707;
2211     function WinQueryClipbrdOwner(hab : cardinal) : cardinal; cdecl;external 'pmwin' index 808;
2212     function WinQueryClipbrdViewer(hab : cardinal) : cardinal; cdecl;external 'pmwin' index 809;
2213     function WinDestroyCursor(hwnd : cardinal) : longbool; cdecl;external 'pmwin' index 725;
2214     function WinShowCursor(hwnd : cardinal;fShow : longbool) : longbool; cdecl;external 'pmwin' index 880;
2215     function WinCreateCursor(hwnd : cardinal;x,y,cx,cy : longint;fs : cardinal;var rclClip : TRectl) : longbool; cdecl;external 'pmwin' index 715;
2216     function WinCreateCursor(hwnd : cardinal;x,y,cx,cy : longint;fs : cardinal;prclClip : PRectl) : longbool; cdecl;external 'pmwin' index 715;
2217     function WinQueryCursorInfo(hwndDesktop : cardinal;var _CursorInfo : TCursorInfo) : longbool; cdecl;external 'pmwin' index 812;
2218     function WinQueryCursorInfo(hwndDesktop : cardinal;_pCursorInfo : PCursorInfo) : longbool; cdecl;external 'pmwin' index 812;
2219     function WinSetPointer(hwndDesktop,hptrNew : cardinal) : longbool; cdecl;external 'pmwin' index 866;
2220     function WinSetPointerOwner(hptr,pid : cardinal;fDestroy : longbool) : longbool; cdecl;external 'pmwin' index 971;
2221     function WinShowPointer(hwndDesktop : cardinal;fShow : longbool) : longbool; cdecl;external 'pmwin' index 881;
2222     function WinQuerySysPointer(hwndDesktop : cardinal;iptr : longint;fLoad : longbool) : cardinal; cdecl;external 'pmwin' index 828;
2223     function WinLoadPointer(hwndDesktop,hmod,idres : cardinal) : cardinal; cdecl;external 'pmwin' index 780;
2224     function WinCreatePointer(hwndDesktop,hbmPointer : cardinal;fPointer : longbool;xHotspot,yHotspot : longint) : cardinal; cdecl;external 'pmwin' index 717;
2225     function WinSetPointerPos(hwndDesktop : cardinal;x,y : longint) : longbool; cdecl;external 'pmwin' index 867;
2226     function WinDestroyPointer(hptr : cardinal) : longbool; cdecl;external 'pmwin' index 727;
2227     function WinQueryPointer(hwndDesktop : cardinal) : cardinal; cdecl;external 'pmwin' index 821;
2228     function WinQueryPointerPos(hwndDesktop : cardinal;var ptl : TPointL) : longbool; cdecl;external 'pmwin' index 823;
2229     function WinQueryPointerPos(hwndDesktop : cardinal;pptl : PPointL) : longbool; cdecl;external 'pmwin' index 823;
2230     function WinCreatePointerIndirect(hwndDesktop : cardinal;var ptri : TPointerInfo) : cardinal; cdecl;external 'pmwin' index 942;
2231     function WinCreatePointerIndirect(hwndDesktop : cardinal;pptri : PPointerInfo) : cardinal; cdecl;external 'pmwin' index 942;
2232     function WinQueryPointerInfo(hptr : cardinal;var _PointerInfo : TPointerInfo) : longbool; cdecl;external 'pmwin' index 822;
2233     function WinQueryPointerInfo(hptr : cardinal;_pPointerInfo : PPointerInfo) : longbool; cdecl;external 'pmwin' index 822;
2234     function WinDrawPointer(hps : cardinal;x,y : longint;hptr,fs : cardinal) : longbool; cdecl;external 'pmwin' index 732;
2235     function WinGetSysBitmap(hwndDesktop,ibm : cardinal) : cardinal; cdecl;external 'pmwin' index 760;
2236     function WinSetHook(hab,hmq : cardinal;iHook : longint;pfnHook : pointer;hmod : cardinal) : longbool; cdecl;external 'pmwin' index 928;
2237     function WinReleaseHook(hab,hmq : cardinal;iHook : longint;pfnHook : pointer;hmod : cardinal) : longbool; cdecl;external 'pmwin' index 927;
2238     function WinCallMsgFilter(hab : cardinal;var _qmsg : TQMsg;msgf : cardinal) : longbool; cdecl;external 'pmwin' index 905;
2239     function WinCallMsgFilter(hab : cardinal;_pqmsg : PQMsg;msgf : cardinal) : longbool; cdecl;external 'pmwin' index 905;
2240     function WinSetClassThunkProc(pszClassname : pchar;pfnThunkProc : pointer) : longbool; cdecl;external 'pmwin' index 959;
2241     function WinQueryClassThunkProc(pszClassname : pchar) : pointer; cdecl;external 'pmwin' index 960;
2242     function WinSetWindowThunkProc(hwnd : cardinal;pfnThunkProc : pointer) : longbool; cdecl;external 'pmwin' index 961;
2243     function WinQueryWindowThunkProc(hwnd : cardinal) : pointer; cdecl;external 'pmwin' index 962;
2244     function WinQueryWindowModel(hwnd : cardinal) : longint; cdecl;external 'pmwin' index 934;
2245     function WinQueryCp(hmq : cardinal) : cardinal; cdecl;external 'pmwin' index 810;
2246     function WinSetCp(hmq,idCodePage : cardinal) : longbool; cdecl;external 'pmwin' index 857;
2247     function WinQueryCpList(hab,ccpMax : cardinal;var prgcp : cardinal) : cardinal; cdecl;external 'pmwin' index 811;
2248     function WinQueryCpList(hab,ccpMax : cardinal;prgcp : PCardinal) : cardinal; cdecl;external 'pmwin' index 811;
2249     function WinCpTranslateString(hab,cpSrc : cardinal;pszSrc : pchar;cpDst,cchDestMax : cardinal;pchDest : pchar) : longbool; cdecl;external 'pmwin' index 712;
2250     function WinCpTranslateChar(hab,cpSrc : cardinal;chSrc : byte;cpDst : cardinal) : byte; cdecl;external 'pmwin' index 711;
2251     function WinUpper(hab,idcp,idcc : cardinal;psz : pchar) : cardinal; cdecl;external 'pmwin' index 893;
2252     function WinUpperChar(hab,idcp,idcc,c : cardinal) : cardinal; cdecl;external 'pmwin' index 894;
2253     function WinNextChar(hab,idcp,idcc : cardinal;psz : pchar) : pchar; cdecl;external 'pmwin' index 791;
2254     function WinPrevChar(hab,idcp,idcc : cardinal;pszStart,psz : pchar) : pchar; cdecl;external 'pmwin' index 795;
2255     function WinCompareStrings(hab,idcp,idcc : cardinal;psz1,psz2 : pchar;reserved : cardinal) : cardinal; cdecl;external 'pmwin' index 708;
2256     function WinCreateAtomTable(cbInitial,cBuckets : cardinal) : cardinal; cdecl;external 'pmwin' index 714;
2257     function WinDestroyAtomTable(hAtomTbl : cardinal) : cardinal; cdecl;external 'pmwin' index 724;
2258     function WinAddAtom(hAtomTbl : cardinal;pszAtomName : pchar) : cardinal; cdecl;external 'pmwin' index 700;
2259     function WinFindAtom(hAtomTbl : cardinal;pszAtomName : pchar) : cardinal; cdecl;external 'pmwin' index 744;
2260     function WinDeleteAtom(hAtomTbl,atom : cardinal) : cardinal; cdecl;external 'pmwin' index 721;
2261     function WinQueryAtomUsage(hAtomTbl,atom : cardinal) : cardinal; cdecl;external 'pmwin' index 803;
2262     function WinQueryAtomLength(hAtomTbl,atom : cardinal) : cardinal; cdecl;external 'pmwin' index 801;
2263     function WinQueryAtomName(hAtomTbl,atom : cardinal;pchBuffer : pchar;cchBufferMax : cardinal) : cardinal; cdecl;external 'pmwin' index 802;
2264     function WinGetLastError(hab : cardinal) : cardinal; cdecl;external 'pmwin' index 753;
2265     function WinGetErrorInfo(hab : cardinal) : PERRINFO; cdecl;external 'pmwin' index 751;
2266     function WinFreeErrorInfo(var perrinfo : ERRINFO) : longbool; cdecl;external 'pmwin' index 748;
2267     function WinDdeInitiate(hwndClient : cardinal;pszAppName,pszTopicName : pchar;var cctxt : TConvContext) : longbool; cdecl;external 'pmwin' index 718;
2268     function WinDdeInitiate(hwndClient : cardinal;pszAppName,pszTopicName : pchar;cctxt : PConvContext) : longbool; cdecl;external 'pmwin' index 718;
2269     function WinDdeRespond(hwndClient,hwndServer : cardinal;pszAppName,pszTopicName : pchar;var cctxt : TConvContext) : pointer; cdecl;external 'pmwin' index 720;
2270     function WinDdeRespond(hwndClient,hwndServer : cardinal;pszAppName,pszTopicName : pchar;pcctxt : PConvContext) : pointer; cdecl;external 'pmwin' index 720;
2271     function WinDdePostMsg(hwndTo,hwndFrom,wm : cardinal;var ddest : DDEStruct;flOptions : cardinal) : longbool; cdecl;external 'pmwin' index 719;
2272     function WinDdePostMsg(hwndTo,hwndFrom,wm : cardinal;pddest : PDDEStruct;flOptions : cardinal) : longbool; cdecl;external 'pmwin' index 719;
2273     function WinDeleteProcedure(hab : cardinal;wndproc : proc) : longbool; cdecl;external 'pmwin' index 987;
2274     function WinDeleteLibrary(hab,libhandle : cardinal) : longbool; cdecl;external 'pmwin' index 722;
2275     function WinLoadProcedure(hab,libhandle : cardinal;procname : pchar) : proc; cdecl;external 'pmwin' index 986;
2276     function WinLoadLibrary(hab : cardinal;libname : pchar) : cardinal; cdecl;external 'pmwin' index 777;
2277     function WinSetDesktopBkgnd(hwndDesktop : cardinal;var dskNew : TDesktop) : cardinal; cdecl;external 'pmwin' index 935;
2278     function WinSetDesktopBkgnd(hwndDesktop : cardinal;pdskNew : PDesktop) : cardinal; cdecl;external 'pmwin' index 935;
2279     function WinQueryDesktopBkgnd(hwndDesktop : cardinal;var dsk : TDesktop) : longbool; cdecl;external 'pmwin' index 936;
2280     function WinQueryDesktopBkgnd(hwndDesktop : cardinal;pdsk : PDesktop) : longbool; cdecl;external 'pmwin' index 936;
2281     function WinRealizePalette(hwnd,hps : cardinal;var cclr : cardinal) : longint; cdecl;external 'pmwin' index 941;
2282     function WinRealizePalette(hwnd,hps : cardinal;pcclr : PCardinal) : longint; cdecl;external 'pmwin' index 941;
2283     function CardinalFromMP(MP: pointer) : cardinal;cdecl;
2284       begin
2285        CardinalFromMP:=cardinal(MP);
2286       end;
2287     function Integer1FromMP(mp : pointer) : word;cdecl;
2288       begin
2289        {Integer1FromMP:=lo(cardinal(mp));             RBP}
2290       end;
2291     function integer2FromMP(mp : pointer) : word;cdecl;
2292       begin
2293        {Integer2FromMP:=hi(cardinal(mp))              RBP}
2294       end;
2295
2296 { PM error constants }
2297 const
2298        PMERR_INVALID_HWND = $1001;
2299        PMERR_INVALID_HMQ = $1002;
2300        PMERR_PARAMETER_OUT_OF_RANGE = $1003;
2301        PMERR_WINDOW_LOCK_UNDERFLOW = $1004;
2302        PMERR_WINDOW_LOCK_OVERFLOW = $1005;
2303        PMERR_BAD_WINDOW_LOCK_COUNT = $1006;
2304        PMERR_WINDOW_NOT_LOCKED = $1007;
2305        PMERR_INVALID_SELECTOR = $1008;
2306        PMERR_CALL_FROM_WRONG_THREAD = $1009;
2307        PMERR_RESOURCE_NOT_FOUND = $100A;
2308        PMERR_INVALID_STRING_PARM = $100B;
2309        PMERR_INVALID_HHEAP = $100C;
2310        PMERR_INVALID_HEAP_POINTER = $100D;
2311        PMERR_INVALID_HEAP_SIZE_PARM = $100E;
2312        PMERR_INVALID_HEAP_SIZE = $100F;
2313        PMERR_INVALID_HEAP_SIZE_WORD = $1010;
2314        PMERR_HEAP_OUT_OF_MEMORY = $1011;
2315        PMERR_HEAP_MAX_SIZE_REACHED = $1012;
2316        PMERR_INVALID_HATOMTBL = $1013;
2317        PMERR_INVALID_ATOM = $1014;
2318        PMERR_INVALID_ATOM_NAME = $1015;
2319        PMERR_INVALID_INTEGER_ATOM = $1016;
2320        PMERR_ATOM_NAME_NOT_FOUND = $1017;
2321        PMERR_QUEUE_TOO_LARGE = $1018;
2322        PMERR_INVALID_FLAG = $1019;
2323        PMERR_INVALID_HACCEL = $101A;
2324        PMERR_INVALID_HPTR = $101B;
2325        PMERR_INVALID_HENUM = $101C;
2326        PMERR_INVALID_SRC_CODEPAGE = $101D;
2327        PMERR_INVALID_DST_CODEPAGE = $101E;
2328        PMERR_UNKNOWN_COMPONENT_ID = $101f;
2329        PMERR_UNKNOWN_ERROR_CODE = $1020;
2330        PMERR_SEVERITY_LEVELS = $1021;
2331        PMERR_INVALID_RESOURCE_FORMAT = $1034;
2332        PMERR_NO_MSG_QUEUE = $1036;
2333        PMERR_WIN_DEBUGMSG = $1037;
2334        PMERR_QUEUE_FULL = $1038;
2335        PMERR_LIBRARY_LOAD_FAILED = $1039;
2336        PMERR_PROCEDURE_LOAD_FAILED = $103A;
2337        PMERR_LIBRARY_DELETE_FAILED = $103B;
2338        PMERR_PROCEDURE_DELETE_FAILED = $103C;
2339        PMERR_ARRAY_TOO_LARGE = $103D;
2340        PMERR_ARRAY_TOO_SMALL = $103E;
2341        PMERR_DATATYPE_ENTRY_BAD_INDEX = $103F;
2342        PMERR_DATATYPE_ENTRY_CTL_BAD = $1040;
2343        PMERR_DATATYPE_ENTRY_CTL_MISS = $1041;
2344        PMERR_DATATYPE_ENTRY_INVALID = $1042;
2345        PMERR_DATATYPE_ENTRY_NOT_NUM = $1043;
2346        PMERR_DATATYPE_ENTRY_NOT_OFF = $1044;
2347        PMERR_DATATYPE_INVALID = $1045;
2348        PMERR_DATATYPE_NOT_UNIQUE = $1046;
2349        PMERR_DATATYPE_TOO_LONG = $1047;
2350        PMERR_DATATYPE_TOO_SMALL = $1048;
2351        PMERR_DIRECTION_INVALID = $1049;
2352        PMERR_INVALID_HAB = $104A;
2353        PMERR_INVALID_HSTRUCT = $104D;
2354        PMERR_LENGTH_TOO_SMALL = $104E;
2355        PMERR_MSGID_TOO_SMALL = $104F;
2356        PMERR_NO_HANDLE_ALLOC = $1050;
2357        PMERR_NOT_IN_A_PM_SESSION = $1051;
2358        PMERR_MSG_QUEUE_ALREADY_EXISTS = $1052;
2359        PMERR_OLD_RESOURCE = $1055;
2360        PMERR_INVALID_PIB = $1101;
2361        PMERR_INSUFF_SPACE_TO_ADD = $1102;
2362        PMERR_INVALID_GROUP_HANDLE = $1103;
2363        PMERR_DUPLICATE_TITLE = $1104;
2364        PMERR_INVALID_TITLE = $1105;
2365        PMERR_HANDLE_NOT_IN_GROUP = $1107;
2366        PMERR_INVALID_TARGET_HANDLE = $1106;
2367        PMERR_INVALID_PATH_STATEMENT = $1108;
2368        PMERR_NO_PROGRAM_FOUND = $1109;
2369        PMERR_INVALID_BUFFER_SIZE = $110A;
2370        PMERR_BUFFER_TOO_SMALL = $110B;
2371        PMERR_PL_INITIALISATION_FAIL = $110C;
2372        PMERR_CANT_DESTROY_SYS_GROUP = $110D;
2373        PMERR_INVALID_TYPE_CHANGE = $110E;
2374        PMERR_INVALID_PROGRAM_HANDLE = $110F;
2375        PMERR_NOT_CURRENT_PL_VERSION = $1110;
2376        PMERR_INVALID_CIRCULAR_REF = $1111;
2377        PMERR_MEMORY_ALLOCATION_ERR = $1112;
2378        PMERR_MEMORY_DEALLOCATION_ERR = $1113;
2379        PMERR_TASK_HEADER_TOO_BIG = $1114;
2380        PMERR_INVALID_INI_FILE_HANDLE = $1115;
2381        PMERR_MEMORY_SHARE = $1116;
2382        PMERR_OPEN_QUEUE = $1117;
2383        PMERR_CREATE_QUEUE = $1118;
2384        PMERR_WRITE_QUEUE = $1119;
2385        PMERR_READ_QUEUE = $111A;
2386        PMERR_CALL_NOT_EXECUTED = $111B;
2387        PMERR_UNKNOWN_APIPKT = $111C;
2388        PMERR_INITHREAD_EXISTS = $111D;
2389        PMERR_CREATE_THREAD = $111E;
2390        PMERR_NO_HK_PROFILE_INSTALLED = $111F;
2391        PMERR_INVALID_DIRECTORY = $1120;
2392        PMERR_WILDCARD_IN_FILENAME = $1121;
2393        PMERR_FILENAME_BUFFER_FULL = $1122;
2394        PMERR_FILENAME_TOO_LONG = $1123;
2395        PMERR_INI_FILE_IS_SYS_OR_USER = $1124;
2396        PMERR_BROADCAST_PLMSG = $1125;
2397        PMERR_190_INIT_DONE = $1126;
2398        PMERR_HMOD_FOR_PMSHAPI = $1127;
2399        PMERR_SET_HK_PROFILE = $1128;
2400        PMERR_API_NOT_ALLOWED = $1129;
2401        PMERR_INI_STILL_OPEN = $112A;
2402        PMERR_PROGDETAILS_NOT_IN_INI = $112B;
2403        PMERR_PIBSTRUCT_NOT_IN_INI = $112C;
2404        PMERR_INVALID_DISKPROGDETAILS = $112D;
2405        PMERR_PROGDETAILS_READ_FAILURE = $112E;
2406        PMERR_PROGDETAILS_WRITE_FAILURE = $112F;
2407        PMERR_PROGDETAILS_QSIZE_FAILURE = $1130;
2408        PMERR_INVALID_PROGDETAILS = $1131;
2409        PMERR_SHEPROFILEHOOK_NOT_FOUND = $1132;
2410        PMERR_190PLCONVERTED = $1133;
2411        PMERR_FAILED_TO_CONVERT_INI_PL = $1134;
2412        PMERR_PMSHAPI_NOT_INITIALISED = $1135;
2413        PMERR_INVALID_SHELL_API_HOOK_ID = $1136;
2414        PMERR_DOS_ERROR = $1200;
2415        PMERR_NO_SPACE = $1201;
2416        PMERR_INVALID_SWITCH_HANDLE = $1202;
2417        PMERR_NO_HANDLE = $1203;
2418        PMERR_INVALID_PROCESS_ID = $1204;
2419        PMERR_NOT_SHELL = $1205;
2420        PMERR_INVALID_WINDOW = $1206;
2421        PMERR_INVALID_POST_MSG = $1207;
2422        PMERR_INVALID_PARAMETERS = $1208;
2423        PMERR_INVALID_PROGRAM_TYPE = $1209;
2424        PMERR_NOT_EXTENDED_FOCUS = $120A;
2425        PMERR_INVALID_SESSION_ID = $120B;
2426        PMERR_SMG_INVALID_ICON_FILE = $120C;
2427        PMERR_SMG_ICON_NOT_CREATED = $120D;
2428        PMERR_SHL_DEBUG = $120E;
2429        PMERR_OPENING_INI_FILE = $1301;
2430        PMERR_INI_FILE_CORRUPT = $1302;
2431        PMERR_INVALID_PARM = $1303;
2432        PMERR_NOT_IN_IDX = $1304;
2433        PMERR_NO_ENTRIES_IN_GROUP = $1305;
2434        PMERR_INI_WRITE_FAIL = $1306;
2435        PMERR_IDX_FULL = $1307;
2436        PMERR_INI_PROTECTED = $1308;
2437        PMERR_MEMORY_ALLOC = $1309;
2438        PMERR_INI_INIT_ALREADY_DONE = $130A;
2439        PMERR_INVALID_INTEGER = $130B;
2440        PMERR_INVALID_ASCIIZ = $130C;
2441        PMERR_CAN_NOT_CALL_SPOOLER = $130D;
2442        PMERR_VALIDATION_REJECTED = PMERR_CAN_NOT_CALL_SPOOLER;
2443        PMERR_WARNING_WINDOW_NOT_KILLED = $1401;
2444        PMERR_ERROR_INVALID_WINDOW = $1402;
2445        PMERR_ALREADY_INITIALIZED = $1403;
2446        PMERR_MSG_PROG_NO_MOU = $1405;
2447        PMERR_MSG_PROG_NON_RECOV = $1406;
2448        PMERR_WINCONV_INVALID_PATH = $1407;
2449        PMERR_PI_NOT_INITIALISED = $1408;
2450        PMERR_PL_NOT_INITIALISED = $1409;
2451        PMERR_NO_TASK_MANAGER = $140A;
2452        PMERR_SAVE_NOT_IN_PROGRESS = $140B;
2453        PMERR_NO_STACK_SPACE = $140C;
2454        PMERR_INVALID_COLR_FIELD = $140d;
2455        PMERR_INVALID_COLR_VALUE = $140e;
2456        PMERR_COLR_WRITE = $140f;
2457        PMERR_TARGET_FILE_EXISTS = $1501;
2458        PMERR_SOURCE_SAME_AS_TARGET = $1502;
2459        PMERR_SOURCE_FILE_NOT_FOUND = $1503;
2460        PMERR_INVALID_NEW_PATH = $1504;
2461        PMERR_TARGET_FILE_NOT_FOUND = $1505;
2462        PMERR_INVALID_DRIVE_NUMBER = $1506;
2463        PMERR_NAME_TOO_LONG = $1507;
2464        PMERR_NOT_ENOUGH_ROOM_ON_DISK = $1508;
2465        PMERR_NOT_ENOUGH_MEM = $1509;
2466        PMERR_LOG_DRV_DOES_NOT_EXIST = $150B;
2467        PMERR_INVALID_DRIVE = $150C;
2468        PMERR_ACCESS_DENIED = $150D;
2469        PMERR_NO_FIRST_SLASH = $150E;
2470        PMERR_READ_ONLY_FILE = $150F;
2471        PMERR_GROUP_PROTECTED = $151F;
2472        PMERR_INVALID_PROGRAM_CATEGORY = $152F;
2473        PMERR_INVALID_APPL = $1530;
2474        PMERR_CANNOT_START = $1531;
2475        PMERR_STARTED_IN_BACKGROUND = $1532;
2476        PMERR_INVALID_HAPP = $1533;
2477        PMERR_CANNOT_STOP = $1534;
2478        PMERR_INTERNAL_ERROR_1 = $1601;
2479        PMERR_INTERNAL_ERROR_2 = $1602;
2480        PMERR_INTERNAL_ERROR_3 = $1603;
2481        PMERR_INTERNAL_ERROR_4 = $1604;
2482        PMERR_INTERNAL_ERROR_5 = $1605;
2483        PMERR_INTERNAL_ERROR_6 = $1606;
2484        PMERR_INTERNAL_ERROR_7 = $1607;
2485        PMERR_INTERNAL_ERROR_8 = $1608;
2486        PMERR_INTERNAL_ERROR_9 = $1609;
2487        PMERR_INTERNAL_ERROR_10 = $160A;
2488        PMERR_INTERNAL_ERROR_11 = $160B;
2489        PMERR_INTERNAL_ERROR_12 = $160C;
2490        PMERR_INTERNAL_ERROR_13 = $160D;
2491        PMERR_INTERNAL_ERROR_14 = $160E;
2492        PMERR_INTERNAL_ERROR_15 = $160F;
2493        PMERR_INTERNAL_ERROR_16 = $1610;
2494        PMERR_INTERNAL_ERROR_17 = $1611;
2495        PMERR_INTERNAL_ERROR_18 = $1612;
2496        PMERR_INTERNAL_ERROR_19 = $1613;
2497        PMERR_INTERNAL_ERROR_20 = $1614;
2498        PMERR_INTERNAL_ERROR_21 = $1615;
2499        PMERR_INTERNAL_ERROR_22 = $1616;
2500        PMERR_INTERNAL_ERROR_23 = $1617;
2501        PMERR_INTERNAL_ERROR_24 = $1618;
2502        PMERR_INTERNAL_ERROR_25 = $1619;
2503        PMERR_INTERNAL_ERROR_26 = $161A;
2504        PMERR_INTERNAL_ERROR_27 = $161B;
2505        PMERR_INTERNAL_ERROR_28 = $161C;
2506        PMERR_INTERNAL_ERROR_29 = $161D;
2507        PMERR_INVALID_FREE_MESSAGE_ID = $1630;
2508        PMERR_FUNCTION_NOT_SUPPORTED = $1641;
2509        PMERR_INVALID_ARRAY_COUNT = $1642;
2510        PMERR_INVALID_LENGTH = $1643;
2511        PMERR_INVALID_BUNDLE_TYPE = $1644;
2512        PMERR_INVALID_PARAMETER = $1645;
2513        PMERR_INVALID_NUMBER_OF_PARMS = $1646;
2514        PMERR_GREATER_THAN_64K = $1647;
2515        PMERR_INVALID_PARAMETER_TYPE = $1648;
2516        PMERR_NEGATIVE_STRCOND_DIM = $1649;
2517        PMERR_INVALID_NUMBER_OF_TYPES = $164A;
2518        PMERR_INCORRECT_HSTRUCT = $164B;
2519        PMERR_INVALID_ARRAY_SIZE = $164C;
2520        PMERR_INVALID_CONTROL_DATATYPE = $164D;
2521        PMERR_INCOMPLETE_CONTROL_SEQU = $164E;
2522        PMERR_INVALID_DATATYPE = $164F;
2523        PMERR_INCORRECT_DATATYPE = $1650;
2524        PMERR_NOT_SELF_DESCRIBING_DTYP = $1651;
2525        PMERR_INVALID_CTRL_SEQ_INDEX = $1652;
2526        PMERR_INVALID_TYPE_FOR_LENGTH = $1653;
2527        PMERR_INVALID_TYPE_FOR_OFFSET = $1654;
2528        PMERR_INVALID_TYPE_FOR_MPARAM = $1655;
2529        PMERR_INVALID_MESSAGE_ID = $1656;
2530        PMERR_C_LENGTH_TOO_SMALL = $1657;
2531        PMERR_APPL_STRUCTURE_TOO_SMALL = $1658;
2532        PMERR_INVALID_ERRORINFO_HANDLE = $1659;
2533        PMERR_INVALID_CHARACTER_INDEX = $165A;
2534        WPERR_PROTECTED_CLASS = $1700;
2535        WPERR_INVALID_CLASS = $1701;
2536        WPERR_INVALID_SUPERCLASS = $1702;
2537        WPERR_NO_MEMORY = $1703;
2538        WPERR_SEMAPHORE_ERROR = $1704;
2539        WPERR_BUFFER_TOO_SMALL = $1705;
2540        WPERR_CLSLOADMOD_FAILED = $1706;
2541        WPERR_CLSPROCADDR_FAILED = $1707;
2542        WPERR_OBJWORD_LOCATION = $1708;
2543        WPERR_INVALID_OBJECT = $1709;
2544        WPERR_MEMORY_CLEANUP = $170A;
2545        WPERR_INVALID_MODULE = $170B;
2546        WPERR_INVALID_OLDCLASS = $170C;
2547        WPERR_INVALID_NEWCLASS = $170D;
2548        WPERR_NOT_IMMEDIATE_CHILD = $170E;
2549        WPERR_NOT_WORKPLACE_CLASS = $170F;
2550        WPERR_CANT_REPLACE_METACLS = $1710;
2551        WPERR_INI_FILE_WRITE = $1711;
2552        WPERR_INVALID_FOLDER = $1712;
2553        WPERR_BUFFER_OVERFLOW = $1713;
2554        WPERR_OBJECT_NOT_FOUND = $1714;
2555        WPERR_INVALID_HFIND = $1715;
2556        WPERR_INVALID_COUNT = $1716;
2557        WPERR_INVALID_BUFFER = $1717;
2558        WPERR_ALREADY_EXISTS = $1718;
2559        WPERR_INVALID_FLAGS = $1719;
2560        WPERR_INVALID_OBJECTID = $1720;
2561        PMERR_OK = $0000;
2562        PMERR_ALREADY_IN_AREA = $2001;
2563        PMERR_ALREADY_IN_ELEMENT = $2002;
2564        PMERR_ALREADY_IN_PATH = $2003;
2565        PMERR_ALREADY_IN_SEG = $2004;
2566        PMERR_AREA_INCOMPLETE = $2005;
2567        PMERR_BASE_ERROR = $2006;
2568        PMERR_BITBLT_LENGTH_EXCEEDED = $2007;
2569        PMERR_BITMAP_IN_USE = $2008;
2570        PMERR_BITMAP_IS_SELECTED = $2009;
2571        PMERR_BITMAP_NOT_FOUND = $200A;
2572        PMERR_BITMAP_NOT_SELECTED = $200B;
2573        PMERR_BOUNDS_OVERFLOW = $200C;
2574        PMERR_CALLED_SEG_IS_CHAINED = $200D;
2575        PMERR_CALLED_SEG_IS_CURRENT = $200E;
2576        PMERR_CALLED_SEG_NOT_FOUND = $200F;
2577        PMERR_CANNOT_DELETE_ALL_DATA = $2010;
2578        PMERR_CANNOT_REPLACE_ELEMENT_0 = $2011;
2579        PMERR_COL_TABLE_NOT_REALIZABLE = $2012;
2580        PMERR_COL_TABLE_NOT_REALIZED = $2013;
2581        PMERR_COORDINATE_OVERFLOW = $2014;
2582        PMERR_CORR_FORMAT_MISMATCH = $2015;
2583        PMERR_DATA_TOO_LONG = $2016;
2584        PMERR_DC_IS_ASSOCIATED = $2017;
2585        PMERR_DESC_STRING_TRUNCATED = $2018;
2586        PMERR_DEVICE_DRIVER_ERROR_1 = $2019;
2587        PMERR_DEVICE_DRIVER_ERROR_2 = $201A;
2588        PMERR_DEVICE_DRIVER_ERROR_3 = $201B;
2589        PMERR_DEVICE_DRIVER_ERROR_4 = $201C;
2590        PMERR_DEVICE_DRIVER_ERROR_5 = $201D;
2591        PMERR_DEVICE_DRIVER_ERROR_6 = $201E;
2592        PMERR_DEVICE_DRIVER_ERROR_7 = $201F;
2593        PMERR_DEVICE_DRIVER_ERROR_8 = $2020;
2594        PMERR_DEVICE_DRIVER_ERROR_9 = $2021;
2595        PMERR_DEVICE_DRIVER_ERROR_10 = $2022;
2596        PMERR_DEV_FUNC_NOT_INSTALLED = $2023;
2597        PMERR_DOSOPEN_FAILURE = $2024;
2598        PMERR_DOSREAD_FAILURE = $2025;
2599        PMERR_DRIVER_NOT_FOUND = $2026;
2600        PMERR_DUP_SEG = $2027;
2601        PMERR_DYNAMIC_SEG_SEQ_ERROR = $2028;
2602        PMERR_DYNAMIC_SEG_ZERO_INV = $2029;
2603        PMERR_ELEMENT_INCOMPLETE = $202A;
2604        PMERR_ESC_CODE_NOT_SUPPORTED = $202B;
2605        PMERR_EXCEEDS_MAX_SEG_LENGTH = $202C;
2606        PMERR_FONT_AND_MODE_MISMATCH = $202D;
2607        PMERR_FONT_FILE_NOT_LOADED = $202E;
2608        PMERR_FONT_NOT_LOADED = $202F;
2609        PMERR_FONT_TOO_BIG = $2030;
2610        PMERR_HARDWARE_INIT_FAILURE = $2031;
2611        PMERR_HBITMAP_BUSY = $2032;
2612        PMERR_HDC_BUSY = $2033;
2613        PMERR_HRGN_BUSY = $2034;
2614        PMERR_HUGE_FONTS_NOT_SUPPORTED = $2035;
2615        PMERR_ID_HAS_NO_BITMAP = $2036;
2616        PMERR_IMAGE_INCOMPLETE = $2037;
2617        PMERR_INCOMPAT_COLOR_FORMAT = $2038;
2618        PMERR_INCOMPAT_COLOR_OPTIONS = $2039;
2619        PMERR_INCOMPATIBLE_BITMAP = $203A;
2620        PMERR_INCOMPATIBLE_METAFILE = $203B;
2621        PMERR_INCORRECT_DC_TYPE = $203C;
2622        PMERR_INSUFFICIENT_DISK_SPACE = $203D;
2623        PMERR_INSUFFICIENT_MEMORY = $203E;
2624        PMERR_INV_ANGLE_PARM = $203F;
2625        PMERR_INV_ARC_CONTROL = $2040;
2626        PMERR_INV_AREA_CONTROL = $2041;
2627        PMERR_INV_ARC_POINTS = $2042;
2628        PMERR_INV_ATTR_MODE = $2043;
2629        PMERR_INV_BACKGROUND_COL_ATTR = $2044;
2630        PMERR_INV_BACKGROUND_MIX_ATTR = $2045;
2631        PMERR_INV_BITBLT_MIX = $2046;
2632        PMERR_INV_BITBLT_STYLE = $2047;
2633        PMERR_INV_BITMAP_DIMENSION = $2048;
2634        PMERR_INV_BOX_CONTROL = $2049;
2635        PMERR_INV_BOX_ROUNDING_PARM = $204A;
2636        PMERR_INV_CHAR_ANGLE_ATTR = $204B;
2637        PMERR_INV_CHAR_DIRECTION_ATTR = $204C;
2638        PMERR_INV_CHAR_MODE_ATTR = $204D;
2639        PMERR_INV_CHAR_POS_OPTIONS = $204E;
2640        PMERR_INV_CHAR_SET_ATTR = $204F;
2641        PMERR_INV_CHAR_SHEAR_ATTR = $2050;
2642        PMERR_INV_CLIP_PATH_OPTIONS = $2051;
2643        PMERR_INV_CODEPAGE = $2052;
2644        PMERR_INV_COLOR_ATTR = $2053;
2645        PMERR_INV_COLOR_DATA = $2054;
2646        PMERR_INV_COLOR_FORMAT = $2055;
2647        PMERR_INV_COLOR_INDEX = $2056;
2648        PMERR_INV_COLOR_OPTIONS = $2057;
2649        PMERR_INV_COLOR_START_INDEX = $2058;
2650        PMERR_INV_COORD_OFFSET = $2059;
2651        PMERR_INV_COORD_SPACE = $205A;
2652        PMERR_INV_COORDINATE = $205B;
2653        PMERR_INV_CORRELATE_DEPTH = $205C;
2654        PMERR_INV_CORRELATE_TYPE = $205D;
2655        PMERR_INV_CURSOR_BITMAP = $205E;
2656        PMERR_INV_DC_DATA = $205F;
2657        PMERR_INV_DC_TYPE = $2060;
2658        PMERR_INV_DEVICE_NAME = $2061;
2659        PMERR_INV_DEV_MODES_OPTIONS = $2062;
2660        PMERR_INV_DRAW_CONTROL = $2063;
2661        PMERR_INV_DRAW_VALUE = $2064;
2662        PMERR_INV_DRAWING_MODE = $2065;
2663        PMERR_INV_DRIVER_DATA = $2066;
2664        PMERR_INV_DRIVER_NAME = $2067;
2665        PMERR_INV_DRAW_BORDER_OPTION = $2068;
2666        PMERR_INV_EDIT_MODE = $2069;
2667        PMERR_INV_ELEMENT_OFFSET = $206A;
2668        PMERR_INV_ELEMENT_POINTER = $206B;
2669        PMERR_INV_END_PATH_OPTIONS = $206C;
2670        PMERR_INV_ESC_CODE = $206D;
2671        PMERR_INV_ESCAPE_DATA = $206E;
2672        PMERR_INV_EXTENDED_LCID = $206F;
2673        PMERR_INV_FILL_PATH_OPTIONS = $2070;
2674        PMERR_INV_FIRST_CHAR = $2071;
2675        PMERR_INV_FONT_ATTRS = $2072;
2676        PMERR_INV_FONT_FILE_DATA = $2073;
2677        PMERR_INV_FOR_THIS_DC_TYPE = $2074;
2678        PMERR_INV_FORMAT_CONTROL = $2075;
2679        PMERR_INV_FORMS_CODE = $2076;
2680        PMERR_INV_FONTDEF = $2077;
2681        PMERR_INV_GEOM_LINE_WIDTH_ATTR = $2078;
2682        PMERR_INV_GETDATA_CONTROL = $2079;
2683        PMERR_INV_GRAPHICS_FIELD = $207A;
2684        PMERR_INV_HBITMAP = $207B;
2685        PMERR_INV_HDC = $207C;
2686        PMERR_INV_HJOURNAL = $207D;
2687        PMERR_INV_HMF = $207E;
2688        PMERR_INV_HPS = $207F;
2689        PMERR_INV_HRGN = $2080;
2690        PMERR_INV_ID = $2081;
2691        PMERR_INV_IMAGE_DATA_LENGTH = $2082;
2692        PMERR_INV_IMAGE_DIMENSION = $2083;
2693        PMERR_INV_IMAGE_FORMAT = $2084;
2694        PMERR_INV_IN_AREA = $2085;
2695        PMERR_INV_IN_CALLED_SEG = $2086;
2696        PMERR_INV_IN_CURRENT_EDIT_MODE = $2087;
2697        PMERR_INV_IN_DRAW_MODE = $2088;
2698        PMERR_INV_IN_ELEMENT = $2089;
2699        PMERR_INV_IN_IMAGE = $208A;
2700        PMERR_INV_IN_PATH = $208B;
2701        PMERR_INV_IN_RETAIN_MODE = $208C;
2702        PMERR_INV_IN_SEG = $208D;
2703        PMERR_INV_IN_VECTOR_SYMBOL = $208E;
2704        PMERR_INV_INFO_TABLE = $208F;
2705        PMERR_INV_JOURNAL_OPTION = $2090;
2706        PMERR_INV_KERNING_FLAGS = $2091;
2707        PMERR_INV_LENGTH_OR_COUNT = $2092;
2708        PMERR_INV_LINE_END_ATTR = $2093;
2709        PMERR_INV_LINE_JOIN_ATTR = $2094;
2710        PMERR_INV_LINE_TYPE_ATTR = $2095;
2711        PMERR_INV_LINE_WIDTH_ATTR = $2096;
2712        PMERR_INV_LOGICAL_ADDRESS = $2097;
2713        PMERR_INV_MARKER_BOX_ATTR = $2098;
2714        PMERR_INV_MARKER_SET_ATTR = $2099;
2715        PMERR_INV_MARKER_SYMBOL_ATTR = $209A;
2716        PMERR_INV_MATRIX_ELEMENT = $209B;
2717        PMERR_INV_MAX_HITS = $209C;
2718        PMERR_INV_METAFILE = $209D;
2719        PMERR_INV_METAFILE_LENGTH = $209E;
2720        PMERR_INV_METAFILE_OFFSET = $209F;
2721        PMERR_INV_MICROPS_DRAW_CONTROL = $20A0;
2722        PMERR_INV_MICROPS_FUNCTION = $20A1;
2723        PMERR_INV_MICROPS_ORDER = $20A2;
2724        PMERR_INV_MIX_ATTR = $20A3;
2725        PMERR_INV_MODE_FOR_OPEN_DYN = $20A4;
2726        PMERR_INV_MODE_FOR_REOPEN_SEG = $20A5;
2727        PMERR_INV_MODIFY_PATH_MODE = $20A6;
2728        PMERR_INV_MULTIPLIER = $20A7;
2729        PMERR_INV_NESTED_FIGURES = $20A8;
2730        PMERR_INV_OR_INCOMPAT_OPTIONS = $20A9;
2731        PMERR_INV_ORDER_LENGTH = $20AA;
2732        PMERR_INV_ORDERING_PARM = $20AB;
2733        PMERR_INV_OUTSIDE_DRAW_MODE = $20AC;
2734        PMERR_INV_PAGE_VIEWPORT = $20AD;
2735        PMERR_INV_PATH_ID = $20AE;
2736        PMERR_INV_PATH_MODE = $20AF;
2737        PMERR_INV_PATTERN_ATTR = $20B0;
2738        PMERR_INV_PATTERN_REF_PT_ATTR = $20B1;
2739        PMERR_INV_PATTERN_SET_ATTR = $20B2;
2740        PMERR_INV_PATTERN_SET_FONT = $20B3;
2741        PMERR_INV_PICK_APERTURE_OPTION = $20B4;
2742        PMERR_INV_PICK_APERTURE_POSN = $20B5;
2743        PMERR_INV_PICK_APERTURE_SIZE = $20B6;
2744        PMERR_INV_PICK_NUMBER = $20B7;
2745        PMERR_INV_PLAY_METAFILE_OPTION = $20B8;
2746        PMERR_INV_PRIMITIVE_TYPE = $20B9;
2747        PMERR_INV_PS_SIZE = $20BA;
2748        PMERR_INV_PUTDATA_FORMAT = $20BB;
2749        PMERR_INV_QUERY_ELEMENT_NO = $20BC;
2750        PMERR_INV_RECT = $20BD;
2751        PMERR_INV_REGION_CONTROL = $20BE;
2752        PMERR_INV_REGION_MIX_MODE = $20BF;
2753        PMERR_INV_REPLACE_MODE_FUNC = $20C0;
2754        PMERR_INV_RESERVED_FIELD = $20C1;
2755        PMERR_INV_RESET_OPTIONS = $20C2;
2756        PMERR_INV_RGBCOLOR = $20C3;
2757        PMERR_INV_SCAN_START = $20C4;
2758        PMERR_INV_SEG_ATTR = $20C5;
2759        PMERR_INV_SEG_ATTR_VALUE = $20C6;
2760        PMERR_INV_SEG_CH_LENGTH = $20C7;
2761        PMERR_INV_SEG_NAME = $20C8;
2762        PMERR_INV_SEG_OFFSET = $20C9;
2763        PMERR_INV_SETID = $20CA;
2764        PMERR_INV_SETID_TYPE = $20CB;
2765        PMERR_INV_SET_VIEWPORT_OPTION = $20CC;
2766        PMERR_INV_SHARPNESS_PARM = $20CD;
2767        PMERR_INV_SOURCE_OFFSET = $20CE;
2768        PMERR_INV_STOP_DRAW_VALUE = $20CF;
2769        PMERR_INV_TRANSFORM_TYPE = $20D0;
2770        PMERR_INV_USAGE_PARM = $20D1;
2771        PMERR_INV_VIEWING_LIMITS = $20D2;
2772        PMERR_JFILE_BUSY = $20D3;
2773        PMERR_JNL_FUNC_DATA_TOO_LONG = $20D4;
2774        PMERR_KERNING_NOT_SUPPORTED = $20D5;
2775        PMERR_LABEL_NOT_FOUND = $20D6;
2776        PMERR_MATRIX_OVERFLOW = $20D7;
2777        PMERR_METAFILE_INTERNAL_ERROR = $20D8;
2778        PMERR_METAFILE_IN_USE = $20D9;
2779        PMERR_METAFILE_LIMIT_EXCEEDED = $20DA;
2780        PMERR_NAME_STACK_FULL = $20DB;
2781        PMERR_NOT_CREATED_BY_DEVOPENDC = $20DC;
2782        PMERR_NOT_IN_AREA = $20DD;
2783        PMERR_NOT_IN_DRAW_MODE = $20DE;
2784        PMERR_NOT_IN_ELEMENT = $20DF;
2785        PMERR_NOT_IN_IMAGE = $20E0;
2786        PMERR_NOT_IN_PATH = $20E1;
2787        PMERR_NOT_IN_RETAIN_MODE = $20E2;
2788        PMERR_NOT_IN_SEG = $20E3;
2789        PMERR_NO_BITMAP_SELECTED = $20E4;
2790        PMERR_NO_CURRENT_ELEMENT = $20E5;
2791        PMERR_NO_CURRENT_SEG = $20E6;
2792        PMERR_NO_METAFILE_RECORD_HANDLE = $20E7;
2793        PMERR_ORDER_TOO_BIG = $20E8;
2794        PMERR_OTHER_SET_ID_REFS = $20E9;
2795        PMERR_OVERRAN_SEG = $20EA;
2796        PMERR_OWN_SET_ID_REFS = $20EB;
2797        PMERR_PATH_INCOMPLETE = $20EC;
2798        PMERR_PATH_LIMIT_EXCEEDED = $20ED;
2799        PMERR_PATH_UNKNOWN = $20EE;
2800        PMERR_PEL_IS_CLIPPED = $20EF;
2801        PMERR_PEL_NOT_AVAILABLE = $20F0;
2802        PMERR_PRIMITIVE_STACK_EMPTY = $20F1;
2803        PMERR_PROLOG_ERROR = $20F2;
2804        PMERR_PROLOG_SEG_ATTR_NOT_SET = $20F3;
2805        PMERR_PS_BUSY = $20F4;
2806        PMERR_PS_IS_ASSOCIATED = $20F5;
2807        PMERR_RAM_JNL_FILE_TOO_SMALL = $20F6;
2808        PMERR_REALIZE_NOT_SUPPORTED = $20F7;
2809        PMERR_REGION_IS_CLIP_REGION = $20F8;
2810        PMERR_RESOURCE_DEPLETION = $20F9;
2811        PMERR_SEG_AND_REFSEG_ARE_SAME = $20FA;
2812        PMERR_SEG_CALL_RECURSIVE = $20FB;
2813        PMERR_SEG_CALL_STACK_EMPTY = $20FC;
2814        PMERR_SEG_CALL_STACK_FULL = $20FD;
2815        PMERR_SEG_IS_CURRENT = $20FE;
2816        PMERR_SEG_NOT_CHAINED = $20FF;
2817        PMERR_SEG_NOT_FOUND = $2100;
2818        PMERR_SEG_STORE_LIMIT_EXCEEDED = $2101;
2819        PMERR_SETID_IN_USE = $2102;
2820        PMERR_SETID_NOT_FOUND = $2103;
2821        PMERR_STARTDOC_NOT_ISSUED = $2104;
2822        PMERR_STOP_DRAW_OCCURRED = $2105;
2823        PMERR_TOO_MANY_METAFILES_IN_USE = $2106;
2824        PMERR_TRUNCATED_ORDER = $2107;
2825        PMERR_UNCHAINED_SEG_ZERO_INV = $2108;
2826        PMERR_UNSUPPORTED_ATTR = $2109;
2827        PMERR_UNSUPPORTED_ATTR_VALUE = $210A;
2828        PMERR_ENDDOC_NOT_ISSUED = $210B;
2829        PMERR_PS_NOT_ASSOCIATED = $210C;
2830        PMERR_INV_FLOOD_FILL_OPTIONS = $210D;
2831        PMERR_INV_FACENAME = $210E;
2832        PMERR_PALETTE_SELECTED = $210F;
2833        PMERR_NO_PALETTE_SELECTED = $2110;
2834        PMERR_INV_HPAL = $2111;
2835        PMERR_PALETTE_BUSY = $2112;
2836        PMERR_START_POINT_CLIPPED = $2113;
2837        PMERR_NO_FILL = $2114;
2838        PMERR_INV_FACENAMEDESC = $2115;
2839        PMERR_INV_BITMAP_DATA = $2116;
2840        PMERR_INV_CHAR_ALIGN_ATTR = $2117;
2841        PMERR_INV_HFONT = $2118;
2842        PMERR_HFONT_IS_SELECTED = $2119;
2843        PMERR_SPL_DRIVER_ERROR = $4001;
2844        PMERR_SPL_DEVICE_ERROR = $4002;
2845        PMERR_SPL_DEVICE_NOT_INSTALLED = $4003;
2846        PMERR_SPL_QUEUE_ERROR = $4004;
2847        PMERR_SPL_INV_HSPL = $4005;
2848        PMERR_SPL_NO_DISK_SPACE = $4006;
2849        PMERR_SPL_NO_MEMORY = $4007;
2850        PMERR_SPL_PRINT_ABORT = $4008;
2851        PMERR_SPL_SPOOLER_NOT_INSTALLED = $4009;
2852        PMERR_SPL_INV_FORMS_CODE = $400A;
2853        PMERR_SPL_INV_PRIORITY = $400B;
2854        PMERR_SPL_NO_FREE_JOB_ID = $400C;
2855        PMERR_SPL_NO_DATA = $400D;
2856        PMERR_SPL_INV_TOKEN = $400E;
2857        PMERR_SPL_INV_DATATYPE = $400F;
2858        PMERR_SPL_PROCESSOR_ERROR = $4010;
2859        PMERR_SPL_INV_JOB_ID = $4011;
2860        PMERR_SPL_JOB_NOT_PRINTING = $4012;
2861        PMERR_SPL_JOB_PRINTING = $4013;
2862        PMERR_SPL_QUEUE_ALREADY_EXISTS = $4014;
2863        PMERR_SPL_INV_QUEUE_NAME = $4015;
2864        PMERR_SPL_QUEUE_NOT_EMPTY = $4016;
2865        PMERR_SPL_DEVICE_ALREADY_EXISTS = $4017;
2866        PMERR_SPL_DEVICE_LIMIT_REACHED = $4018;
2867        PMERR_SPL_STATUS_STRING_TRUNC = $4019;
2868        PMERR_SPL_INV_LENGTH_OR_COUNT = $401A;
2869        PMERR_SPL_FILE_NOT_FOUND = $401B;
2870        PMERR_SPL_CANNOT_OPEN_FILE = $401C;
2871        PMERR_SPL_DRIVER_NOT_INSTALLED = $401D;
2872        PMERR_SPL_INV_PROCESSOR_DATTYPE = $401E;
2873        PMERR_SPL_INV_DRIVER_DATATYPE = $401F;
2874        PMERR_SPL_PROCESSOR_NOT_INST = $4020;
2875        PMERR_SPL_NO_SUCH_LOG_ADDRESS = $4021;
2876        PMERR_SPL_PRINTER_NOT_FOUND = $4022;
2877        PMERR_SPL_DD_NOT_FOUND = $4023;
2878        PMERR_SPL_QUEUE_NOT_FOUND = $4024;
2879        PMERR_SPL_MANY_QUEUES_ASSOC = $4025;
2880        PMERR_SPL_NO_QUEUES_ASSOCIATED = $4026;
2881        PMERR_SPL_INI_FILE_ERROR = $4027;
2882        PMERR_SPL_NO_DEFAULT_QUEUE = $4028;
2883        PMERR_SPL_NO_CURRENT_FORMS_CODE = $4029;
2884        PMERR_SPL_NOT_AUTHORISED = $402A;
2885        PMERR_SPL_TEMP_NETWORK_ERROR = $402B;
2886        PMERR_SPL_HARD_NETWORK_ERROR = $402C;
2887        PMERR_DEL_NOT_ALLOWED = $402D;
2888        PMERR_CANNOT_DEL_QP_REF = $402E;
2889        PMERR_CANNOT_DEL_QNAME_REF = $402F;
2890        PMERR_CANNOT_DEL_PRINTER_DD_REF = $4030;
2891        PMERR_CANNOT_DEL_PRN_NAME_REF = $4031;
2892        PMERR_CANNOT_DEL_PRN_ADDR_REF = $4032;
2893        PMERR_SPOOLER_QP_NOT_DEFINED = $4033;
2894        PMERR_PRN_NAME_NOT_DEFINED = $4034;
2895        PMERR_PRN_ADDR_NOT_DEFINED = $4035;
2896        PMERR_PRINTER_DD_NOT_DEFINED = $4036;
2897        PMERR_PRINTER_QUEUE_NOT_DEFINED = $4037;
2898        PMERR_PRN_ADDR_IN_USE = $4038;
2899        PMERR_SPL_TOO_MANY_OPEN_FILES = $4039;
2900        PMERR_SPL_CP_NOT_REQD = $403A;
2901        PMERR_UNABLE_TO_CLOSE_DEVICE = $4040;
2902        PMERR_SPL_ERROR_1 = (SPLERR_BASE+4001);
2903        PMERR_SPL_ERROR_2 = (SPLERR_BASE+4002);
2904        PMERR_SPL_ERROR_3 = (SPLERR_BASE+4003);
2905        PMERR_SPL_ERROR_4 = (SPLERR_BASE+4004);
2906        PMERR_SPL_ERROR_5 = (SPLERR_BASE+4005);
2907        PMERR_SPL_ERROR_6 = (SPLERR_BASE+4006);
2908        PMERR_SPL_ERROR_7 = (SPLERR_BASE+4007);
2909        PMERR_SPL_ERROR_8 = (SPLERR_BASE+4008);
2910        PMERR_SPL_ERROR_9 = (SPLERR_BASE+4009);
2911        PMERR_SPL_ERROR_10 = (SPLERR_BASE+4010);
2912        PMERR_SPL_ERROR_11 = (SPLERR_BASE+4011);
2913        PMERR_SPL_ERROR_12 = (SPLERR_BASE+4012);
2914        PMERR_SPL_ERROR_13 = (SPLERR_BASE+4013);
2915        PMERR_SPL_ERROR_14 = (SPLERR_BASE+4014);
2916        PMERR_SPL_ERROR_15 = (SPLERR_BASE+4015);
2917        PMERR_SPL_ERROR_16 = (SPLERR_BASE+4016);
2918        PMERR_SPL_ERROR_17 = (SPLERR_BASE+4017);
2919        PMERR_SPL_ERROR_18 = (SPLERR_BASE+4018);
2920        PMERR_SPL_ERROR_19 = (SPLERR_BASE+4019);
2921        PMERR_SPL_ERROR_20 = (SPLERR_BASE+4020);
2922        PMERR_SPL_ERROR_21 = (SPLERR_BASE+4021);
2923        PMERR_SPL_ERROR_22 = (SPLERR_BASE+4022);
2924        PMERR_SPL_ERROR_23 = (SPLERR_BASE+4023);
2925        PMERR_SPL_ERROR_24 = (SPLERR_BASE+4024);
2926        PMERR_SPL_ERROR_25 = (SPLERR_BASE+4025);
2927        PMERR_SPL_ERROR_26 = (SPLERR_BASE+4026);
2928        PMERR_SPL_ERROR_27 = (SPLERR_BASE+4027);
2929        PMERR_SPL_ERROR_28 = (SPLERR_BASE+4028);
2930        PMERR_SPL_ERROR_29 = (SPLERR_BASE+4029);
2931        PMERR_SPL_ERROR_30 = (SPLERR_BASE+4030);
2932        PMERR_SPL_ERROR_31 = (SPLERR_BASE+4031);
2933        PMERR_SPL_ERROR_32 = (SPLERR_BASE+4032);
2934        PMERR_SPL_ERROR_33 = (SPLERR_BASE+4033);
2935        PMERR_SPL_ERROR_34 = (SPLERR_BASE+4034);
2936        PMERR_SPL_ERROR_35 = (SPLERR_BASE+4035);
2937        PMERR_SPL_ERROR_36 = (SPLERR_BASE+4036);
2938        PMERR_SPL_ERROR_37 = (SPLERR_BASE+4037);
2939        PMERR_SPL_ERROR_38 = (SPLERR_BASE+4038);
2940        PMERR_SPL_ERROR_39 = (SPLERR_BASE+4039);
2941        PMERR_SPL_ERROR_40 = (SPLERR_BASE+4040);
2942        PMERR_SPLMSGBOX_INFO_CAPTION = (SPLERR_BASE+4041);
2943        PMERR_SPLMSGBOX_WARNING_CAPTION = (SPLERR_BASE+4042);
2944        PMERR_SPLMSGBOX_ERROR_CAPTION = (SPLERR_BASE+4043);
2945        PMERR_SPLMSGBOX_SEVERE_CAPTION = (SPLERR_BASE+4044);
2946        PMERR_SPLMSGBOX_JOB_DETAILS = (SPLERR_BASE+4045);
2947        PMERR_SPLMSGBOX_ERROR_ACTION = (SPLERR_BASE+4046);
2948        PMERR_SPLMSGBOX_SEVERE_ACTION = (SPLERR_BASE+4047);
2949        PMERR_SPLMSGBOX_BIT_0_TEXT = (SPLERR_BASE+4048);
2950        PMERR_SPLMSGBOX_BIT_1_TEXT = (SPLERR_BASE+4049);
2951        PMERR_SPLMSGBOX_BIT_2_TEXT = (SPLERR_BASE+4050);
2952        PMERR_SPLMSGBOX_BIT_3_TEXT = (SPLERR_BASE+4051);
2953        PMERR_SPLMSGBOX_BIT_4_TEXT = (SPLERR_BASE+4052);
2954        PMERR_SPLMSGBOX_BIT_5_TEXT = (SPLERR_BASE+4053);
2955        PMERR_SPLMSGBOX_BIT_15_TEXT = (SPLERR_BASE+4054);
2956        PMERR_SPL_NOPATHBUFFER = (SPLERR_BASE+4055);
2957        PMERR_SPL_ALREADY_INITIALISED = (SPLERR_BASE+4093);
2958        PMERR_SPL_ERROR = (SPLERR_BASE+4095);
2959        PMERR_INV_TYPE = $5001;
2960        PMERR_INV_CONV = $5002;
2961        PMERR_INV_SEGLEN = $5003;
2962        PMERR_DUP_SEGNAME = $5004;
2963        PMERR_INV_XFORM = $5005;
2964        PMERR_INV_VIEWLIM = $5006;
2965        PMERR_INV_3DCOORD = $5007;
2966        PMERR_SMB_OVFLOW = $5008;
2967        PMERR_SEG_OVFLOW = $5009;
2968        PMERR_PIC_DUP_FILENAME = $5010;
2969
2970 end.
2971 {
2972   $Log$
2973   Revision 1.1  2002/02/19 08:26:05  sasu
2974   Initial revision
2975
2976   Revision 1.1.2.1  2000/09/03 18:23:12  hajny
2977     + pmerr merged into PMWin
2978
2979   Revision 1.1  2000/07/13 06:31:06  michael
2980   + Initial import
2981
2982   Revision 1.11  2000/02/09 16:59:33  peter
2983     * truncated log
2984
2985   Revision 1.10  2000/01/09 20:48:04  hajny
2986     * FPK changed to FPC
2987
2988   Revision 1.9  2000/01/07 16:41:49  daniel
2989     * copyright 2000
2990
2991   Revision 1.8  2000/01/07 16:32:33  daniel
2992     * copyright 2000 added
2993
2994   Revision 1.7  1999/08/10 14:20:52  hajny
2995     * compatibility updates
2996
2997   Revision 1.6  1999/08/04 15:51:05  hajny
2998     * merging changes by RB and DM :-(
2999
3000 }