development/compilers/freepascal/rtl/win32/wininc/defines.inc

   1 {
   2     $Id$
   3     This file is part of the Free Pascal run time library.
   4     This unit contains the constant definitions for the Win32 API
   5     Copyright (c) 1999-2000 by Florian Klaempfl,
   6     member of the Free Pascal development team.
   7
   8     See the file COPYING.FPC, included in this distribution,
   9     for details about the copyright.
  10
  11     This program is distributed in the hope that it will be useful,
  12     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  14
  15  **********************************************************************}
  16
  17 {
  18   Defines.h
  19
  20   Windows32 API definitions
  21
  22   Copyright (C) 1996, 1997 Free Software Foundation, Inc.
  23
  24   Author: Scott Christley <scottc@net-community.com>
  25
  26   This file is part of the Windows32 API Library.
  27
  28   This library is free software; you can redistribute it and/or
  29   modify it under the terms of the GNU Library General Public
  30   License as published by the Free Software Foundation; either
  31   version 2 of the License, or (at your option) any later version.
  32
  33   This library is distributed in the hope that it will be useful,
  34   but WITHOUT ANY WARRANTY; without even the implied warranty of
  35   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  36   Library General Public License for more details.
  37
  38   If you are interested in a warranty or support for this source code,
  39   contact Scott Christley <scottc@net-community.com> for more information.
  40
  41   License along with this library; see the file COPYING.LIB.
  42   If not, write to the Free Software Foundation,
  43   59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  44 }
  45
  46 {$ifdef read_interface}
  47
  48 {$PACKRECORDS C}
  49
  50   { was #define dname def_expr }
  51   function UNICODE_NULL : WCHAR;
  52
  53   const
  54      MAX_PATH = 260;
  55      LF_FACESIZE = 32;
  56      LF_FULLFACESIZE = 64;
  57      ELF_VENDOR_SIZE = 4;
  58      SECURITY_STATIC_TRACKING = 0;
  59      SECURITY_DYNAMIC_TRACKING = 1;
  60      MAX_DEFAULTCHAR = 2;
  61      MAX_LEADBYTES = 12;
  62      EXCEPTION_MAXIMUM_PARAMETERS = 15;
  63      CCHDEVICENAME = 32;
  64      CCHFORMNAME = 32;
  65      MENU_TEXT_LEN = 40;
  66      MAX_LANA = 254;
  67      NCBNAMSZ = 16;
  68      NETBIOS_NAME_LEN = 16;
  69      OFS_MAXPATHNAME = 128;
  70      MAX_TAB_STOPS = 32;
  71      ANYSIZE_ARRAY = 1;
  72      RAS_MaxCallbackNumber = 128;
  73      RAS_MaxDeviceName = 128;
  74      RAS_MaxDeviceType = 16;
  75      RAS_MaxEntryName = 256;
  76      RAS_MaxIpAddress = 15;
  77      RAS_MaxIpxAddress = 21;
  78      RAS_MaxPhoneNumber = 128;
  79      UNLEN = 256;
  80      PWLEN = 256;
  81      CNLEN = 15;
  82      DNLEN = 15;
  83   { Unsigned types max  }
  84      MAXDWORD = $FFFFFFFF;
  85      MAXWORD = $FFFF;
  86      MAXBYTE = $FF;
  87   { Signed types max/min  }
  88      MINCHAR = $80;
  89      MAXCHAR = $7F;
  90      MINSHORT = $8000;
  91      MAXSHORT = $7FFF;
  92      MINLONG = $80000000;
  93      MAXLONG = $7FFFFFFF;
  94   { _llseek  }
  95      FILE_BEGIN = 0;
  96      FILE_CURRENT = 1;
  97      FILE_END = 2;
  98   { _lopen, LZOpenFile, OpenFile  }
  99      OF_READ = 0;
 100      OF_READWRITE = 2;
 101      OF_WRITE = 1;
 102      OF_SHARE_COMPAT = 0;
 103      OF_SHARE_DENY_NONE = 64;
 104      OF_SHARE_DENY_READ = 48;
 105      OF_SHARE_DENY_WRITE = 32;
 106      OF_SHARE_EXCLUSIVE = 16;
 107      OF_CANCEL = 2048;
 108      OF_CREATE = 4096;
 109      OF_DELETE = 512;
 110      OF_EXIST = 16384;
 111      OF_PARSE = 256;
 112      OF_PROMPT = 8192;
 113      OF_REOPEN = 32768;
 114      OF_VERIFY = 1024;
 115   { ActivateKeyboardLayout, LoadKeyboardLayout  }
 116      HKL_NEXT = 1;
 117      HKL_PREV = 0;
 118      KLF_REORDER = 8;
 119      KLF_UNLOADPREVIOUS = 4;
 120      KLF_ACTIVATE = 1;
 121      KLF_NOTELLSHELL = 128;
 122      KLF_REPLACELANG = 16;
 123      KLF_SUBSTITUTE_OK = 2;
 124   { AppendMenu  }
 125      MF_BITMAP = $4;
 126      MF_DISABLED = $2;
 127      MF_ENABLED = 0;
 128      MF_GRAYED = $1;
 129      MF_HELP = $4000;
 130      MF_MENUBARBREAK = $20;
 131      MF_MENUBREAK = $40;
 132      MF_MOUSESELECT = $8000;
 133      MF_OWNERDRAW = $100;
 134      MF_POPUP = $10;
 135      MF_SEPARATOR = $800;
 136      MF_STRING = 0;
 137      MF_SYSMENU = $2000;
 138      MF_USECHECKBITMAPS = $200;
 139   { Ternary Raster Operations - BitBlt  }
 140      BLACKNESS = $00000042;
 141      NOTSRCERASE = $001100A6;
 142      NOTSRCCOPY = $00330008;
 143      SRCERASE = $00440328;
 144      DSTINVERT = $00550009;
 145      PATINVERT = $005A0049;
 146      SRCINVERT = $00660046;
 147      SRCAND = $008800C6;
 148      MERGEPAINT = $00BB0226;
 149      MERGECOPY = $00C000CA;
 150      SRCCOPY = $00CC0020;
 151      SRCPAINT = $00EE0086;
 152      PATCOPY = $00F00021;
 153      PATPAINT = $00FB0A09;
 154      WHITENESS = $00FF0062;
 155   { Binary Raster Operations  }
 156      R2_BLACK = 1;
 157      R2_COPYPEN = 13;
 158      R2_MASKNOTPEN = 3;
 159      R2_MASKPEN = 9;
 160      R2_MASKPENNOT = 5;
 161      R2_MERGENOTPEN = 12;
 162      R2_MERGEPEN = 15;
 163      R2_MERGEPENNOT = 14;
 164      R2_NOP = 11;
 165      R2_NOT = 6;
 166      R2_NOTCOPYPEN = 4;
 167      R2_NOTMASKPEN = 8;
 168      R2_NOTMERGEPEN = 2;
 169      R2_NOTXORPEN = 10;
 170      R2_WHITE = 16;
 171      R2_XORPEN = 7;
 172   { BroadcastSystemMessage  }
 173      BSF_FLUSHDISK = 4;
 174      BSF_FORCEIFHUNG = 32;
 175      BSF_IGNORECURRENTTASK = 2;
 176      BSF_NOHANG = 8;
 177      BSF_POSTMESSAGE = 16;
 178      BSF_QUERY = 1;
 179      BSM_ALLCOMPONENTS = 0;
 180      BSM_APPLICATIONS = 8;
 181      BSM_INSTALLABLEDRIVERS = 4;
 182      BSM_NETDRIVER = 2;
 183      BSM_VXDS = 1;
 184      BROADCAST_QUERY_DENY = 1112363332;
 185   { BrowseCallbackProc  }
 186   { CallNamedPipe  }
 187      NMPWAIT_NOWAIT = 1;
 188      NMPWAIT_WAIT_FOREVER = -(1);
 189      NMPWAIT_USE_DEFAULT_WAIT = 0;
 190   { CascadeWindows, TileWindows  }
 191      MDITILE_SKIPDISABLED = 2;
 192      MDITILE_HORIZONTAL = 1;
 193      MDITILE_VERTICAL = 0;
 194   { CBTProc  }
 195      HCBT_ACTIVATE = 5;
 196      HCBT_CLICKSKIPPED = 6;
 197      HCBT_CREATEWND = 3;
 198      HCBT_DESTROYWND = 4;
 199      HCBT_KEYSKIPPED = 7;
 200      HCBT_MINMAX = 1;
 201      HCBT_MOVESIZE = 0;
 202      HCBT_QS = 2;
 203      HCBT_SETFOCUS = 9;
 204      HCBT_SYSCOMMAND = 8;
 205   { ChangeDisplaySettings  }
 206      DM_BITSPERPEL = $40000;
 207      DM_PELSWIDTH = $80000;
 208      DM_PELSHEIGHT = $100000;
 209      DM_DISPLAYFLAGS = $200000;
 210      DM_DISPLAYFREQUENCY = $400000;
 211      CDS_UPDATEREGISTRY = 1;
 212      CDS_TEST = 2;
 213      DISP_CHANGE_SUCCESSFUL = 0;
 214      DISP_CHANGE_RESTART = 1;
 215      DISP_CHANGE_BADFLAGS = -(4);
 216      DISP_CHANGE_FAILED = -(1);
 217      DISP_CHANGE_BADMODE = -(2);
 218      DISP_CHANGE_NOTUPDATED = -(3);
 219   { ChangeServiceConfig  }
 220      SERVICE_NO_CHANGE = -(1);
 221      SERVICE_WIN32_OWN_PROCESS = 16;
 222      SERVICE_WIN32_SHARE_PROCESS = 32;
 223      SERVICE_KERNEL_DRIVER = 1;
 224      SERVICE_FILE_SYSTEM_DRIVER = 2;
 225      SERVICE_INTERACTIVE_PROCESS = 256;
 226      SERVICE_BOOT_START = 0;
 227      SERVICE_SYSTEM_START = 1;
 228      SERVICE_AUTO_START = 2;
 229      SERVICE_DEMAND_START = 3;
 230      SERVICE_DISABLED = 4;
 231   { SERVICE_STATUS structure  }
 232      SERVICE_STOPPED = 1;
 233      SERVICE_START_PENDING = 2;
 234      SERVICE_STOP_PENDING = 3;
 235      SERVICE_RUNNING = 4;
 236      SERVICE_CONTINUE_PENDING = 5;
 237      SERVICE_PAUSE_PENDING = 6;
 238      SERVICE_PAUSED = 7;
 239      SERVICE_ACCEPT_STOP = 1;
 240      SERVICE_ACCEPT_PAUSE_CONTINUE = 2;
 241      SERVICE_ACCEPT_SHUTDOWN = 4;
 242   { CheckDlgButton  }
 243      BST_CHECKED = 1;
 244      BST_INDETERMINATE = 2;
 245      BST_UNCHECKED = 0;
 246      BST_FOCUS = 8;
 247      BST_PUSHED = 4;
 248   { CheckMenuItem, HiliteMenuItem  }
 249      MF_BYCOMMAND = 0;
 250      MF_BYPOSITION = $400;
 251      MF_CHECKED = $8;
 252      MF_UNCHECKED = 0;
 253      MF_HILITE = $80;
 254      MF_UNHILITE = 0;
 255   { ChildWindowFromPointEx  }
 256      CWP_ALL = 0;
 257      CWP_SKIPINVISIBLE = 1;
 258      CWP_SKIPDISABLED = 2;
 259      CWP_SKIPTRANSPARENT = 4;
 260   { ClearCommError  }
 261      CE_BREAK = 16;
 262      CE_DNS = 2048;
 263      CE_FRAME = 8;
 264      CE_IOE = 1024;
 265      CE_MODE = 32768;
 266      CE_OOP = 4096;
 267      CE_OVERRUN = 2;
 268      CE_PTO = 512;
 269      CE_RXOVER = 1;
 270      CE_RXPARITY = 4;
 271      CE_TXFULL = 256;
 272   { ChooseMatchToTarget  }
 273   { CombineRgn  }
 274      RGN_AND = 1;
 275      RGN_COPY = 5;
 276      RGN_DIFF = 4;
 277      RGN_OR = 2;
 278      RGN_XOR = 3;
 279      NULLREGION = 1;
 280      SIMPLEREGION = 2;
 281      COMPLEXREGION = 3;
 282      ERROR = 0;
 283   { CommonDlgExtendedError  }
 284      CDERR_DIALOGFAILURE = $ffff;
 285      CDERR_FINDRESFAILURE = 6;
 286      CDERR_INITIALIZATION = 2;
 287      CDERR_LOADRESFAILURE = 7;
 288      CDERR_LOADSTRFAILURE = 5;
 289      CDERR_LOCKRESFAILURE = 8;
 290      CDERR_MEMALLOCFAILURE = 9;
 291      CDERR_MEMLOCKFAILURE = 10;
 292      CDERR_NOHINSTANCE = 4;
 293      CDERR_NOHOOK = 11;
 294      CDERR_NOTEMPLATE = 3;
 295      CDERR_REGISTERMSGFAIL = 12;
 296      CDERR_STRUCTSIZE = 1;
 297      PDERR_CREATEICFAILURE = $1000 + 10;
 298      PDERR_DEFAULTDIFFERENT = $1000 + 12;
 299      PDERR_DNDMMISMATCH = $1000 + 9;
 300      PDERR_GETDEVMODEFAIL = $1000 + 5;
 301      PDERR_INITFAILURE = $1000 + 6;
 302      PDERR_LOADDRVFAILURE = $1000 + 4;
 303      PDERR_NODEFAULTPRN = $1000 + 8;
 304      PDERR_NODEVICES = $1000 + 7;
 305      PDERR_PARSEFAILURE = $1000 + 2;
 306      PDERR_PRINTERNOTFOUND = $1000 + 11;
 307      PDERR_RETDEFFAILURE = $1000 + 3;
 308      PDERR_SETUPFAILURE = $1000 + 1;
 309      CFERR_MAXLESSTHANMIN = $2000 + 2;
 310      CFERR_NOFONTS = $2000 + 1;
 311      FNERR_BUFFERTOOSMALL = $3000 + 3;
 312      FNERR_INVALIDFILENAME = $3000 + 2;
 313      FNERR_SUBCLASSFAILURE = $3000 + 1;
 314      FRERR_BUFFERLENGTHZERO = $4000 + 1;
 315   { CompareString, LCMapString  }
 316      LOCALE_SYSTEM_DEFAULT = $800;
 317      LOCALE_USER_DEFAULT = $400;
 318      NORM_IGNORECASE = 1;
 319      NORM_IGNOREKANATYPE = 65536;
 320      NORM_IGNORENONSPACE = 2;
 321      NORM_IGNORESYMBOLS = 4;
 322      NORM_IGNOREWIDTH = 131072;
 323      SORT_STRINGSORT = 4096;
 324      LCMAP_BYTEREV = 2048;
 325      LCMAP_FULLWIDTH = 8388608;
 326      LCMAP_HALFWIDTH = 4194304;
 327      LCMAP_HIRAGANA = 1048576;
 328      LCMAP_KATAKANA = 2097152;
 329      LCMAP_LOWERCASE = 256;
 330      LCMAP_SORTKEY = 1024;
 331      LCMAP_UPPERCASE = 512;
 332   { ContinueDebugEvent  }
 333      DBG_CONTINUE = $10002;
 334      DBG_CONTROL_BREAK = $40010008;
 335      DBG_CONTROL_C = $40010005;
 336      DBG_EXCEPTION_NOT_HANDLED = $80010001;
 337      DBG_TERMINATE_THREAD = $40010003;
 338      DBG_TERMINATE_PROCESS = $40010004;
 339   { ControlService  }
 340      SERVICE_CONTROL_STOP = 1;
 341      SERVICE_CONTROL_PAUSE = 2;
 342      SERVICE_CONTROL_CONTINUE = 3;
 343      SERVICE_CONTROL_INTERROGATE = 4;
 344      SERVICE_CONTROL_SHUTDOWN = 5;
 345   { CopyImage, LoadImage  }
 346      IMAGE_BITMAP = 0;
 347      IMAGE_CURSOR = 2;
 348      IMAGE_ENHMETAFILE = 1;
 349      IMAGE_ICON = 1;
 350      LR_COPYDELETEORG = 8;
 351      LR_COPYRETURNORG = 4;
 352      LR_MONOCHROME = 1;
 353      LR_CREATEDIBSECTION = 8192;
 354      LR_DEFAULTSIZE = 64;
 355   { CreateDesktop  }
 356      DF_ALLOWOTHERACCOUNTHOOK = $1;
 357      DESKTOP_CREATEMENU = $4;
 358      DESKTOP_CREATEWINDOW = $2;
 359      DESKTOP_ENUMERATE = $40;
 360      DESKTOP_HOOKCONTROL = $8;
 361      DESKTOP_JOURNALPLAYBACK = $20;
 362      DESKTOP_JOURNALRECORD = $10;
 363      DESKTOP_READOBJECTS = $1;
 364      DESKTOP_SWITCHDESKTOP = $100;
 365      DESKTOP_WRITEOBJECTS = $80;
 366      WSF_VISIBLE = $1;
 367   { CreateDIBitmap  }
 368      CBM_INIT = $4;
 369      DIB_PAL_COLORS = 1;
 370      DIB_RGB_COLORS = 0;
 371   { CreateFile, GetFileAttributes, SetFileAttributes  }
 372      GENERIC_READ = $80000000;
 373      GENERIC_WRITE = $40000000;
 374   { file & pipe  }
 375      FILE_READ_DATA = $0001;
 376   { directory  }
 377      FILE_LIST_DIRECTORY = $0001;
 378   { file & pipe  }
 379      FILE_WRITE_DATA = $0002;
 380   { directory  }
 381      FILE_ADD_FILE = $0002;
 382   { file  }
 383      FILE_APPEND_DATA = $0004;
 384   { directory  }
 385      FILE_ADD_SUBDIRECTORY = $0004;
 386   { named pipe  }
 387      FILE_CREATE_PIPE_INSTANCE = $0004;
 388   { file & directory  }
 389      FILE_READ_EA = $0008;
 390      FILE_READ_PROPERTIES = FILE_READ_EA;
 391   { file & directory  }
 392      FILE_WRITE_EA = $0010;
 393      FILE_WRITE_PROPERTIES = FILE_WRITE_EA;
 394   { file  }
 395      FILE_EXECUTE = $0020;
 396   { directory  }
 397      FILE_TRAVERSE = $0020;
 398   { directory  }
 399      FILE_DELETE_CHILD = $0040;
 400   { all  }
 401      FILE_READ_ATTRIBUTES = $0080;
 402   { all  }
 403      FILE_WRITE_ATTRIBUTES = $0100;
 404   { displaced lower
 405   #define FILE_ALL_ACCESS (STANDARD_RIGHTS_REQUIRED | SYNCHRONIZE | 0x1FF)
 406
 407   #define FILE_GENERIC_READ         (STANDARD_RIGHTS_READ     |\
 408                                      FILE_READ_DATA           |\
 409                                      FILE_READ_ATTRIBUTES     |\
 410                                      FILE_READ_EA             |\
 411                                      SYNCHRONIZE)
 412
 413
 414   #define FILE_GENERIC_WRITE        (STANDARD_RIGHTS_WRITE    |\
 415                                      FILE_WRITE_DATA          |\
 416                                      FILE_WRITE_ATTRIBUTES    |\
 417                                      FILE_WRITE_EA            |\
 418                                      FILE_APPEND_DATA         |\
 419                                      SYNCHRONIZE)
 420
 421
 422   #define FILE_GENERIC_EXECUTE      (STANDARD_RIGHTS_EXECUTE  |\
 423                                      FILE_READ_ATTRIBUTES     |\
 424                                      FILE_EXECUTE             |\
 425                                      SYNCHRONIZE)
 426    }
 427      FILE_SHARE_DELETE = 4;
 428      FILE_SHARE_READ = 1;
 429      FILE_SHARE_WRITE = 2;
 430      CONSOLE_TEXTMODE_BUFFER = 1;
 431      CREATE_NEW = 1;
 432      CREATE_ALWAYS = 2;
 433      OPEN_EXISTING = 3;
 434      OPEN_ALWAYS = 4;
 435      TRUNCATE_EXISTING = 5;
 436      FILE_ATTRIBUTE_ARCHIVE = 32;
 437      FILE_ATTRIBUTE_COMPRESSED = 2048;
 438      FILE_ATTRIBUTE_NORMAL = 128;
 439      FILE_ATTRIBUTE_DIRECTORY = 16;
 440      FILE_ATTRIBUTE_HIDDEN = 2;
 441      FILE_ATTRIBUTE_READONLY = 1;
 442      FILE_ATTRIBUTE_SYSTEM = 4;
 443      FILE_ATTRIBUTE_TEMPORARY = 256;
 444      FILE_FLAG_WRITE_THROUGH = 2147483648;
 445      FILE_FLAG_OVERLAPPED = 1073741824;
 446      FILE_FLAG_NO_BUFFERING = 536870912;
 447      FILE_FLAG_RANDOM_ACCESS = 268435456;
 448      FILE_FLAG_SEQUENTIAL_SCAN = 134217728;
 449      FILE_FLAG_DELETE_ON_CLOSE = 67108864;
 450      FILE_FLAG_BACKUP_SEMANTICS = 33554432;
 451      FILE_FLAG_POSIX_SEMANTICS = 16777216;
 452      SECURITY_ANONYMOUS = 0;
 453      SECURITY_IDENTIFICATION = 65536;
 454      SECURITY_IMPERSONATION = 131072;
 455      SECURITY_DELEGATION = 196608;
 456      SECURITY_CONTEXT_TRACKING = 262144;
 457      SECURITY_EFFECTIVE_ONLY = 524288;
 458      SECURITY_SQOS_PRESENT = 1048576;
 459   { CreateFileMapping, VirtualAlloc, VirtualFree, VirtualProtect  }
 460      SEC_COMMIT = 134217728;
 461      SEC_IMAGE = 16777216;
 462      SEC_NOCACHE = 268435456;
 463      SEC_RESERVE = 67108864;
 464      PAGE_READONLY = 2;
 465      PAGE_READWRITE = 4;
 466      PAGE_WRITECOPY = 8;
 467      PAGE_EXECUTE = 16;
 468      PAGE_EXECUTE_READ = 32;
 469      PAGE_EXECUTE_READWRITE = 64;
 470      PAGE_EXECUTE_WRITECOPY = 128;
 471      PAGE_GUARD = 256;
 472      PAGE_NOACCESS = 1;
 473      PAGE_NOCACHE = 512;
 474      MEM_COMMIT = 4096;
 475      MEM_FREE = 65536;
 476      MEM_RESERVE = 8192;
 477      MEM_IMAGE = 16777216;
 478      MEM_MAPPED = 262144;
 479      MEM_PRIVATE = 131072;
 480      MEM_DECOMMIT = 16384;
 481      MEM_RELEASE = 32768;
 482      MEM_TOP_DOWN = 1048576;
 483      EXCEPTION_GUARD_PAGE = $80000001;
 484      SECTION_EXTEND_SIZE = $10;
 485      SECTION_MAP_READ = $4;
 486      SECTION_MAP_WRITE = $2;
 487      SECTION_QUERY = $1;
 488      SECTION_ALL_ACCESS = $f001f;
 489   { CreateFont  }
 490      FW_DONTCARE = 0;
 491      FW_THIN = 100;
 492      FW_EXTRALIGHT = 200;
 493      FW_LIGHT = 300;
 494      FW_NORMAL = 400;
 495      FW_REGULAR = FW_NORMAL;
 496      FW_MEDIUM = 500;
 497      FW_SEMIBOLD = 600;
 498      FW_BOLD = 700;
 499      FW_EXTRABOLD = 800;
 500      FW_HEAVY = 900;
 501      ANSI_CHARSET = 0;
 502      DEFAULT_CHARSET = 1;
 503      SYMBOL_CHARSET = 2;
 504      SHIFTJIS_CHARSET = 128;
 505      HANGEUL_CHARSET = 129;
 506      GB2312_CHARSET = 134;
 507      CHINESEBIG5_CHARSET = 136;
 508      GREEK_CHARSET = 161;
 509      TURKISH_CHARSET = 162;
 510      HEBREW_CHARSET = 177;
 511      ARABIC_CHARSET = 178;
 512      BALTIC_CHARSET = 186;
 513      RUSSIAN_CHARSET = 204;
 514      THAI_CHARSET = 222;
 515      EASTEUROPE_CHARSET = 238;
 516      OEM_CHARSET = 255;
 517      OUT_DEFAULT_PRECIS = 0;
 518      OUT_STRING_PRECIS = 1;
 519      OUT_CHARACTER_PRECIS = 2;
 520      OUT_STROKE_PRECIS = 3;
 521      OUT_TT_PRECIS = 4;
 522      OUT_DEVICE_PRECIS = 5;
 523      OUT_RASTER_PRECIS = 6;
 524      OUT_TT_ONLY_PRECIS = 7;
 525      OUT_OUTLINE_PRECIS = 8;
 526      CLIP_DEFAULT_PRECIS = 0;
 527      CLIP_CHARACTER_PRECIS = 1;
 528      CLIP_STROKE_PRECIS = 2;
 529      CLIP_MASK = 15;
 530      CLIP_LH_ANGLES = 16;
 531      CLIP_TT_ALWAYS = 32;
 532      CLIP_EMBEDDED = 128;
 533      DEFAULT_QUALITY = 0;
 534      DRAFT_QUALITY = 1;
 535      PROOF_QUALITY = 2;
 536      DEFAULT_PITCH = 0;
 537      FIXED_PITCH = 1;
 538      VARIABLE_PITCH = 2;
 539      FF_DECORATIVE = 80;
 540      FF_DONTCARE = 0;
 541      FF_MODERN = 48;
 542      FF_ROMAN = 16;
 543      FF_SCRIPT = 64;
 544      FF_SWISS = 32;
 545   { CreateHatchBrush  }
 546      HS_BDIAGONAL = 3;
 547      HS_CROSS = 4;
 548      HS_DIAGCROSS = 5;
 549      HS_FDIAGONAL = 2;
 550      HS_HORIZONTAL = 0;
 551      HS_VERTICAL = 1;
 552   { CreateIconFromResourceEx  }
 553      LR_DEFAULTCOLOR = 0;
 554      LR_LOADREALSIZE = 128;
 555   { already defined above !!
 556   #define LR_MONOCHROME (1)
 557    }
 558   { CreateMailslot, GetMailslotInfo  }
 559      MAILSLOT_WAIT_FOREVER = $ffffffff;
 560      MAILSLOT_NO_MESSAGE = $ffffffff;
 561   { CreateMappedBitmap  }
 562      CMB_MASKED = 2;
 563   { CreateNamedPipe  }
 564      PIPE_ACCESS_DUPLEX = 3;
 565      PIPE_ACCESS_INBOUND = 1;
 566      PIPE_ACCESS_OUTBOUND = 2;
 567      WRITE_DAC = $40000;
 568      WRITE_OWNER = $80000;
 569      ACCESS_SYSTEM_SECURITY = $1000000;
 570      PIPE_TYPE_BYTE = 0;
 571      PIPE_TYPE_MESSAGE = 4;
 572      PIPE_READMODE_BYTE = 0;
 573      PIPE_READMODE_MESSAGE = 2;
 574      PIPE_WAIT = 0;
 575      PIPE_NOWAIT = 1;
 576   { CreatePen, ExtCreatePen  }
 577      PS_GEOMETRIC = 65536;
 578      PS_COSMETIC = 0;
 579      PS_ALTERNATE = 8;
 580      PS_SOLID = 0;
 581      PS_DASH = 1;
 582      PS_DOT = 2;
 583      PS_DASHDOT = 3;
 584      PS_DASHDOTDOT = 4;
 585      PS_NULL = 5;
 586      PS_USERSTYLE = 7;
 587      PS_INSIDEFRAME = 6;
 588      PS_ENDCAP_ROUND = 0;
 589      PS_ENDCAP_SQUARE = 256;
 590      PS_ENDCAP_FLAT = 512;
 591      PS_JOIN_BEVEL = 4096;
 592      PS_JOIN_MITER = 8192;
 593      PS_JOIN_ROUND = 0;
 594      PS_STYLE_MASK = 15;
 595      PS_ENDCAP_MASK = 3840;
 596      PS_TYPE_MASK = 983040;
 597   { CreatePolygonRgn  }
 598      ALTERNATE = 1;
 599      WINDING = 2;
 600   { CreateProcess  }
 601      CREATE_DEFAULT_ERROR_MODE = 67108864;
 602      CREATE_NEW_CONSOLE = 16;
 603      CREATE_NEW_PROCESS_GROUP = 512;
 604      CREATE_SEPARATE_WOW_VDM = 2048;
 605      CREATE_SUSPENDED = 4;
 606      CREATE_UNICODE_ENVIRONMENT = 1024;
 607      DEBUG_PROCESS = 1;
 608      DEBUG_ONLY_THIS_PROCESS = 2;
 609      DETACHED_PROCESS = 8;
 610      HIGH_PRIORITY_CLASS = 128;
 611      IDLE_PRIORITY_CLASS = 64;
 612      NORMAL_PRIORITY_CLASS = 32;
 613      REALTIME_PRIORITY_CLASS = 256;
 614   { CreateService  }
 615      SERVICE_ALL_ACCESS = $f01ff;
 616      SERVICE_CHANGE_CONFIG = 2;
 617      SERVICE_ENUMERATE_DEPENDENTS = 8;
 618      SERVICE_INTERROGATE = 128;
 619      SERVICE_PAUSE_CONTINUE = 64;
 620      SERVICE_QUERY_CONFIG = 1;
 621      SERVICE_QUERY_STATUS = 4;
 622      SERVICE_START = 16;
 623      SERVICE_STOP = 32;
 624      SERVICE_USER_DEFINED_CONTROL = 256;
 625      SERVICE_DELETE = $10000;
 626      SERVICE_READ_CONTROL = $20000;
 627      SERVICE_GENERIC_EXECUTE = $20000000;
 628   { already defined above !!
 629   #define SERVICE_WIN32_OWN_PROCESS     (16)
 630   #define SERVICE_WIN32_SHARE_PROCESS   (32)
 631   #define SERVICE_KERNEL_DRIVER (1)
 632   #define SERVICE_FILE_SYSTEM_DRIVER    (2)
 633   #define SERVICE_INTERACTIVE_PROCESS   (256)
 634   #define SERVICE_BOOT_START    (0)
 635   #define SERVICE_SYSTEM_START  (1)
 636   #define SERVICE_AUTO_START    (2)
 637   #define SERVICE_DEMAND_START  (3)
 638   #define SERVICE_DISABLED      (4)
 639    }
 640      SERVICE_ERROR_IGNORE = 0;
 641      SERVICE_ERROR_NORMAL = 1;
 642      SERVICE_ERROR_SEVERE = 2;
 643      SERVICE_ERROR_CRITICAL = 3;
 644   { CreateTapePartition, WriteTapemark  }
 645      TAPE_FIXED_PARTITIONS = 0;
 646      TAPE_INITIATOR_PARTITIONS = $2;
 647      TAPE_SELECT_PARTITIONS = $1;
 648      TAPE_FILEMARKS = $1;
 649      TAPE_LONG_FILEMARKS = $3;
 650      TAPE_SETMARKS = 0;
 651      TAPE_SHORT_FILEMARKS = $2;
 652   { CreateWindow  }
 653      CW_USEDEFAULT = $80000000;
 654      WS_BORDER = $800000;
 655      WS_CAPTION = $c00000;
 656      WS_CHILD = $40000000;
 657      WS_CHILDWINDOW = $40000000;
 658      WS_CLIPCHILDREN = $2000000;
 659      WS_CLIPSIBLINGS = $4000000;
 660      WS_DISABLED = $8000000;
 661      WS_DLGFRAME = $400000;
 662      WS_GROUP = $20000;
 663      WS_HSCROLL = $100000;
 664      WS_ICONIC = $20000000;
 665      WS_MAXIMIZE = $1000000;
 666      WS_MAXIMIZEBOX = $10000;
 667      WS_MINIMIZE = $20000000;
 668      WS_MINIMIZEBOX = $20000;
 669      WS_OVERLAPPED = 0;
 670      WS_OVERLAPPEDWINDOW = $cf0000;
 671      WS_POPUP = $80000000;
 672      WS_POPUPWINDOW = $80880000;
 673      WS_SIZEBOX = $40000;
 674      WS_SYSMENU = $80000;
 675      WS_TABSTOP = $10000;
 676      WS_THICKFRAME = $40000;
 677      WS_TILED = 0;
 678      WS_TILEDWINDOW = $cf0000;
 679      WS_VISIBLE = $10000000;
 680      WS_VSCROLL = $200000;
 681      MDIS_ALLCHILDSTYLES = $1;
 682      BS_3STATE = $5;
 683      BS_AUTO3STATE = $6;
 684      BS_AUTOCHECKBOX = $3;
 685      BS_AUTORADIOBUTTON = $9;
 686      BS_BITMAP = $80;
 687      BS_BOTTOM = $800;
 688      BS_CENTER = $300;
 689      BS_CHECKBOX = $2;
 690      BS_DEFPUSHBUTTON = $1;
 691      BS_GROUPBOX = $7;
 692      BS_ICON = $40;
 693      BS_LEFT = $100;
 694      BS_LEFTTEXT = $20;
 695      BS_MULTILINE = $2000;
 696      BS_NOTIFY = $4000;
 697      BS_OWNERDRAW = $b;
 698      BS_PUSHBUTTON = 0;
 699      BS_PUSHLIKE = $1000;
 700      BS_RADIOBUTTON = $4;
 701      BS_RIGHT = $200;
 702      BS_RIGHTBUTTON = $20;
 703      BS_TEXT = 0;
 704      BS_TOP = $400;
 705      BS_USERBUTTON = $8;
 706      BS_VCENTER = $c00;
 707      CBS_AUTOHSCROLL = $40;
 708      CBS_DISABLENOSCROLL = $800;
 709      CBS_DROPDOWN = $2;
 710      CBS_DROPDOWNLIST = $3;
 711      CBS_HASSTRINGS = $200;
 712      CBS_LOWERCASE = $4000;
 713      CBS_NOINTEGRALHEIGHT = $400;
 714      CBS_OEMCONVERT = $80;
 715      CBS_OWNERDRAWFIXED = $10;
 716      CBS_OWNERDRAWVARIABLE = $20;
 717      CBS_SIMPLE = $1;
 718      CBS_SORT = $100;
 719      CBS_UPPERCASE = $2000;
 720      ES_AUTOHSCROLL = $80;
 721      ES_AUTOVSCROLL = $40;
 722      ES_CENTER = $1;
 723      ES_LEFT = 0;
 724      ES_LOWERCASE = $10;
 725      ES_MULTILINE = $4;
 726      ES_NOHIDESEL = $100;
 727      ES_NUMBER = $2000;
 728      ES_OEMCONVERT = $400;
 729      ES_PASSWORD = $20;
 730      ES_READONLY = $800;
 731      ES_RIGHT = $2;
 732      ES_UPPERCASE = $8;
 733      ES_WANTRETURN = $1000;
 734      LBS_DISABLENOSCROLL = $1000;
 735      LBS_EXTENDEDSEL = $800;
 736      LBS_HASSTRINGS = $40;
 737      LBS_MULTICOLUMN = $200;
 738      LBS_MULTIPLESEL = $8;
 739      LBS_NODATA = $2000;
 740      LBS_NOINTEGRALHEIGHT = $100;
 741      LBS_NOREDRAW = $4;
 742      LBS_NOSEL = $4000;
 743      LBS_NOTIFY = $1;
 744      LBS_OWNERDRAWFIXED = $10;
 745      LBS_OWNERDRAWVARIABLE = $20;
 746      LBS_SORT = $2;
 747      LBS_STANDARD = $a00003;
 748      LBS_USETABSTOPS = $80;
 749      LBS_WANTKEYBOARDINPUT = $400;
 750      SBS_BOTTOMALIGN = $4;
 751      SBS_HORZ = 0;
 752      SBS_LEFTALIGN = $2;
 753      SBS_RIGHTALIGN = $4;
 754      SBS_SIZEBOX = $8;
 755      SBS_SIZEBOXBOTTOMRIGHTALIGN = $4;
 756      SBS_SIZEBOXTOPLEFTALIGN = $2;
 757      SBS_SIZEGRIP = $10;
 758      SBS_TOPALIGN = $2;
 759      SBS_VERT = $1;
 760      SS_BITMAP = $e;
 761      SS_BLACKFRAME = $7;
 762      SS_BLACKRECT = $4;
 763      SS_CENTER = $1;
 764      SS_CENTERIMAGE = $200;
 765      SS_ENHMETAFILE = $f;
 766      SS_ETCHEDFRAME = $12;
 767      SS_ETCHEDHORZ = $10;
 768      SS_ETCHEDVERT = $11;
 769      SS_GRAYFRAME = $8;
 770      SS_GRAYRECT = $5;
 771      SS_ICON = $3;
 772      SS_LEFT = 0;
 773      SS_LEFTNOWORDWRAP = $c;
 774      SS_NOPREFIX = $80;
 775      SS_NOTIFY = $100;
 776      SS_OWNERDRAW = $d;
 777      SS_REALSIZEIMAGE = $800;
 778      SS_RIGHT = $2;
 779      SS_RIGHTJUST = $400;
 780      SS_SIMPLE = $b;
 781      SS_SUNKEN = $1000;
 782      SS_USERITEM = $a;
 783      SS_WHITEFRAME = $9;
 784      SS_WHITERECT = $6;
 785      DS_3DLOOK = $4;
 786      DS_ABSALIGN = $1;
 787      DS_CENTER = $800;
 788      DS_CENTERMOUSE = $1000;
 789      DS_CONTEXTHELP = $2000;
 790      DS_CONTROL = $400;
 791      DS_FIXEDSYS = $8;
 792      DS_LOCALEDIT = $20;
 793      DS_MODALFRAME = $80;
 794      DS_NOFAILCREATE = $10;
 795      DS_NOIDLEMSG = $100;
 796      DS_SETFONT = $40;
 797      DS_SETFOREGROUND = $200;
 798      DS_SYSMODAL = $2;
 799   { CreateWindowEx  }
 800      WS_EX_ACCEPTFILES = $10;
 801      WS_EX_APPWINDOW = $40000;
 802      WS_EX_CLIENTEDGE = $200;
 803      WS_EX_CONTEXTHELP = $400;
 804      WS_EX_CONTROLPARENT = $10000;
 805      WS_EX_DLGMODALFRAME = $1;
 806      WS_EX_LEFT = 0;
 807      WS_EX_LEFTSCROLLBAR = $4000;
 808      WS_EX_LTRREADING = 0;
 809      WS_EX_MDICHILD = $40;
 810      WS_EX_NOPARENTNOTIFY = $4;
 811      WS_EX_OVERLAPPEDWINDOW = $300;
 812      WS_EX_PALETTEWINDOW = $188;
 813      WS_EX_RIGHT = $1000;
 814      WS_EX_RIGHTSCROLLBAR = 0;
 815      WS_EX_RTLREADING = $2000;
 816      WS_EX_STATICEDGE = $20000;
 817      WS_EX_TOOLWINDOW = $80;
 818      WS_EX_TOPMOST = $8;
 819      WS_EX_TRANSPARENT = $20;
 820      WS_EX_WINDOWEDGE = $100;
 821   { CreateWindowStation  }
 822      WINSTA_ACCESSCLIPBOARD = $4;
 823      WINSTA_ACCESSGLOBALATOMS = $20;
 824      WINSTA_CREATEDESKTOP = $8;
 825      WINSTA_ENUMDESKTOPS = $1;
 826      WINSTA_ENUMERATE = $100;
 827      WINSTA_EXITWINDOWS = $40;
 828      WINSTA_READATTRIBUTES = $2;
 829      WINSTA_READSCREEN = $200;
 830      WINSTA_WRITEATTRIBUTES = $10;
 831   { DdeCallback  }
 832   { DdeClientTransaction  }
 833   { DdeEnableCallback  }
 834   { DdeGetLastError  }
 835   { DdeInitialize  }
 836   { DdeNameService  }
 837   { DebugProc  }
 838      WH_CALLWNDPROC = 4;
 839      WH_CALLWNDPROCRET = 12;
 840      WH_CBT = 5;
 841      WH_DEBUG = 9;
 842      WH_GETMESSAGE = 3;
 843      WH_JOURNALPLAYBACK = 1;
 844      WH_JOURNALRECORD = 0;
 845      WH_KEYBOARD = 2;
 846      WH_MOUSE = 7;
 847      WH_MSGFILTER = -(1);
 848      WH_SHELL = 10;
 849      WH_SYSMSGFILTER = 6;
 850   { already defined above !!
 851   #define WH_MSGFILTER  (-1)  }
 852      WH_FOREGROUNDIDLE = 11;
 853   { DefineDosDevice  }
 854      DDD_RAW_TARGET_PATH = 1;
 855      DDD_REMOVE_DEFINITION = 2;
 856      DDD_EXACT_MATCH_ON_REMOVE = 4;
 857   { DeviceCapbilities  }
 858      DC_BINNAMES = 12;
 859      DC_BINS = 6;
 860      DC_COPIES = 18;
 861      DC_DRIVER = 11;
 862      DC_DATATYPE_PRODUCED = 21;
 863      DC_DUPLEX = 7;
 864      DC_EMF_COMPLIANT = 20;
 865      DC_ENUMRESOLUTIONS = 13;
 866      DC_EXTRA = 9;
 867      DC_FIELDS = 1;
 868      DC_FILEDEPENDENCIES = 14;
 869      DC_MAXEXTENT = 5;
 870      DC_MINEXTENT = 4;
 871      DC_ORIENTATION = 17;
 872      DC_PAPERNAMES = 16;
 873      DC_PAPERS = 2;
 874      DC_PAPERSIZE = 3;
 875      DC_SIZE = 8;
 876      DC_TRUETYPE = 15;
 877      DCTT_BITMAP = $1;
 878      DCTT_DOWNLOAD = $2;
 879      DCTT_SUBDEV = $4;
 880      DC_VERSION = 10;
 881      DC_BINADJUST = 19;
 882   { already defined above !!
 883   #define DC_DATATYPE_PRODUCED  (21)
 884    }
 885   { DeviceIoControl  }
 886   { DlgDirList  }
 887      DDL_ARCHIVE = 32;
 888      DDL_DIRECTORY = 16;
 889      DDL_DRIVES = 16384;
 890      DDL_EXCLUSIVE = 32768;
 891      DDL_HIDDEN = 2;
 892      DDL_READONLY = 1;
 893      DDL_READWRITE = 0;
 894      DDL_SYSTEM = 4;
 895      DDL_POSTMSGS = 8192;
 896   { DllEntryPoint  }
 897      DLL_PROCESS_ATTACH = 1;
 898      DLL_THREAD_ATTACH = 2;
 899      DLL_PROCESS_DETACH = 0;
 900      DLL_THREAD_DETACH = 3;
 901   { DocumentProperties  }
 902      DM_IN_BUFFER = 8;
 903      DM_MODIFY = 8;
 904      DM_IN_PROMPT = 4;
 905      DM_PROMPT = 4;
 906      DM_OUT_BUFFER = 2;
 907      DM_COPY = 2;
 908      DM_UPDATE = 1;
 909   { DrawAnimatedRects  }
 910      IDANI_OPEN = 1;
 911      IDANI_CLOSE = 2;
 912   { DrawCaption  }
 913      DC_ACTIVE = 1;
 914      DC_SMALLCAP = 2;
 915   { DrawEdge  }
 916      BDR_RAISEDINNER = 4;
 917      BDR_SUNKENINNER = 8;
 918      BDR_RAISEDOUTER = 1;
 919      BDR_SUNKENOUTER = 1;
 920      EDGE_BUMP = 9;
 921      EDGE_ETCHED = 6;
 922      EDGE_RAISED = 5;
 923      EDGE_SUNKEN = 10;
 924      BF_ADJUST = 8192;
 925      BF_BOTTOM = 8;
 926      BF_BOTTOMLEFT = 9;
 927      BF_BOTTOMRIGHT = 12;
 928      BF_DIAGONAL = 16;
 929      BF_DIAGONAL_ENDBOTTOMLEFT = 25;
 930      BF_DIAGONAL_ENDBOTTOMRIGHT = 28;
 931      BF_DIAGONAL_ENDTOPLEFT = 19;
 932      BF_DIAGONAL_ENDTOPRIGHT = 22;
 933      BF_FLAT = 16384;
 934      BF_LEFT = 1;
 935      BF_MIDDLE = 2048;
 936      BF_MONO = 32768;
 937      BF_RECT = 15;
 938      BF_RIGHT = 4;
 939      BF_SOFT = 4096;
 940      BF_TOP = 2;
 941      BF_TOPLEFT = 3;
 942      BF_TOPRIGHT = 6;
 943   { DrawFrameControl  }
 944      DFC_BUTTON = 4;
 945      DFC_CAPTION = 1;
 946      DFC_MENU = 2;
 947      DFC_SCROLL = 3;
 948      DFCS_BUTTON3STATE = 8;
 949      DFCS_BUTTONCHECK = 0;
 950      DFCS_BUTTONPUSH = 16;
 951      DFCS_BUTTONRADIO = 4;
 952      DFCS_BUTTONRADIOIMAGE = 1;
 953      DFCS_BUTTONRADIOMASK = 2;
 954      DFCS_CAPTIONCLOSE = 0;
 955      DFCS_CAPTIONHELP = 4;
 956      DFCS_CAPTIONMAX = 2;
 957      DFCS_CAPTIONMIN = 1;
 958      DFCS_CAPTIONRESTORE = 3;
 959      DFCS_MENUARROW = 0;
 960      DFCS_MENUBULLET = 2;
 961      DFCS_MENUCHECK = 1;
 962      DFCS_SCROLLCOMBOBOX = 5;
 963      DFCS_SCROLLDOWN = 1;
 964      DFCS_SCROLLLEFT = 2;
 965      DFCS_SCROLLRIGHT = 3;
 966      DFCS_SCROLLSIZEGRIP = 8;
 967      DFCS_SCROLLUP = 0;
 968      DFCS_ADJUSTRECT = 8192;
 969      DFCS_CHECKED = 1024;
 970      DFCS_FLAT = 16384;
 971      DFCS_INACTIVE = 256;
 972      DFCS_MONO = 32768;
 973      DFCS_PUSHED = 512;
 974   { DrawIconEx  }
 975      DI_COMPAT = 4;
 976      DI_DEFAULTSIZE = 8;
 977      DI_IMAGE = 2;
 978      DI_MASK = 1;
 979      DI_NORMAL = 3;
 980   { DrawState  }
 981      DST_BITMAP = 4;
 982      DST_COMPLEX = 0;
 983      DST_ICON = 3;
 984      DST_PREFIXTEXT = 2;
 985      DST_TEXT = 1;
 986      DSS_NORMAL = 0;
 987      DSS_UNION = 16;
 988      DSS_DISABLED = 32;
 989      DSS_MONO = 128;
 990   { DrawStatusText  }
 991      SBT_NOBORDERS = 256;
 992      SBT_OWNERDRAW = 4096;
 993      SBT_POPOUT = 512;
 994      SBT_RTLREADING = 1024;
 995   { DrawText, DrawTextEx  }
 996      DT_BOTTOM = 8;
 997      DT_CALCRECT = 1024;
 998      DT_CENTER = 1;
 999      DT_EDITCONTROL = 8192;
1000      DT_END_ELLIPSIS = 32768;
1001      DT_PATH_ELLIPSIS = 16384;
1002      DT_EXPANDTABS = 64;
1003      DT_EXTERNALLEADING = 512;
1004      DT_LEFT = 0;
1005      DT_MODIFYSTRING = 65536;
1006      DT_NOCLIP = 256;
1007      DT_NOPREFIX = 2048;
1008      DT_RIGHT = 2;
1009      DT_RTLREADING = 131072;
1010      DT_SINGLELINE = 32;
1011      DT_TABSTOP = 128;
1012      DT_TOP = 0;
1013      DT_VCENTER = 4;
1014      DT_WORDBREAK = 16;
1015      DT_INTERNAL = 4096;
1016   { DuplicateHandle, MapViewOfFile  }
1017      DUPLICATE_CLOSE_SOURCE = 1;
1018      DUPLICATE_SAME_ACCESS = 2;
1019      FILE_MAP_ALL_ACCESS = $f001f;
1020      FILE_MAP_READ = 4;
1021      FILE_MAP_WRITE = 2;
1022      FILE_MAP_COPY = 1;
1023      MUTEX_ALL_ACCESS = $1f0001;
1024      MUTEX_MODIFY_STATE = 1;
1025      SYNCHRONIZE = $100000;
1026      SEMAPHORE_ALL_ACCESS = $1f0003;
1027      SEMAPHORE_MODIFY_STATE = 2;
1028      EVENT_ALL_ACCESS = $1f0003;
1029      EVENT_MODIFY_STATE = 2;
1030      KEY_ALL_ACCESS = $f003f;
1031      KEY_CREATE_LINK = 32;
1032      KEY_CREATE_SUB_KEY = 4;
1033      KEY_ENUMERATE_SUB_KEYS = 8;
1034      KEY_EXECUTE = $20019;
1035      KEY_NOTIFY = 16;
1036      KEY_QUERY_VALUE = 1;
1037      KEY_READ = $20019;
1038      KEY_SET_VALUE = 2;
1039      KEY_WRITE = $20006;
1040      PROCESS_ALL_ACCESS = $1f0fff;
1041      PROCESS_CREATE_PROCESS = 128;
1042      PROCESS_CREATE_THREAD = 2;
1043      PROCESS_DUP_HANDLE = 64;
1044      PROCESS_QUERY_INFORMATION = 1024;
1045      PROCESS_SET_INFORMATION = 512;
1046      PROCESS_TERMINATE = 1;
1047      PROCESS_VM_OPERATION = 8;
1048      PROCESS_VM_READ = 16;
1049      PROCESS_VM_WRITE = 32;
1050      THREAD_ALL_ACCESS = $1f03ff;
1051      THREAD_DIRECT_IMPERSONATION = 512;
1052      THREAD_GET_CONTEXT = 8;
1053      THREAD_IMPERSONATE = 256;
1054      THREAD_QUERY_INFORMATION = 64;
1055      THREAD_SET_CONTEXT = 16;
1056      THREAD_SET_INFORMATION = 32;
1057      THREAD_SET_THREAD_TOKEN = 128;
1058      THREAD_SUSPEND_RESUME = 2;
1059      THREAD_TERMINATE = 1;
1060   { EditWordBreakProc  }
1061      WB_ISDELIMITER = 2;
1062      WB_LEFT = 0;
1063      WB_RIGHT = 1;
1064   { EnableScrollBar  }
1065      SB_BOTH = 3;
1066      SB_CTL = 2;
1067      SB_HORZ = 0;
1068      SB_VERT = 1;
1069      ESB_DISABLE_BOTH = 3;
1070      ESB_DISABLE_DOWN = 2;
1071      ESB_DISABLE_LEFT = 1;
1072      ESB_DISABLE_LTUP = 1;
1073      ESB_DISABLE_RIGHT = 2;
1074      ESB_DISABLE_RTDN = 2;
1075      ESB_DISABLE_UP = 1;
1076      ESB_ENABLE_BOTH = 0;
1077   { Scroll Bar notifications }
1078      SB_LINEUP = 0;
1079      SB_LINEDOWN = 1;
1080      SB_LINELEFT = 0;
1081      SB_LINERIGHT = 1;
1082      SB_PAGEUP = 2;
1083      SB_PAGEDOWN = 3;
1084      SB_PAGELEFT = 2;
1085      SB_PAGERIGHT = 3;
1086      SB_THUMBPOSITION = 4;
1087      SB_THUMBTRACK = 5;
1088      SB_ENDSCROLL = 8;
1089      SB_LEFT = 6;
1090      SB_RIGHT = 7;
1091      SB_BOTTOM = 7;
1092      SB_TOP = 6;
1093   { EnumCalendarInfo  }
1094      ENUM_ALL_CALENDARS = -(1);
1095   { EnumDateFormats  }
1096      DATE_SHORTDATE = 1;
1097      DATE_LONGDATE = 2;
1098   { EnumDependentServices  }
1099      SERVICE_ACTIVE = 1;
1100      SERVICE_INACTIVE = 2;
1101   { EnumFontFamExProc  }
1102      DEVICE_FONTTYPE = 2;
1103      RASTER_FONTTYPE = 1;
1104      TRUETYPE_FONTTYPE = 4;
1105   { EnumObjects, GetCurrentObject, GetObjectType  }
1106      OBJ_BRUSH = 2;
1107      OBJ_PEN = 1;
1108      OBJ_PAL = 5;
1109      OBJ_FONT = 6;
1110      OBJ_BITMAP = 7;
1111      OBJ_EXTPEN = 11;
1112      OBJ_REGION = 8;
1113      OBJ_DC = 3;
1114      OBJ_MEMDC = 10;
1115      OBJ_METAFILE = 9;
1116      OBJ_METADC = 4;
1117      OBJ_ENHMETAFILE = 13;
1118      OBJ_ENHMETADC = 12;
1119   { EnumPrinters  }
1120   { EnumProtocols  }
1121   { EnumResLangProc  }
1122     { was #define dname def_expr }
1123     function RT_ACCELERATOR : LPTSTR;
1124       { return type might be wrong }
1125
1126     { was #define dname def_expr }
1127     function RT_BITMAP : LPTSTR;
1128       { return type might be wrong }
1129
1130     { was #define dname def_expr }
1131     function RT_DIALOG : LPTSTR;
1132       { return type might be wrong }
1133
1134     { was #define dname def_expr }
1135     function RT_FONT : LPTSTR;
1136       { return type might be wrong }
1137
1138     { was #define dname def_expr }
1139     function RT_FONTDIR : LPTSTR;
1140       { return type might be wrong }
1141
1142     { was #define dname def_expr }
1143     function RT_MENU : LPTSTR;
1144       { return type might be wrong }
1145
1146     { was #define dname def_expr }
1147     function RT_RCDATA : LPTSTR;
1148       { return type might be wrong }
1149
1150     { was #define dname def_expr }
1151     function RT_STRING : LPTSTR;
1152       { return type might be wrong }
1153
1154     { was #define dname def_expr }
1155     function RT_MESSAGETABLE : LPTSTR;
1156       { return type might be wrong }
1157
1158     { was #define dname def_expr }
1159     function RT_CURSOR : LPTSTR;
1160       { return type might be wrong }
1161
1162     { was #define dname def_expr }
1163     function RT_GROUP_CURSOR : LPTSTR;
1164       { return type might be wrong }
1165
1166     { was #define dname def_expr }
1167     function RT_ICON : LPTSTR;
1168       { return type might be wrong }
1169
1170     { was #define dname def_expr }
1171     function RT_GROUP_ICON : LPTSTR;
1172       { return type might be wrong }
1173
1174     { was #define dname def_expr }
1175     function RT_VERSION : LPTSTR;
1176       { return type might be wrong }
1177
1178   { EnumServicesStatus  }
1179
1180   const
1181      SERVICE_WIN32 = 48;
1182      SERVICE_DRIVER = 11;
1183   { EnumSystemCodePages  }
1184      CP_INSTALLED = 1;
1185      CP_SUPPORTED = 2;
1186   { EnumSystemLocales  }
1187      LCID_INSTALLED = 1;
1188      LCID_SUPPORTED = 2;
1189   { EraseTape  }
1190      TAPE_ERASE_LONG = $1;
1191      TAPE_ERASE_SHORT = 0;
1192   { Escape  }
1193      SP_ERROR = -(1);
1194      SP_OUTOFDISK = -(4);
1195      SP_OUTOFMEMORY = -(5);
1196      SP_USERABORT = -(3);
1197      PHYSICALWIDTH = 110;
1198      PHYSICALHEIGHT = 111;
1199      PHYSICALOFFSETX = 112;
1200      PHYSICALOFFSETY = 113;
1201      SCALINGFACTORX = 114;
1202      SCALINGFACTORY = 115;
1203      QUERYESCSUPPORT = 8;
1204      {ABORTDOC = 2; conflicts with AbortDoc function }
1205      cABORTDOC = 2;
1206      {ENDDOC = 11; conflicts with AbortDoc function }
1207      cENDDOC = 11;
1208      GETPHYSPAGESIZE = 12;
1209      GETPRINTINGOFFSET = 13;
1210      GETSCALINGFACTOR = 14;
1211      NEWFRAME = 1;
1212      NEXTBAND = 3;
1213      PASSTHROUGH = 19;
1214      {SETABORTPROC = 9; conflicts with AbortDoc function }
1215      cSETABORTPROC = 9;
1216      {STARTDOC = 10; conflicts with AbortDoc function }
1217      cSTARTDOC = 10;
1218   { EscapeCommFunction  }
1219      CLRDTR = 6;
1220      CLRRTS = 4;
1221      SETDTR = 5;
1222      SETRTS = 3;
1223      SETXOFF = 1;
1224      SETXON = 2;
1225      SETBREAK = 8;
1226      CLRBREAK = 9;
1227   { ExitWindowsEx  }
1228      EWX_FORCE = 4;
1229      EWX_LOGOFF = 0;
1230      EWX_POWEROFF = 8;
1231      EWX_REBOOT = 2;
1232      EWX_SHUTDOWN = 1;
1233   { ExtFloodFill  }
1234      FLOODFILLBORDER = 0;
1235      FLOODFILLSURFACE = 1;
1236   { ExtTextOut  }
1237      ETO_CLIPPED = 4;
1238      ETO_GLYPH_INDEX = 16;
1239      ETO_OPAQUE = 2;
1240      ETO_RTLREADING = 128;
1241   { FillConsoleOutputAttribute  }
1242      FOREGROUND_BLUE = 1;
1243      FOREGROUND_GREEN = 2;
1244      FOREGROUND_RED = 4;
1245      FOREGROUND_INTENSITY = 8;
1246      BACKGROUND_BLUE = 16;
1247      BACKGROUND_GREEN = 32;
1248      BACKGROUND_RED = 64;
1249      BACKGROUND_INTENSITY = 128;
1250   { FindFirstChangeNotification  }
1251      FILE_NOTIFY_CHANGE_FILE_NAME = 1;
1252      FILE_NOTIFY_CHANGE_DIR_NAME = 2;
1253      FILE_NOTIFY_CHANGE_ATTRIBUTES = 4;
1254      FILE_NOTIFY_CHANGE_SIZE = 8;
1255      FILE_NOTIFY_CHANGE_LAST_WRITE = 16;
1256      FILE_NOTIFY_CHANGE_SECURITY = 256;
1257   { FindFirstPrinterChangeNotification  }
1258   { FindNextPrinterNotification  }
1259   { FMExtensionProc  }
1260   { FoldString  }
1261      MAP_FOLDCZONE = 16;
1262      MAP_FOLDDIGITS = 128;
1263      MAP_PRECOMPOSED = 32;
1264      MAP_COMPOSITE = 64;
1265   { ForegroundIdleProc  }
1266      HC_ACTION = 0;
1267   { FormatMessage  }
1268      FORMAT_MESSAGE_ALLOCATE_BUFFER = 256;
1269      FORMAT_MESSAGE_IGNORE_INSERTS = 512;
1270      FORMAT_MESSAGE_FROM_STRING = 1024;
1271      FORMAT_MESSAGE_FROM_HMODULE = 2048;
1272      FORMAT_MESSAGE_FROM_SYSTEM = 4096;
1273      FORMAT_MESSAGE_ARGUMENT_ARRAY = 8192;
1274      FORMAT_MESSAGE_MAX_WIDTH_MASK = 255;
1275   { GdiComment  }
1276      GDICOMMENT_WINDOWS_METAFILE = -(2147483647);
1277      GDICOMMENT_BEGINGROUP = 2;
1278      GDICOMMENT_ENDGROUP = 3;
1279      GDICOMMENT_MULTIFORMATS = 1073741828;
1280      GDICOMMENT_IDENTIFIER = 1128875079;
1281   { GenerateConsoleCtrlEvent, HandlerRoutine  }
1282      CTRL_C_EVENT = 0;
1283      CTRL_BREAK_EVENT = 1;
1284      CTRL_CLOSE_EVENT = 2;
1285      CTRL_LOGOFF_EVENT = 5;
1286      CTRL_SHUTDOWN_EVENT = 6;
1287   { GetAddressByName  }
1288   { GetArcDirection  }
1289      AD_COUNTERCLOCKWISE = 1;
1290      AD_CLOCKWISE = 2;
1291   { GetBinaryTypes  }
1292      SCS_32BIT_BINARY = 0;
1293      SCS_DOS_BINARY = 1;
1294      SCS_OS216_BINARY = 5;
1295      SCS_PIF_BINARY = 3;
1296      SCS_POSIX_BINARY = 4;
1297      SCS_WOW_BINARY = 2;
1298   { GetBoundsRect, SetBoundsRect  }
1299      DCB_DISABLE = 8;
1300      DCB_ENABLE = 4;
1301      DCB_RESET = 1;
1302      DCB_SET = 3;
1303      DCB_ACCUMULATE = 2;
1304   { GetCharacterPlacement, GetFontLanguageInfo  }
1305      GCP_DBCS = 1;
1306      GCP_ERROR = $8000;
1307      GCP_CLASSIN = $80000;
1308      GCP_DIACRITIC = 256;
1309      GCP_DISPLAYZWG = $400000;
1310      GCP_GLYPHSHAPE = 16;
1311      GCP_JUSTIFY = $10000;
1312      GCP_JUSTIFYIN = $200000;
1313      GCP_KASHIDA = 1024;
1314      GCP_LIGATE = 32;
1315      GCP_MAXEXTENT = $100000;
1316      GCP_NEUTRALOVERRIDE = $2000000;
1317      GCP_NUMERICOVERRIDE = $1000000;
1318      GCP_NUMERICSLATIN = $4000000;
1319      GCP_NUMERICSLOCAL = $8000000;
1320      GCP_REORDER = 2;
1321      GCP_SYMSWAPOFF = $800000;
1322      GCP_USEKERNING = 8;
1323      FLI_GLYPHS = $40000;
1324      FLI_MASK = $103b;
1325   { GetClassLong, GetClassWord  }
1326      GCW_ATOM = -(32);
1327      GCL_CBCLSEXTRA = -(20);
1328      GCL_CBWNDEXTRA = -(18);
1329      GCL_HBRBACKGROUND = -(10);
1330      GCL_HCURSOR = -(12);
1331      GCL_HICON = -(14);
1332      GCL_HICONSM = -(34);
1333      GCL_HMODULE = -(16);
1334      GCL_MENUNAME = -(8);
1335      GCL_STYLE = -(26);
1336      GCL_WNDPROC = -(24);
1337   { GetClipboardFormat, SetClipboardData  }
1338      CF_BITMAP = 2;
1339      CF_DIB = 8;
1340      CF_PALETTE = 9;
1341      CF_ENHMETAFILE = 14;
1342      CF_METAFILEPICT = 3;
1343      CF_OEMTEXT = 7;
1344      CF_TEXT = 1;
1345      CF_UNICODETEXT = 13;
1346      CF_DIF = 5;
1347      CF_DSPBITMAP = 130;
1348      CF_DSPENHMETAFILE = 142;
1349      CF_DSPMETAFILEPICT = 131;
1350      CF_DSPTEXT = 129;
1351      CF_GDIOBJFIRST = 768;
1352      CF_GDIOBJLAST = 1023;
1353      CF_HDROP = 15;
1354      CF_LOCALE = 16;
1355      CF_OWNERDISPLAY = 128;
1356      CF_PENDATA = 10;
1357      CF_PRIVATEFIRST = 512;
1358      CF_PRIVATELAST = 767;
1359      CF_RIFF = 11;
1360      CF_SYLK = 4;
1361      CF_WAVE = 12;
1362      CF_TIFF = 6;
1363   { GetCommMask  }
1364      EV_BREAK = 64;
1365      EV_CTS = 8;
1366      EV_DSR = 16;
1367      EV_ERR = 128;
1368      EV_EVENT1 = 2048;
1369      EV_EVENT2 = 4096;
1370      EV_PERR = 512;
1371      EV_RING = 256;
1372      EV_RLSD = 32;
1373      EV_RX80FULL = 1024;
1374      EV_RXCHAR = 1;
1375      EV_RXFLAG = 2;
1376      EV_TXEMPTY = 4;
1377   { GetCommModemStatus  }
1378      MS_CTS_ON = $10;
1379      MS_DSR_ON = $20;
1380      MS_RING_ON = $40;
1381      MS_RLSD_ON = $80;
1382   { GetComputerName  }
1383      MAX_COMPUTERNAME_LENGTH = 15;
1384   { GetConsoleMode  }
1385      ENABLE_LINE_INPUT = 2;
1386      ENABLE_ECHO_INPUT = 4;
1387      ENABLE_PROCESSED_INPUT = 1;
1388      ENABLE_WINDOW_INPUT = 8;
1389      ENABLE_MOUSE_INPUT = 16;
1390      ENABLE_PROCESSED_OUTPUT = 1;
1391      ENABLE_WRAP_AT_EOL_OUTPUT = 2;
1392   { GetCPInfo  }
1393      CP_ACP = 0;
1394      CP_MACCP = 2;
1395      CP_OEMCP = 1;
1396   { GetDateFormat  }
1397   { already defined above !!
1398   #define DATE_SHORTDATE        (1)
1399   #define DATE_LONGDATE (2)
1400    }
1401      DATE_USE_ALT_CALENDAR = 4;
1402   { GetDCEx  }
1403      DCX_WINDOW = $1;
1404      DCX_CACHE = $2;
1405      DCX_PARENTCLIP = $20;
1406      DCX_CLIPSIBLINGS = $10;
1407      DCX_CLIPCHILDREN = $8;
1408      DCX_NORESETATTRS = $4;
1409      DCX_LOCKWINDOWUPDATE = $400;
1410      DCX_EXCLUDERGN = $40;
1411      DCX_INTERSECTRGN = $80;
1412      DCX_VALIDATE = $200000;
1413   { GetDeviceCaps  }
1414      DRIVERVERSION = 0;
1415      TECHNOLOGY = 2;
1416      DT_PLOTTER = 0;
1417      DT_RASDISPLAY = 1;
1418      DT_RASPRINTER = 2;
1419      DT_RASCAMERA = 3;
1420      DT_CHARSTREAM = 4;
1421      DT_METAFILE = 5;
1422      DT_DISPFILE = 6;
1423      HORZSIZE = 4;
1424      VERTSIZE = 6;
1425      HORZRES = 8;
1426      VERTRES = 10;
1427      LOGPIXELSX = 88;
1428      LOGPIXELSY = 90;
1429      BITSPIXEL = 12;
1430      PLANES = 14;
1431      NUMBRUSHES = 16;
1432      NUMPENS = 18;
1433      NUMFONTS = 22;
1434      NUMCOLORS = 24;
1435      ASPECTX = 40;
1436      ASPECTY = 42;
1437      ASPECTXY = 44;
1438      PDEVICESIZE = 26;
1439      CLIPCAPS = 36;
1440      SIZEPALETTE = 104;
1441      NUMRESERVED = 106;
1442      COLORRES = 108;
1443   { already defined above !!
1444   #define PHYSICALWIDTH (110)
1445   #define PHYSICALHEIGHT        (111)
1446   #define PHYSICALOFFSETX       (112)
1447   #define PHYSICALOFFSETY       (113)
1448   #define SCALINGFACTORX        (114)
1449   #define SCALINGFACTORY        (115)
1450    }
1451      VREFRESH = 116;
1452      DESKTOPHORZRES = 118;
1453      DESKTOPVERTRES = 117;
1454      BLTALIGNMENT = 119;
1455      RASTERCAPS = 38;
1456      RC_BANDING = 2;
1457      RC_BITBLT = 1;
1458      RC_BITMAP64 = 8;
1459      RC_DI_BITMAP = 128;
1460      RC_DIBTODEV = 512;
1461      RC_FLOODFILL = 4096;
1462      RC_GDI20_OUTPUT = 16;
1463      RC_PALETTE = 256;
1464      RC_SCALING = 4;
1465      RC_STRETCHBLT = 2048;
1466      RC_STRETCHDIB = 8192;
1467      CURVECAPS = 28;
1468      CC_NONE = 0;
1469      CC_CIRCLES = 1;
1470      CC_PIE = 2;
1471      CC_CHORD = 4;
1472      CC_ELLIPSES = 8;
1473      CC_WIDE = 16;
1474      CC_STYLED = 32;
1475      CC_WIDESTYLED = 64;
1476      CC_INTERIORS = 128;
1477      CC_ROUNDRECT = 256;
1478      LINECAPS = 30;
1479      LC_NONE = 0;
1480      LC_POLYLINE = 2;
1481      LC_MARKER = 4;
1482      LC_POLYMARKER = 8;
1483      LC_WIDE = 16;
1484      LC_STYLED = 32;
1485      LC_WIDESTYLED = 64;
1486      LC_INTERIORS = 128;
1487      POLYGONALCAPS = 32;
1488      PC_NONE = 0;
1489      PC_POLYGON = 1;
1490      PC_RECTANGLE = 2;
1491      PC_WINDPOLYGON = 4;
1492      PC_SCANLINE = 8;
1493      PC_WIDE = 16;
1494      PC_STYLED = 32;
1495      PC_WIDESTYLED = 64;
1496      PC_INTERIORS = 128;
1497      TEXTCAPS = 34;
1498      TC_OP_CHARACTER = 1;
1499      TC_OP_STROKE = 2;
1500      TC_CP_STROKE = 4;
1501      TC_CR_90 = 8;
1502      TC_CR_ANY = 16;
1503      TC_SF_X_YINDEP = 32;
1504      TC_SA_DOUBLE = 64;
1505      TC_SA_INTEGER = 128;
1506      TC_SA_CONTIN = 256;
1507      TC_EA_DOUBLE = 512;
1508      TC_IA_ABLE = 1024;
1509      TC_UA_ABLE = 2048;
1510      TC_SO_ABLE = 4096;
1511      TC_RA_ABLE = 8192;
1512      TC_VA_ABLE = 16384;
1513      TC_RESERVED = 32768;
1514      TC_SCROLLBLT = 65536;
1515      PC_PATHS = 512;
1516   { GetDriveType  }
1517      DRIVE_REMOVABLE = 2;
1518      DRIVE_FIXED = 3;
1519      DRIVE_REMOTE = 4;
1520      DRIVE_CDROM = 5;
1521      DRIVE_RAMDISK = 6;
1522      DRIVE_UNKNOWN = 0;
1523      DRIVE_NO_ROOT_DIR = 1;
1524   { GetExceptionCode  }
1525      EXCEPTION_ACCESS_VIOLATION = $c0000005;
1526      EXCEPTION_BREAKPOINT = $80000003;
1527      EXCEPTION_DATATYPE_MISALIGNMENT = $80000002;
1528      EXCEPTION_SINGLE_STEP = $80000004;
1529      EXCEPTION_ARRAY_BOUNDS_EXCEEDED = $c000008c;
1530      EXCEPTION_FLT_DENORMAL_OPERAND = $c000008d;
1531      EXCEPTION_FLT_DIVIDE_BY_ZERO = $c000008e;
1532      EXCEPTION_FLT_INEXACT_RESULT = $c000008f;
1533      EXCEPTION_FLT_INVALID_OPERATION = $c0000090;
1534      EXCEPTION_FLT_OVERFLOW = $c0000091;
1535      EXCEPTION_FLT_STACK_CHECK = $c0000092;
1536      EXCEPTION_FLT_UNDERFLOW = $c0000093;
1537      EXCEPTION_INT_DIVIDE_BY_ZERO = $c0000094;
1538      EXCEPTION_INT_OVERFLOW = $c0000095;
1539      EXCEPTION_INVALID_HANDLE = $c0000008;
1540      EXCEPTION_PRIV_INSTRUCTION = $c0000096;
1541      EXCEPTION_NONCONTINUABLE_EXCEPTION = $c0000025;
1542      EXCEPTION_NONCONTINUABLE = $1;
1543      EXCEPTION_STACK_OVERFLOW = $c00000fd;
1544      EXCEPTION_INVALID_DISPOSITION = $c0000026;
1545   { GetFileType  }
1546      FILE_TYPE_UNKNOWN = 0;
1547      FILE_TYPE_DISK = 1;
1548      FILE_TYPE_CHAR = 2;
1549      FILE_TYPE_PIPE = 3;
1550   { GetGlyphOutline  }
1551      GGO_BITMAP = 1;
1552      GGO_NATIVE = 2;
1553      GGO_METRICS = 0;
1554      GGO_GRAY2_BITMAP = 4;
1555      GGO_GRAY4_BITMAP = 5;
1556      GGO_GRAY8_BITMAP = 6;
1557      GDI_ERROR = $ffffffff;
1558   { GetGraphicsMode  }
1559      GM_COMPATIBLE = 1;
1560      GM_ADVANCED = 2;
1561   { GetHandleInformation  }
1562      HANDLE_FLAG_INHERIT = 1;
1563      HANDLE_FLAG_PROTECT_FROM_CLOSE = 2;
1564   { GetIconInfo  }
1565     { was #define dname def_expr }
1566     function IDC_ARROW : LPTSTR;
1567       { return type might be wrong }
1568
1569     { was #define dname def_expr }
1570     function IDC_IBEAM : LPTSTR;
1571       { return type might be wrong }
1572
1573     { was #define dname def_expr }
1574     function IDC_WAIT : LPTSTR;
1575       { return type might be wrong }
1576
1577     { was #define dname def_expr }
1578     function IDC_CROSS : LPTSTR;
1579       { return type might be wrong }
1580
1581     { was #define dname def_expr }
1582     function IDC_UPARROW : LPTSTR;
1583       { return type might be wrong }
1584
1585     { was #define dname def_expr }
1586     function IDC_SIZENWSE : LPTSTR;
1587       { return type might be wrong }
1588
1589     { was #define dname def_expr }
1590     function IDC_SIZENESW : LPTSTR;
1591       { return type might be wrong }
1592
1593     { was #define dname def_expr }
1594     function IDC_SIZEWE : LPTSTR;
1595       { return type might be wrong }
1596
1597     { was #define dname def_expr }
1598     function IDC_SIZENS : LPTSTR;
1599       { return type might be wrong }
1600
1601     { was #define dname def_expr }
1602     function IDC_SIZEALL : LPTSTR;
1603       { return type might be wrong }
1604
1605     { was #define dname def_expr }
1606     function IDC_NO : LPTSTR;
1607       { return type might be wrong }
1608
1609     { was #define dname def_expr }
1610     function IDC_APPSTARTING : LPTSTR;
1611       { return type might be wrong }
1612
1613     { was #define dname def_expr }
1614     function IDC_HELP : LPTSTR;
1615       { return type might be wrong }
1616
1617     { was #define dname def_expr }
1618     function IDI_APPLICATION : LPTSTR;
1619       { return type might be wrong }
1620
1621     { was #define dname def_expr }
1622     function IDI_HAND : LPTSTR;
1623       { return type might be wrong }
1624
1625     { was #define dname def_expr }
1626     function IDI_QUESTION : LPTSTR;
1627       { return type might be wrong }
1628
1629     { was #define dname def_expr }
1630     function IDI_EXCLAMATION : LPTSTR;
1631       { return type might be wrong }
1632
1633     { was #define dname def_expr }
1634     function IDI_ASTERISK : LPTSTR;
1635       { return type might be wrong }
1636
1637     { was #define dname def_expr }
1638     function IDI_WINLOGO : LPTSTR;
1639       { return type might be wrong }
1640
1641     { was #define dname def_expr }
1642     function IDC_SIZE : LPTSTR;
1643       { return type might be wrong }
1644
1645     { was #define dname def_expr }
1646     function IDC_ICON : LPTSTR;
1647       { return type might be wrong }
1648
1649   { GetMapMode  }
1650
1651   const
1652      MM_ANISOTROPIC = 8;
1653      MM_HIENGLISH = 5;
1654      MM_HIMETRIC = 3;
1655      MM_ISOTROPIC = 7;
1656      MM_LOENGLISH = 4;
1657      MM_LOMETRIC = 2;
1658      MM_TEXT = 1;
1659      MM_TWIPS = 6;
1660   { GetMenuDefaultItem  }
1661      GMDI_GOINTOPOPUPS = $2;
1662      GMDI_USEDISABLED = $1;
1663   { PeekMessage  }
1664      PM_NOREMOVE = 0;
1665      PM_REMOVE = 1;
1666      PM_NOYIELD = 2;
1667   { GetNamedPipeHandleState  }
1668   {   PIPE_NOWAIT = 1; already above }
1669   {   PIPE_READMODE_MESSAGE = 2;already above }
1670   { GetNamedPipeInfo  }
1671      PIPE_CLIENT_END = 0;
1672      PIPE_SERVER_END = 1;
1673   {   PIPE_TYPE_MESSAGE = 4;already above }
1674   { GetNextWindow, GetWindow  }
1675      GW_HWNDNEXT = 2;
1676      GW_HWNDPREV = 3;
1677      GW_CHILD = 5;
1678      GW_HWNDFIRST = 0;
1679      GW_HWNDLAST = 1;
1680      GW_OWNER = 4;
1681   { GetPath  }
1682      PT_MOVETO = 6;
1683      PT_LINETO = 2;
1684      PT_BEZIERTO = 4;
1685      PT_CLOSEFIGURE = 1;
1686   { GetProcessShutdownParameters  }
1687      SHUTDOWN_NORETRY = 1;
1688   { GetQueueStatus  }
1689      QS_ALLEVENTS = 191;
1690      QS_ALLINPUT = 255;
1691      QS_HOTKEY = 128;
1692      QS_INPUT = 7;
1693      QS_KEY = 1;
1694      QS_MOUSE = 6;
1695      QS_MOUSEBUTTON = 4;
1696      QS_MOUSEMOVE = 2;
1697      QS_PAINT = 32;
1698      QS_POSTMESSAGE = 8;
1699      QS_SENDMESSAGE = 64;
1700      QS_TIMER = 16;
1701   { GetScrollInfo, SetScrollInfo  }
1702      SIF_ALL = 23;
1703      SIF_PAGE = 2;
1704      SIF_POS = 4;
1705      SIF_RANGE = 1;
1706      SIF_DISABLENOSCROLL = 8;
1707   { GetStdHandle  }
1708     { was #define dname def_expr }
1709     function STD_INPUT_HANDLE : DWORD;
1710
1711     { was #define dname def_expr }
1712     function STD_OUTPUT_HANDLE : DWORD;
1713
1714     { was #define dname def_expr }
1715     function STD_ERROR_HANDLE : DWORD;
1716
1717     { was #define dname def_expr }
1718     function INVALID_HANDLE_VALUE : HANDLE;
1719
1720   { GetStockObject  }
1721
1722   const
1723      BLACK_BRUSH = 4;
1724      DKGRAY_BRUSH = 3;
1725      GRAY_BRUSH = 2;
1726      HOLLOW_BRUSH = 5;
1727      LTGRAY_BRUSH = 1;
1728      NULL_BRUSH = 5;
1729      WHITE_BRUSH = 0;
1730      BLACK_PEN = 7;
1731      NULL_PEN = 8;
1732      WHITE_PEN = 6;
1733      ANSI_FIXED_FONT = 11;
1734      ANSI_VAR_FONT = 12;
1735      DEVICE_DEFAULT_FONT = 14;
1736      DEFAULT_GUI_FONT = 17;
1737      OEM_FIXED_FONT = 10;
1738      SYSTEM_FONT = 13;
1739      SYSTEM_FIXED_FONT = 16;
1740      DEFAULT_PALETTE = 15;
1741   { GetStringTypeA  }
1742      CT_CTYPE1 = 1;
1743      CT_CTYPE2 = 2;
1744      CT_CTYPE3 = 4;
1745      C1_UPPER = 1;
1746      C1_LOWER = 2;
1747      C1_DIGIT = 4;
1748      C1_SPACE = 8;
1749      C1_PUNCT = 16;
1750      C1_CNTRL = 32;
1751      C1_BLANK = 64;
1752      C1_XDIGIT = 128;
1753      C1_ALPHA = 256;
1754      C2_LEFTTORIGHT = 1;
1755      C2_RIGHTTOLEFT = 2;
1756      C2_EUROPENUMBER = 3;
1757      C2_EUROPESEPARATOR = 4;
1758      C2_EUROPETERMINATOR = 5;
1759      C2_ARABICNUMBER = 6;
1760      C2_COMMONSEPARATOR = 7;
1761      C2_BLOCKSEPARATOR = 8;
1762      C2_SEGMENTSEPARATOR = 9;
1763      C2_WHITESPACE = 10;
1764      C2_OTHERNEUTRAL = 11;
1765      C2_NOTAPPLICABLE = 0;
1766      C3_NONSPACING = 1;
1767      C3_DIACRITIC = 2;
1768      C3_VOWELMARK = 4;
1769      C3_SYMBOL = 8;
1770      C3_KATAKANA = 16;
1771      C3_HIRAGANA = 32;
1772      C3_HALFWIDTH = 64;
1773      C3_FULLWIDTH = 128;
1774      C3_IDEOGRAPH = 256;
1775      C3_KASHIDA = 512;
1776      C3_ALPHA = 32768;
1777      C3_NOTAPPLICABLE = 0;
1778   { GetSysColor  }
1779      COLOR_3DDKSHADOW = 21;
1780      COLOR_3DFACE = 15;
1781      COLOR_3DHILIGHT = 20;
1782      COLOR_3DLIGHT = 22;
1783      COLOR_BTNHILIGHT = 20;
1784      COLOR_3DSHADOW = 16;
1785      COLOR_ACTIVEBORDER = 10;
1786      COLOR_ACTIVECAPTION = 2;
1787      COLOR_APPWORKSPACE = 12;
1788      COLOR_BACKGROUND = 1;
1789      COLOR_DESKTOP = 1;
1790      COLOR_BTNFACE = 15;
1791      COLOR_BTNHIGHLIGHT = 20;
1792      COLOR_BTNSHADOW = 16;
1793      COLOR_BTNTEXT = 18;
1794      COLOR_CAPTIONTEXT = 9;
1795      COLOR_GRAYTEXT = 17;
1796      COLOR_HIGHLIGHT = 13;
1797      COLOR_HIGHLIGHTTEXT = 14;
1798      COLOR_INACTIVEBORDER = 11;
1799      COLOR_INACTIVECAPTION = 3;
1800      COLOR_INACTIVECAPTIONTEXT = 19;
1801      COLOR_INFOBK = 24;
1802      COLOR_INFOTEXT = 23;
1803      COLOR_MENU = 4;
1804      COLOR_MENUTEXT = 7;
1805      COLOR_SCROLLBAR = 0;
1806      COLOR_WINDOW = 5;
1807      COLOR_WINDOWFRAME = 6;
1808      COLOR_WINDOWTEXT = 8;
1809   { GetSystemMetrics  }
1810      SM_CYMIN = 29;
1811      SM_CXMIN = 28;
1812      SM_ARRANGE = 56;
1813      SM_CLEANBOOT = 67;
1814   { The right value for SM_CEMETRICS for NT 3.5 is 75.  For Windows 95
1815      and NT 4.0, it is 76.  The meaning is undocumented, anyhow.   }
1816      SM_CMETRICS = 76;
1817      SM_CMOUSEBUTTONS = 43;
1818      SM_CXBORDER = 5;
1819      SM_CYBORDER = 6;
1820      SM_CXCURSOR = 13;
1821      SM_CYCURSOR = 14;
1822      SM_CXDLGFRAME = 7;
1823      SM_CYDLGFRAME = 8;
1824      SM_CXDOUBLECLK = 36;
1825      SM_CYDOUBLECLK = 37;
1826      SM_CXDRAG = 68;
1827      SM_CYDRAG = 69;
1828      SM_CXEDGE = 45;
1829      SM_CYEDGE = 46;
1830      SM_CXFIXEDFRAME = 7;
1831      SM_CYFIXEDFRAME = 8;
1832      SM_CXFRAME = 32;
1833      SM_CYFRAME = 33;
1834      SM_CXFULLSCREEN = 16;
1835      SM_CYFULLSCREEN = 17;
1836      SM_CXHSCROLL = 21;
1837      SM_CYHSCROLL = 3;
1838      SM_CXHTHUMB = 10;
1839      SM_CXICON = 11;
1840      SM_CYICON = 12;
1841      SM_CXICONSPACING = 38;
1842      SM_CYICONSPACING = 39;
1843      SM_CXMAXIMIZED = 61;
1844      SM_CYMAXIMIZED = 62;
1845      SM_CXMAXTRACK = 59;
1846      SM_CYMAXTRACK = 60;
1847      SM_CXMENUCHECK = 71;
1848      SM_CYMENUCHECK = 72;
1849      SM_CXMENUSIZE = 54;
1850      SM_CYMENUSIZE = 55;
1851      SM_CXMINIMIZED = 57;
1852      SM_CYMINIMIZED = 58;
1853      SM_CXMINSPACING = 47;
1854      SM_CYMINSPACING = 48;
1855      SM_CXMINTRACK = 34;
1856      SM_CYMINTRACK = 35;
1857      SM_CXSCREEN = 0;
1858      SM_CYSCREEN = 1;
1859      SM_CXSIZE = 30;
1860      SM_CYSIZE = 31;
1861      SM_CXSIZEFRAME = 32;
1862      SM_CYSIZEFRAME = 33;
1863      SM_CXSMICON = 49;
1864      SM_CYSMICON = 50;
1865      SM_CXSMSIZE = 52;
1866      SM_CYSMSIZE = 53;
1867      SM_CXVSCROLL = 2;
1868      {SM_CYHSCROLL = 3;already above }
1869      {SM_CXHSCROLL = 21;already above }
1870      SM_CYVSCROLL = 20;
1871      SM_CYVTHUMB = 9;
1872      SM_CYCAPTION = 4;
1873      SM_CYKANJIWINDOW = 18;
1874      SM_CYMENU = 15;
1875      SM_CYSMCAPTION = 51;
1876      SM_DBCSENABLED = 42;
1877      SM_DEBUG = 22;
1878      SM_MENUDROPALIGNMENT = 40;
1879      SM_MIDEASTENABLED = 74;
1880      SM_MOUSEPRESENT = 19;
1881      SM_MOUSEWHEELPRESENT = 75;
1882      SM_NETWORK = 63;
1883      SM_PENWINDOWS = 41;
1884      SM_SECURE = 44;
1885      SM_SHOWSOUNDS = 70;
1886      SM_SLOWMACHINE = 73;
1887      SM_SWAPBUTTON = 23;
1888      ARW_BOTTOMLEFT = 0;
1889      ARW_BOTTOMRIGHT = $1;
1890      ARW_HIDE = $8;
1891      ARW_TOPLEFT = $2;
1892      ARW_TOPRIGHT = $3;
1893      ARW_DOWN = $4;
1894      ARW_LEFT = 0;
1895      ARW_RIGHT = 0;
1896      ARW_UP = $4;
1897   { GetSystemPaletteUse  }
1898      SYSPAL_NOSTATIC = 2;
1899      SYSPAL_STATIC = 1;
1900      SYSPAL_ERROR = 0;
1901   { GetTapeParameters, SetTapeParameters  }
1902      GET_TAPE_MEDIA_INFORMATION = 0;
1903      GET_TAPE_DRIVE_INFORMATION = 1;
1904      SET_TAPE_MEDIA_INFORMATION = 0;
1905      SET_TAPE_DRIVE_INFORMATION = 1;
1906   { GetTapePosition  }
1907      TAPE_ABSOLUTE_POSITION = 0;
1908      TAPE_LOGICAL_POSITION = $1;
1909   { GetTextAlign  }
1910      TA_BASELINE = 24;
1911      TA_BOTTOM = 8;
1912      TA_TOP = 0;
1913      TA_CENTER = 6;
1914      TA_LEFT = 0;
1915      TA_RIGHT = 2;
1916      TA_RTLREADING = 256;
1917      TA_NOUPDATECP = 0;
1918      TA_UPDATECP = 1;
1919      VTA_BASELINE = 24;
1920      VTA_CENTER = 6;
1921   { GetThreadPriority  }
1922      THREAD_PRIORITY_ABOVE_NORMAL = 1;
1923      THREAD_PRIORITY_BELOW_NORMAL = -(1);
1924      THREAD_PRIORITY_HIGHEST = 2;
1925      THREAD_PRIORITY_IDLE = -(15);
1926      THREAD_PRIORITY_LOWEST = -(2);
1927      THREAD_PRIORITY_NORMAL = 0;
1928      THREAD_PRIORITY_TIME_CRITICAL = 15;
1929      THREAD_PRIORITY_ERROR_RETURN = 2147483647;
1930      TLS_MINIMUM_AVAILABLE = 64;
1931   { GetTimeFormat  }
1932      TIME_NOMINUTESORSECONDS = 1;
1933      TIME_NOSECONDS = 2;
1934      TIME_NOTIMEMARKER = 4;
1935      TIME_FORCE24HOURFORMAT = 8;
1936   { GetTimeZoneInformation  }
1937     { was #define dname def_expr }
1938     function TIME_ZONE_ID_INVALID : DWORD;
1939
1940
1941   const
1942      TIME_ZONE_ID_UNKNOWN = 0;
1943      TIME_ZONE_ID_STANDARD = 1;
1944      TIME_ZONE_ID_DAYLIGHT = 2;
1945   { GetUserObjectInformation  }
1946      UOI_FLAGS = 1;
1947      UOI_NAME = 2;
1948      UOI_TYPE = 3;
1949   { GetVolumeInformation  }
1950      FS_CASE_IS_PRESERVED = 2;
1951      FS_CASE_SENSITIVE = 1;
1952      FS_UNICODE_STORED_ON_DISK = 4;
1953      FS_PERSISTENT_ACLS = 8;
1954      FS_FILE_COMPRESSION = 16;
1955      FS_VOL_IS_COMPRESSED = 32768;
1956   { GetWindowLong  }
1957      GWL_EXSTYLE = -(20);
1958      GWL_STYLE = -(16);
1959      GWL_WNDPROC = -(4);
1960      GWL_HINSTANCE = -(6);
1961      GWL_HWNDPARENT = -(8);
1962      GWL_ID = -(12);
1963      GWL_USERDATA = -(21);
1964      DWL_DLGPROC = 4;
1965      DWL_MSGRESULT = 0;
1966      DWL_USER = 8;
1967   { GlobalAlloc, GlobalFlags  }
1968      GMEM_FIXED = 0;
1969      GMEM_MOVEABLE = 2;
1970      GPTR = 64;
1971      GHND = 66;
1972      GMEM_DDESHARE = 8192;
1973      GMEM_DISCARDABLE = 256;
1974      GMEM_LOWER = 4096;
1975      GMEM_NOCOMPACT = 16;
1976      GMEM_NODISCARD = 32;
1977      GMEM_NOT_BANKED = 4096;
1978      GMEM_NOTIFY = 16384;
1979      GMEM_SHARE = 8192;
1980      GMEM_ZEROINIT = 64;
1981      GMEM_DISCARDED = 16384;
1982      GMEM_INVALID_HANDLE = 32768;
1983      GMEM_LOCKCOUNT = 255;
1984   { HeapAlloc, HeapReAlloc  }
1985      HEAP_GENERATE_EXCEPTIONS = 4;
1986      HEAP_NO_SERIALIZE = 1;
1987      HEAP_ZERO_MEMORY = 8;
1988      STATUS_NO_MEMORY = $c0000017;
1989      STATUS_ACCESS_VIOLATION = $c0000005;
1990      HEAP_REALLOC_IN_PLACE_ONLY = 16;
1991   { ImageList_Create  }
1992      ILC_COLOR = 0;
1993      ILC_COLOR4 = 4;
1994      ILC_COLOR8 = 8;
1995      ILC_COLOR16 = 16;
1996      ILC_COLOR24 = 24;
1997      ILC_COLOR32 = 32;
1998      ILC_COLORDDB = 254;
1999      ILC_MASK = 1;
2000      ILC_PALETTE = 2048;
2001   { ImageList_Draw, ImageList_DrawEx  }
2002      ILD_BLEND25 = 2;
2003      ILD_BLEND50 = 4;
2004      ILD_SELECTED = 4;
2005      ILD_BLEND = 4;
2006      ILD_FOCUS = 2;
2007      ILD_MASK = 16;
2008      ILD_NORMAL = 0;
2009      ILD_TRANSPARENT = 1;
2010      CLR_NONE = $ffffffff;
2011      CLR_DEFAULT = $ff000000;
2012      CLR_INVALID = $FFFFFFFF;
2013   { ImageList_LoadImage  }
2014      {LR_DEFAULTCOLOR = 0;already above }
2015      LR_LOADFROMFILE = 16;
2016      LR_LOADMAP3DCOLORS = 4096;
2017      LR_LOADTRANSPARENT = 32;
2018      {LR_MONOCHROME = 1;already above }
2019   { ImmConfigureIME  }
2020      IME_CONFIG_GENERAL = 1;
2021      IME_CONFIG_REGISTERWORD = 2;
2022      IME_CONFIG_SELECTDICTIONARY = 3;
2023   { ImmGetConversionList  }
2024      GCL_CONVERSION = 1;
2025      GCL_REVERSECONVERSION = 2;
2026      GCL_REVERSE_LENGTH = 3;
2027   { ImmGetGuideLine  }
2028      GGL_LEVEL = 1;
2029      GGL_INDEX = 2;
2030      GGL_STRING = 3;
2031      GGL_PRIVATE = 4;
2032      GL_LEVEL_ERROR = 2;
2033      GL_LEVEL_FATAL = 1;
2034      GL_LEVEL_INFORMATION = 4;
2035      GL_LEVEL_NOGUIDELINE = 0;
2036      GL_LEVEL_WARNING = 3;
2037      GL_ID_CANNOTSAVE = 17;
2038      GL_ID_NOCONVERT = 32;
2039      GL_ID_NODICTIONARY = 16;
2040      GL_ID_NOMODULE = 1;
2041      GL_ID_READINGCONFLICT = 35;
2042      GL_ID_TOOMANYSTROKE = 34;
2043      GL_ID_TYPINGERROR = 33;
2044      GL_ID_UNKNOWN = 0;
2045      GL_ID_INPUTREADING = 36;
2046      GL_ID_INPUTRADICAL = 37;
2047      GL_ID_INPUTCODE = 38;
2048      GL_ID_CHOOSECANDIDATE = 40;
2049      GL_ID_REVERSECONVERSION = 41;
2050   { ImmGetProperty  }
2051      IGP_PROPERTY = 4;
2052      IGP_CONVERSION = 8;
2053      IGP_SENTENCE = 12;
2054      IGP_UI = 16;
2055      IGP_SETCOMPSTR = 20;
2056      IGP_SELECT = 24;
2057      IME_PROP_AT_CARET = 65536;
2058      IME_PROP_SPECIAL_UI = 131072;
2059      IME_PROP_CANDLIST_START_FROM_1 = 262144;
2060      IME_PROP_UNICODE = 524288;
2061      UI_CAP_2700 = 1;
2062      UI_CAP_ROT90 = 2;
2063      UI_CAP_ROTANY = 4;
2064      SCS_CAP_COMPSTR = 1;
2065      SCS_CAP_MAKEREAD = 2;
2066      SELECT_CAP_CONVERSION = 1;
2067      SELECT_CAP_SENTENCE = 2;
2068   { ImmNotifyIME  }
2069      NI_CHANGECANDIDATELIST = 19;
2070      NI_CLOSECANDIDATE = 17;
2071      NI_COMPOSITIONSTR = 21;
2072      NI_OPENCANDIDATE = 16;
2073      NI_SELECTCANDIDATESTR = 18;
2074      NI_SETCANDIDATE_PAGESIZE = 23;
2075      NI_SETCANDIDATE_PAGESTART = 22;
2076      CPS_CANCEL = 4;
2077      CPS_COMPLETE = 1;
2078      CPS_CONVERT = 2;
2079      CPS_REVERT = 3;
2080   { ImmSetCompositionString  }
2081      SCS_SETSTR = 9;
2082      SCS_CHANGEATTR = 18;
2083      SCS_CHANGECLAUSE = 36;
2084   { ImmUnregisterWord  }
2085      IME_REGWORD_STYLE_EUDC = 1;
2086      IME_REGWORD_STYLE_USER_FIRST = $80000000;
2087      IME_REGWORD_STYLE_USER_LAST = -(1);
2088   { InitializeSecurityDescriptor  }
2089      SECURITY_DESCRIPTOR_REVISION = 1;
2090   { IsTextUnicode  }
2091      IS_TEXT_UNICODE_ASCII16 = 1;
2092      IS_TEXT_UNICODE_REVERSE_ASCII16 = 16;
2093      IS_TEXT_UNICODE_STATISTICS = 2;
2094      IS_TEXT_UNICODE_REVERSE_STATISTICS = 32;
2095      IS_TEXT_UNICODE_CONTROLS = 4;
2096      IS_TEXT_UNICODE_REVERSE_CONTROLS = 64;
2097      IS_TEXT_UNICODE_SIGNATURE = 8;
2098      IS_TEXT_UNICODE_REVERSE_SIGNATURE = 128;
2099      IS_TEXT_UNICODE_ILLEGAL_CHARS = 256;
2100      IS_TEXT_UNICODE_ODD_LENGTH = 512;
2101      IS_TEXT_UNICODE_NULL_BYTES = 4096;
2102      IS_TEXT_UNICODE_UNICODE_MASK = 15;
2103      IS_TEXT_UNICODE_REVERSE_MASK = 240;
2104      IS_TEXT_UNICODE_NOT_UNICODE_MASK = 3840;
2105      IS_TEXT_UNICODE_NOT_ASCII_MASK = 61440;
2106   { JournalPlaybackProc, KeyboardProc  }
2107      HC_GETNEXT = 1;
2108      HC_SKIP = 2;
2109      HC_SYSMODALOFF = 5;
2110      HC_SYSMODALON = 4;
2111      HC_NOREMOVE = 3;
2112   { keybd_event  }
2113      KEYEVENTF_EXTENDEDKEY = 1;
2114      KEYEVENTF_KEYUP = 2;
2115   { LoadBitmap  }
2116      OBM_BTNCORNERS = 32758;
2117      OBM_BTSIZE = 32761;
2118      OBM_CHECK = 32760;
2119      OBM_CHECKBOXES = 32759;
2120      OBM_CLOSE = 32754;
2121      OBM_COMBO = 32738;
2122      OBM_DNARROW = 32752;
2123      OBM_DNARROWD = 32742;
2124      OBM_DNARROWI = 32736;
2125      OBM_LFARROW = 32750;
2126      OBM_LFARROWI = 32734;
2127      OBM_LFARROWD = 32740;
2128      OBM_MNARROW = 32739;
2129      OBM_OLD_CLOSE = 32767;
2130      OBM_OLD_DNARROW = 32764;
2131      OBM_OLD_LFARROW = 32762;
2132      OBM_OLD_REDUCE = 32757;
2133      OBM_OLD_RESTORE = 32755;
2134      OBM_OLD_RGARROW = 32763;
2135      OBM_OLD_UPARROW = 32765;
2136      OBM_OLD_ZOOM = 32756;
2137      OBM_REDUCE = 32749;
2138      OBM_REDUCED = 32746;
2139      OBM_RESTORE = 32747;
2140      OBM_RESTORED = 32744;
2141      OBM_RGARROW = 32751;
2142      OBM_RGARROWD = 32741;
2143      OBM_RGARROWI = 32735;
2144      OBM_SIZE = 32766;
2145      OBM_UPARROW = 32753;
2146      OBM_UPARROWD = 32743;
2147      OBM_UPARROWI = 32737;
2148      OBM_ZOOM = 32748;
2149      OBM_ZOOMD = 32745;
2150   { LoadLibraryEx  }
2151      DONT_RESOLVE_DLL_REFERENCES = 1;
2152      LOAD_LIBRARY_AS_DATAFILE = 2;
2153      LOAD_WITH_ALTERED_SEARCH_PATH = 8;
2154   { LocalAlloc, LocalFlags  }
2155      LPTR = 64;
2156      LHND = 66;
2157      NONZEROLHND = 2;
2158      NONZEROLPTR = 0;
2159      LMEM_NONZEROLHND = 2;
2160      LMEM_NONZEROLPTR = 0;
2161      LMEM_FIXED = 0;
2162      LMEM_MOVEABLE = 2;
2163      LMEM_NOCOMPACT = 16;
2164      LMEM_NODISCARD = 32;
2165      LMEM_ZEROINIT = 64;
2166      LMEM_MODIFY = 128;
2167      LMEM_LOCKCOUNT = 255;
2168      LMEM_DISCARDABLE = 3840;
2169      LMEM_DISCARDED = 16384;
2170      LMEM_INVALID_HANDLE = 32768;
2171   { LockFileEx  }
2172      LOCKFILE_FAIL_IMMEDIATELY = 1;
2173      LOCKFILE_EXCLUSIVE_LOCK = 2;
2174   { LogonUser  }
2175   { LZCopy, LZInit, LZRead  }
2176   { MessageBeep, MessageBox  }
2177      MB_USERICON = $80;
2178      MB_ICONASTERISK = $40;
2179      MB_ICONEXCLAMATION = $30;
2180      MB_ICONWARNING = $30;
2181      MB_ICONERROR = $10;
2182      MB_ICONHAND = $10;
2183      MB_ICONQUESTION = $20;
2184      MB_OK = 0;
2185      MB_ABORTRETRYIGNORE = $2;
2186      MB_APPLMODAL = 0;
2187      MB_DEFAULT_DESKTOP_ONLY = $20000;
2188      MB_HELP = $4000;
2189      MB_RIGHT = $80000;
2190      MB_RTLREADING = $100000;
2191      MB_TOPMOST = $40000;
2192      MB_DEFBUTTON1 = 0;
2193      MB_DEFBUTTON2 = $100;
2194      MB_DEFBUTTON3 = $200;
2195      MB_DEFBUTTON4 = $300;
2196      MB_ICONINFORMATION = $40;
2197      MB_ICONSTOP = $10;
2198      MB_OKCANCEL = $1;
2199      MB_RETRYCANCEL = $5;
2200      MB_SERVICE_NOTIFICATION = $40000;
2201      MB_SETFOREGROUND = $10000;
2202      MB_SYSTEMMODAL = $1000;
2203      MB_TASKMODAL = $2000;
2204      MB_YESNO = $4;
2205      MB_YESNOCANCEL = $3;
2206      IDABORT = 3;
2207      IDCANCEL = 2;
2208      IDCLOSE = 8;
2209      IDHELP = 9;
2210      IDIGNORE = 5;
2211      IDNO = 7;
2212      IDOK = 1;
2213      IDRETRY = 4;
2214      IDYES = 6;
2215   { MessageProc  }
2216      MSGF_DIALOGBOX = 0;
2217      MSGF_MENU = 2;
2218      MSGF_NEXTWINDOW = 6;
2219      MSGF_SCROLLBAR = 5;
2220      MSGF_MAINLOOP = 8;
2221      MSGF_USER = 4096;
2222   { ModifyWorldTransform  }
2223      MWT_IDENTITY = 1;
2224      MWT_LEFTMULTIPLY = 2;
2225      MWT_RIGHTMULTIPLY = 3;
2226   { mouse_event  }
2227      MOUSEEVENTF_ABSOLUTE = 32768;
2228      MOUSEEVENTF_MOVE = 1;
2229      MOUSEEVENTF_LEFTDOWN = 2;
2230      MOUSEEVENTF_LEFTUP = 4;
2231      MOUSEEVENTF_RIGHTDOWN = 8;
2232      MOUSEEVENTF_RIGHTUP = 16;
2233      MOUSEEVENTF_MIDDLEDOWN = 32;
2234      MOUSEEVENTF_MIDDLEUP = 64;
2235   { MoveFileEx  }
2236      MOVEFILE_REPLACE_EXISTING = 1;
2237      MOVEFILE_COPY_ALLOWED = 2;
2238      MOVEFILE_DELAY_UNTIL_REBOOT = 4;
2239   { MsgWaitForMultipleObjects, WaitForMultipleObjectsEx  }
2240      WAIT_OBJECT_0 = 0;
2241      WAIT_ABANDONED_0 = $80;
2242      WAIT_TIMEOUT = $102;
2243      WAIT_IO_COMPLETION = $c0;
2244      WAIT_ABANDONED = $80;
2245      WAIT_FAILED = $ffffffff;
2246      MAXIMUM_WAIT_OBJECTS = $40;
2247      MAXIMUM_SUSPEND_COUNT = $7f;
2248   { MultiByteToWideChar  }
2249      MB_PRECOMPOSED = 1;
2250      MB_COMPOSITE = 2;
2251      MB_ERR_INVALID_CHARS = 8;
2252      MB_USEGLYPHCHARS = 4;
2253   { NDdeSetTrustedShare  }
2254   { NetAccessCheck  }
2255   { NetServerEnum  }
2256   { NetServiceControl  }
2257   { NetUserEnum  }
2258   { OpenProcessToken  }
2259      TOKEN_ADJUST_DEFAULT = 128;
2260      TOKEN_ADJUST_GROUPS = 64;
2261      TOKEN_ADJUST_PRIVILEGES = 32;
2262      TOKEN_ALL_ACCESS = $f00ff;
2263      TOKEN_ASSIGN_PRIMARY = 1;
2264      TOKEN_DUPLICATE = 2;
2265      TOKEN_EXECUTE = $20000;
2266      TOKEN_IMPERSONATE = 4;
2267      TOKEN_QUERY = 8;
2268      TOKEN_QUERY_SOURCE = 16;
2269      TOKEN_READ = $20008;
2270      TOKEN_WRITE = $200e0;
2271   { OpenSCManager  }
2272      SC_MANAGER_ALL_ACCESS = $f003f;
2273      SC_MANAGER_CONNECT = 1;
2274      SC_MANAGER_CREATE_SERVICE = 2;
2275      SC_MANAGER_ENUMERATE_SERVICE = 4;
2276      SC_MANAGER_LOCK = 8;
2277      SC_MANAGER_QUERY_LOCK_STATUS = 16;
2278      SC_MANAGER_MODIFY_BOOT_CONFIG = 32;
2279   { PostMessage  }
2280     { was #define dname def_expr }
2281     function HWND_BROADCAST : HWND;
2282
2283   { PrepareTape  }
2284
2285   const
2286      TAPE_FORMAT = $5;
2287      TAPE_LOAD = 0;
2288      TAPE_LOCK = $3;
2289      TAPE_TENSION = $2;
2290      TAPE_UNLOAD = $1;
2291      TAPE_UNLOCK = $4;
2292   { PropertySheet  }
2293      IS_PSREBOOTSYSTEM = 3;
2294      IS_PSRESTARTWINDOWS = 2;
2295   { PropSheetPageProc  }
2296      PSPCB_CREATE = 2;
2297      PSPCB_RELEASE = 1;
2298   { PurgeComm  }
2299      PURGE_TXABORT = 1;
2300      PURGE_RXABORT = 2;
2301      PURGE_TXCLEAR = 4;
2302      PURGE_RXCLEAR = 8;
2303   { QueryServiceObjectSecurity  }
2304      OWNER_SECURITY_INFORMATION = $1;
2305      GROUP_SECURITY_INFORMATION = $2;
2306      DACL_SECURITY_INFORMATION = $4;
2307      SACL_SECURITY_INFORMATION = $8;
2308   { ReadEventLog, ReportEvent  }
2309      EVENTLOG_FORWARDS_READ = 4;
2310      EVENTLOG_BACKWARDS_READ = 8;
2311      EVENTLOG_SEEK_READ = 2;
2312      EVENTLOG_SEQUENTIAL_READ = 1;
2313      EVENTLOG_ERROR_TYPE = 1;
2314      EVENTLOG_WARNING_TYPE = 2;
2315      EVENTLOG_INFORMATION_TYPE = 4;
2316      EVENTLOG_AUDIT_SUCCESS = 8;
2317      EVENTLOG_AUDIT_FAILURE = 16;
2318   { RedrawWindow  }
2319      RDW_ERASE = 4;
2320      RDW_FRAME = 1024;
2321      RDW_INTERNALPAINT = 2;
2322      RDW_INVALIDATE = 1;
2323      RDW_NOERASE = 32;
2324      RDW_NOFRAME = 2048;
2325      RDW_NOINTERNALPAINT = 16;
2326      RDW_VALIDATE = 8;
2327      RDW_ERASENOW = 512;
2328      RDW_UPDATENOW = 256;
2329      RDW_ALLCHILDREN = 128;
2330      RDW_NOCHILDREN = 64;
2331   { RegCreateKey  }
2332     { was #define dname def_expr }
2333     function HKEY_CLASSES_ROOT : HKEY;
2334
2335     { was #define dname def_expr }
2336     function HKEY_CURRENT_USER : HKEY;
2337
2338     { was #define dname def_expr }
2339     function HKEY_LOCAL_MACHINE : HKEY;
2340
2341     { was #define dname def_expr }
2342     function HKEY_USERS : HKEY;
2343
2344     { was #define dname def_expr }
2345     function HKEY_PERFORMANCE_DATA : HKEY;
2346
2347     { was #define dname def_expr }
2348     function HKEY_CURRENT_CONFIG : HKEY;
2349
2350     { was #define dname def_expr }
2351     function HKEY_DYN_DATA : HKEY;
2352
2353   { RegCreateKeyEx  }
2354
2355   const
2356      REG_OPTION_VOLATILE = $1;
2357      REG_OPTION_NON_VOLATILE = 0;
2358      REG_CREATED_NEW_KEY = $1;
2359      REG_OPENED_EXISTING_KEY = $2;
2360   { RegEnumValue  }
2361      REG_BINARY = 3;
2362      REG_DWORD = 4;
2363      REG_DWORD_LITTLE_ENDIAN = 4;
2364      REG_DWORD_BIG_ENDIAN = 5;
2365      REG_EXPAND_SZ = 2;
2366      REG_FULL_RESOURCE_DESCRIPTOR = 9;
2367      REG_LINK = 6;
2368      REG_MULTI_SZ = 7;
2369      REG_NONE = 0;
2370      REG_RESOURCE_LIST = 8;
2371      REG_RESOURCE_REQUIREMENTS_LIST = 10;
2372      REG_SZ = 1;
2373   { RegisterHotKey  }
2374      MOD_ALT = 1;
2375      MOD_CONTROL = 2;
2376      MOD_SHIFT = 4;
2377      MOD_WIN = 8;
2378      IDHOT_SNAPDESKTOP = -(2);
2379      IDHOT_SNAPWINDOW = -(1);
2380   { RegNotifyChangeKeyValue  }
2381      REG_NOTIFY_CHANGE_NAME = $1;
2382      REG_NOTIFY_CHANGE_ATTRIBUTES = $2;
2383      REG_NOTIFY_CHANGE_LAST_SET = $4;
2384      REG_NOTIFY_CHANGE_SECURITY = $8;
2385   { ScrollWindowEx  }
2386      SW_ERASE = 4;
2387      SW_INVALIDATE = 2;
2388      SW_SCROLLCHILDREN = 1;
2389   { SendMessageTimeout  }
2390      SMTO_ABORTIFHUNG = 2;
2391      SMTO_BLOCK = 1;
2392      SMTO_NORMAL = 0;
2393   { SetBkMode  }
2394      OPAQUE = 2;
2395      TRANSPARENT = 1;
2396   { SetDebugErrorLevel  }
2397      SLE_ERROR = 1;
2398      SLE_MINORERROR = 2;
2399      SLE_WARNING = 3;
2400   { SetErrorMode  }
2401      SEM_FAILCRITICALERRORS = 1;
2402      SEM_NOALIGNMENTFAULTEXCEPT = 4;
2403      SEM_NOGPFAULTERRORBOX = 2;
2404      SEM_NOOPENFILEERRORBOX = 32768;
2405   { SetICMMode  }
2406      ICM_ON = 2;
2407      ICM_OFF = 1;
2408      ICM_QUERY = 3;
2409   { SetJob  }
2410   { Locale Information  }
2411      LOCALE_ILANGUAGE = 1;
2412      LOCALE_SLANGUAGE = 2;
2413      LOCALE_SENGLANGUAGE = 4097;
2414      LOCALE_SABBREVLANGNAME = 3;
2415      LOCALE_SNATIVELANGNAME = 4;
2416      LOCALE_ICOUNTRY = 5;
2417      LOCALE_SCOUNTRY = 6;
2418      LOCALE_SENGCOUNTRY = 4098;
2419      LOCALE_SABBREVCTRYNAME = 7;
2420      LOCALE_SNATIVECTRYNAME = 8;
2421      LOCALE_IDEFAULTLANGUAGE = 9;
2422      LOCALE_IDEFAULTCOUNTRY = 10;
2423      LOCALE_IDEFAULTANSICODEPAGE = 4100;
2424      LOCALE_IDEFAULTCODEPAGE = 11;
2425      LOCALE_SLIST = 12;
2426      LOCALE_IMEASURE = 13;
2427      LOCALE_SDECIMAL = 14;
2428      LOCALE_STHOUSAND = 15;
2429      LOCALE_SGROUPING = 16;
2430      LOCALE_IDIGITS = 17;
2431      LOCALE_ILZERO = 18;
2432      LOCALE_INEGNUMBER = 4112;
2433      LOCALE_SCURRENCY = 20;
2434      LOCALE_SMONDECIMALSEP = 22;
2435      LOCALE_SMONTHOUSANDSEP = 23;
2436      LOCALE_SMONGROUPING = 24;
2437      LOCALE_ICURRDIGITS = 25;
2438      LOCALE_ICURRENCY = 27;
2439      LOCALE_INEGCURR = 28;
2440      LOCALE_SDATE = 29;
2441      LOCALE_STIME = 30;
2442      LOCALE_STIMEFORMAT = 4099;
2443      LOCALE_SSHORTDATE = 31;
2444      LOCALE_SLONGDATE = 32;
2445      LOCALE_IDATE = 33;
2446      LOCALE_ILDATE = 34;
2447      LOCALE_ITIME = 35;
2448      LOCALE_ITLZERO = 37;
2449      LOCALE_IDAYLZERO = 38;
2450      LOCALE_IMONLZERO = 39;
2451      LOCALE_S1159 = 40;
2452      LOCALE_S2359 = 41;
2453      LOCALE_ICALENDARTYPE = 4105;
2454      LOCALE_IOPTIONALCALENDAR = 4107;
2455      LOCALE_IFIRSTDAYOFWEEK = 4108;
2456      LOCALE_IFIRSTWEEKOFYEAR = 4109;
2457      LOCALE_SDAYNAME1 = 42;
2458      LOCALE_SDAYNAME2 = 43;
2459      LOCALE_SDAYNAME3 = 44;
2460      LOCALE_SDAYNAME4 = 45;
2461      LOCALE_SDAYNAME5 = 46;
2462      LOCALE_SDAYNAME6 = 47;
2463      LOCALE_SDAYNAME7 = 48;
2464      LOCALE_SABBREVDAYNAME1 = 49;
2465      LOCALE_SABBREVDAYNAME2 = 50;
2466      LOCALE_SABBREVDAYNAME3 = 51;
2467      LOCALE_SABBREVDAYNAME4 = 52;
2468      LOCALE_SABBREVDAYNAME5 = 53;
2469      LOCALE_SABBREVDAYNAME6 = 54;
2470      LOCALE_SABBREVDAYNAME7 = 55;
2471      LOCALE_SMONTHNAME1 = 56;
2472      LOCALE_SMONTHNAME2 = 57;
2473      LOCALE_SMONTHNAME3 = 58;
2474      LOCALE_SMONTHNAME4 = 59;
2475      LOCALE_SMONTHNAME5 = 60;
2476      LOCALE_SMONTHNAME6 = 61;
2477      LOCALE_SMONTHNAME7 = 62;
2478      LOCALE_SMONTHNAME8 = 63;
2479      LOCALE_SMONTHNAME9 = 64;
2480      LOCALE_SMONTHNAME10 = 65;
2481      LOCALE_SMONTHNAME11 = 66;
2482      LOCALE_SMONTHNAME12 = 67;
2483      LOCALE_SMONTHNAME13 = 4110;
2484      LOCALE_SABBREVMONTHNAME1 = 68;
2485      LOCALE_SABBREVMONTHNAME2 = 69;
2486      LOCALE_SABBREVMONTHNAME3 = 70;
2487      LOCALE_SABBREVMONTHNAME4 = 71;
2488      LOCALE_SABBREVMONTHNAME5 = 72;
2489      LOCALE_SABBREVMONTHNAME6 = 73;
2490      LOCALE_SABBREVMONTHNAME7 = 74;
2491      LOCALE_SABBREVMONTHNAME8 = 75;
2492      LOCALE_SABBREVMONTHNAME9 = 76;
2493      LOCALE_SABBREVMONTHNAME10 = 77;
2494      LOCALE_SABBREVMONTHNAME11 = 78;
2495      LOCALE_SABBREVMONTHNAME12 = 79;
2496      LOCALE_SABBREVMONTHNAME13 = 4111;
2497      LOCALE_SPOSITIVESIGN = 80;
2498      LOCALE_SNEGATIVESIGN = 81;
2499      LOCALE_IPOSSIGNPOSN = 82;
2500      LOCALE_INEGSIGNPOSN = 83;
2501      LOCALE_IPOSSYMPRECEDES = 84;
2502      LOCALE_IPOSSEPBYSPACE = 85;
2503      LOCALE_INEGSYMPRECEDES = 86;
2504      LOCALE_INEGSEPBYSPACE = 87;
2505      LOCALE_NOUSEROVERRIDE = $80000000;
2506   { Calendar Type Information  }
2507      CAL_ICALINTVALUE = 1;
2508      CAL_IYEAROFFSETRANGE = 3;
2509      CAL_SABBREVDAYNAME1 = 14;
2510      CAL_SABBREVDAYNAME2 = 15;
2511      CAL_SABBREVDAYNAME3 = 16;
2512      CAL_SABBREVDAYNAME4 = 17;
2513      CAL_SABBREVDAYNAME5 = 18;
2514      CAL_SABBREVDAYNAME6 = 19;
2515      CAL_SABBREVDAYNAME7 = 20;
2516      CAL_SABBREVMONTHNAME1 = 34;
2517      CAL_SABBREVMONTHNAME2 = 35;
2518      CAL_SABBREVMONTHNAME3 = 36;
2519      CAL_SABBREVMONTHNAME4 = 37;
2520      CAL_SABBREVMONTHNAME5 = 38;
2521      CAL_SABBREVMONTHNAME6 = 39;
2522      CAL_SABBREVMONTHNAME7 = 40;
2523      CAL_SABBREVMONTHNAME8 = 41;
2524      CAL_SABBREVMONTHNAME9 = 42;
2525      CAL_SABBREVMONTHNAME10 = 43;
2526      CAL_SABBREVMONTHNAME11 = 44;
2527      CAL_SABBREVMONTHNAME12 = 45;
2528      CAL_SABBREVMONTHNAME13 = 46;
2529      CAL_SCALNAME = 2;
2530      CAL_SDAYNAME1 = 7;
2531      CAL_SDAYNAME2 = 8;
2532      CAL_SDAYNAME3 = 9;
2533      CAL_SDAYNAME4 = 10;
2534      CAL_SDAYNAME5 = 11;
2535      CAL_SDAYNAME6 = 12;
2536      CAL_SDAYNAME7 = 13;
2537      CAL_SERASTRING = 4;
2538      CAL_SLONGDATE = 6;
2539      CAL_SMONTHNAME1 = 21;
2540      CAL_SMONTHNAME2 = 22;
2541      CAL_SMONTHNAME3 = 23;
2542      CAL_SMONTHNAME4 = 24;
2543      CAL_SMONTHNAME5 = 25;
2544      CAL_SMONTHNAME6 = 26;
2545      CAL_SMONTHNAME7 = 27;
2546      CAL_SMONTHNAME8 = 28;
2547      CAL_SMONTHNAME9 = 29;
2548      CAL_SMONTHNAME10 = 30;
2549      CAL_SMONTHNAME11 = 31;
2550      CAL_SMONTHNAME12 = 32;
2551      CAL_SMONTHNAME13 = 33;
2552      CAL_SSHORTDATE = 5;
2553   { SetProcessWorkingSetSize  }
2554      PROCESS_SET_QUOTA = 256;
2555   { SetPrinter  }
2556   { SetService  }
2557   { SetStretchBltMode  }
2558      BLACKONWHITE = 1;
2559      COLORONCOLOR = 3;
2560      HALFTONE = 4;
2561      STRETCH_ANDSCANS = 1;
2562      STRETCH_DELETESCANS = 3;
2563      STRETCH_HALFTONE = 4;
2564      STRETCH_ORSCANS = 2;
2565      WHITEONBLACK = 2;
2566   { SetSystemCursor  }
2567      OCR_NORMAL = 32512;
2568      OCR_IBEAM = 32513;
2569      OCR_WAIT = 32514;
2570      OCR_CROSS = 32515;
2571      OCR_UP = 32516;
2572      OCR_SIZE = 32640;
2573      OCR_ICON = 32641;
2574      OCR_SIZENWSE = 32642;
2575      OCR_SIZENESW = 32643;
2576      OCR_SIZEWE = 32644;
2577      OCR_SIZENS = 32645;
2578      OCR_SIZEALL = 32646;
2579      OCR_NO = 32648;
2580      OCR_APPSTARTING = 32650;
2581   { SetTapePosition  }
2582      TAPE_ABSOLUTE_BLOCK = $1;
2583      TAPE_LOGICAL_BLOCK = $2;
2584      TAPE_REWIND = 0;
2585      TAPE_SPACE_END_OF_DATA = $4;
2586      TAPE_SPACE_FILEMARKS = $6;
2587      TAPE_SPACE_RELATIVE_BLOCKS = $5;
2588      TAPE_SPACE_SEQUENTIAL_FMKS = $7;
2589      TAPE_SPACE_SEQUENTIAL_SMKS = $9;
2590      TAPE_SPACE_SETMARKS = $8;
2591   { SetUnhandledExceptionFilter  }
2592      EXCEPTION_EXECUTE_HANDLER = 1;
2593      EXCEPTION_CONTINUE_EXECUTION = -(1);
2594      EXCEPTION_CONTINUE_SEARCH = 0;
2595   { SetWindowPos, DeferWindowPos  }
2596     { was #define dname def_expr }
2597     function HWND_BOTTOM : HWND;
2598
2599     { was #define dname def_expr }
2600     function HWND_NOTOPMOST : HWND;
2601
2602     { was #define dname def_expr }
2603     function HWND_TOP : HWND;
2604
2605     { was #define dname def_expr }
2606     function HWND_TOPMOST : HWND;
2607
2608
2609   const
2610      SWP_DRAWFRAME = 32;
2611      SWP_FRAMECHANGED = 32;
2612      SWP_HIDEWINDOW = 128;
2613      SWP_NOACTIVATE = 16;
2614      SWP_NOCOPYBITS = 256;
2615      SWP_NOMOVE = 2;
2616      SWP_NOSIZE = 1;
2617      SWP_NOREDRAW = 8;
2618      SWP_NOZORDER = 4;
2619      SWP_SHOWWINDOW = 64;
2620      SWP_NOOWNERZORDER = 512;
2621      SWP_NOREPOSITION = 512;
2622      SWP_NOSENDCHANGING = 1024;
2623   { SHAddToRecentDocs  }
2624   { SHAppBarMessage  }
2625   { SHChangeNotify  }
2626   { ShellProc  }
2627      HSHELL_ACTIVATESHELLWINDOW = 3;
2628      HSHELL_GETMINRECT = 5;
2629      HSHELL_LANGUAGE = 8;
2630      HSHELL_REDRAW = 6;
2631      HSHELL_TASKMAN = 7;
2632      HSHELL_WINDOWACTIVATED = 4;
2633      HSHELL_WINDOWCREATED = 1;
2634      HSHELL_WINDOWDESTROYED = 2;
2635   { SHGetFileInfo  }
2636   { SHGetSpecialFolderLocation  }
2637   { ShowWindow  }
2638      SW_HIDE = 0;
2639      SW_MAXIMIZE = 3;
2640      SW_MINIMIZE = 6;
2641      SW_NORMAL = 1;
2642      SW_RESTORE = 9;
2643      SW_SHOW = 5;
2644      SW_SHOWDEFAULT = 10;
2645      SW_SHOWMAXIMIZED = 3;
2646      SW_SHOWMINIMIZED = 2;
2647      SW_SHOWMINNOACTIVE = 7;
2648      SW_SHOWNA = 8;
2649      SW_SHOWNOACTIVATE = 4;
2650      SW_SHOWNORMAL = 1;
2651      WPF_RESTORETOMAXIMIZED = 2;
2652      WPF_SETMINPOSITION = 1;
2653   { Sleep  }
2654      INFINITE = $FFFFFFFF;
2655   { SystemParametersInfo  }
2656      SPI_GETACCESSTIMEOUT = 60;
2657      SPI_GETANIMATION = 72;
2658      SPI_GETBEEP = 1;
2659      SPI_GETBORDER = 5;
2660      SPI_GETDEFAULTINPUTLANG = 89;
2661      SPI_GETDRAGFULLWINDOWS = 38;
2662      SPI_GETFASTTASKSWITCH = 35;
2663      SPI_GETFILTERKEYS = 50;
2664      SPI_GETFONTSMOOTHING = 74;
2665      SPI_GETGRIDGRANULARITY = 18;
2666      SPI_GETHIGHCONTRAST = 66;
2667      SPI_GETICONMETRICS = 45;
2668      SPI_GETICONTITLELOGFONT = 31;
2669      SPI_GETICONTITLEWRAP = 25;
2670      SPI_GETKEYBOARDDELAY = 22;
2671      SPI_GETKEYBOARDPREF = 68;
2672      SPI_GETKEYBOARDSPEED = 10;
2673      SPI_GETLOWPOWERACTIVE = 83;
2674      SPI_GETLOWPOWERTIMEOUT = 79;
2675      SPI_GETMENUDROPALIGNMENT = 27;
2676      SPI_GETMINIMIZEDMETRICS = 43;
2677      SPI_GETMOUSE = 3;
2678      SPI_GETMOUSEKEYS = 54;
2679      SPI_GETMOUSETRAILS = 94;
2680      SPI_GETNONCLIENTMETRICS = 41;
2681      SPI_GETPOWEROFFACTIVE = 84;
2682      SPI_GETPOWEROFFTIMEOUT = 80;
2683      SPI_GETSCREENREADER = 70;
2684      SPI_GETSCREENSAVEACTIVE = 16;
2685      SPI_GETSCREENSAVETIMEOUT = 14;
2686      SPI_GETSERIALKEYS = 62;
2687      SPI_GETSHOWSOUNDS = 56;
2688      SPI_GETSOUNDSENTRY = 64;
2689      SPI_GETSTICKYKEYS = 58;
2690      SPI_GETTOGGLEKEYS = 52;
2691      SPI_GETWINDOWSEXTENSION = 92;
2692      SPI_GETWORKAREA = 48;
2693      SPI_ICONHORIZONTALSPACING = 13;
2694      SPI_ICONVERTICALSPACING = 24;
2695      SPI_LANGDRIVER = 12;
2696      SPI_SCREENSAVERRUNNING = 97;
2697      SPI_SETACCESSTIMEOUT = 61;
2698      SPI_SETANIMATION = 73;
2699      SPI_SETBEEP = 2;
2700      SPI_SETBORDER = 6;
2701      SPI_SETDEFAULTINPUTLANG = 90;
2702      SPI_SETDESKPATTERN = 21;
2703      SPI_SETDESKWALLPAPER = 20;
2704      SPI_SETDOUBLECLICKTIME = 32;
2705      SPI_SETDOUBLECLKHEIGHT = 30;
2706      SPI_SETDOUBLECLKWIDTH = 29;
2707      SPI_SETDRAGFULLWINDOWS = 37;
2708      SPI_SETDRAGHEIGHT = 77;
2709      SPI_SETDRAGWIDTH = 76;
2710      SPI_SETFASTTASKSWITCH = 36;
2711      SPI_SETFILTERKEYS = 51;
2712      SPI_SETFONTSMOOTHING = 75;
2713      SPI_SETGRIDGRANULARITY = 19;
2714      SPI_SETHANDHELD = 78;
2715      SPI_SETHIGHCONTRAST = 67;
2716      SPI_SETICONMETRICS = 46;
2717      SPI_SETICONTITLELOGFONT = 34;
2718      SPI_SETICONTITLEWRAP = 26;
2719      SPI_SETKEYBOARDDELAY = 23;
2720      SPI_SETKEYBOARDPREF = 69;
2721      SPI_SETKEYBOARDSPEED = 11;
2722      SPI_SETLANGTOGGLE = 91;
2723      SPI_SETLOWPOWERACTIVE = 85;
2724      SPI_SETLOWPOWERTIMEOUT = 81;
2725      SPI_SETMENUDROPALIGNMENT = 28;
2726      SPI_SETMINIMIZEDMETRICS = 44;
2727      SPI_SETMOUSE = 4;
2728      SPI_SETMOUSEBUTTONSWAP = 33;
2729      SPI_SETMOUSEKEYS = 55;
2730      SPI_SETMOUSETRAILS = 93;
2731      SPI_SETNONCLIENTMETRICS = 42;
2732      SPI_SETPENWINDOWS = 49;
2733      SPI_SETPOWEROFFACTIVE = 86;
2734      SPI_SETPOWEROFFTIMEOUT = 82;
2735      SPI_SETSCREENREADER = 71;
2736      SPI_SETSCREENSAVEACTIVE = 17;
2737      SPI_SETSCREENSAVETIMEOUT = 15;
2738      SPI_SETSERIALKEYS = 63;
2739      SPI_SETSHOWSOUNDS = 57;
2740      SPI_SETSOUNDSENTRY = 65;
2741      SPI_SETSTICKYKEYS = 59;
2742      SPI_SETTOGGLEKEYS = 53;
2743      SPI_SETWORKAREA = 47;
2744      SPIF_UPDATEINIFILE = 1;
2745      SPIF_SENDWININICHANGE = 2;
2746      SPIF_SENDCHANGE = 2;
2747   { TrackPopupMenu, TrackPopMenuEx  }
2748      TPM_CENTERALIGN = $4;
2749      TPM_LEFTALIGN = 0;
2750      TPM_RIGHTALIGN = $8;
2751      TPM_LEFTBUTTON = 0;
2752      TPM_RIGHTBUTTON = $2;
2753      TPM_HORIZONTAL = 0;
2754      TPM_VERTICAL = $40;
2755   { TranslateCharsetInfo  }
2756      TCI_SRCCHARSET = 1;
2757      TCI_SRCCODEPAGE = 2;
2758      TCI_SRCFONTSIG = 3;
2759   { VerFindFile  }
2760      VFFF_ISSHAREDFILE = 1;
2761      VFF_CURNEDEST = 1;
2762      VFF_FILEINUSE = 2;
2763      VFF_BUFFTOOSMALL = 4;
2764   { VerInstallFile  }
2765      VIFF_FORCEINSTALL = 1;
2766      VIFF_DONTDELETEOLD = 2;
2767      VIF_TEMPFILE = $1;
2768      VIF_MISMATCH = $2;
2769      VIF_SRCOLD = $4;
2770      VIF_DIFFLANG = $8;
2771      VIF_DIFFCODEPG = $10;
2772      VIF_DIFFTYPE = $20;
2773      VIF_WRITEPROT = $40;
2774      VIF_FILEINUSE = $80;
2775      VIF_OUTOFSPACE = $100;
2776      VIF_ACCESSVIOLATION = $200;
2777      VIF_SHARINGVIOLATION = $400;
2778      VIF_CANNOTCREATE = $800;
2779      VIF_CANNOTDELETE = $1000;
2780      VIF_CANNOTDELETECUR = $4000;
2781      VIF_CANNOTRENAME = $2000;
2782      VIF_OUTOFMEMORY = $8000;
2783      VIF_CANNOTREADSRC = $10000;
2784      VIF_CANNOTREADDST = $20000;
2785      VIF_BUFFTOOSMALL = $40000;
2786   { WideCharToMultiByte  }
2787      WC_COMPOSITECHECK = 512;
2788      WC_DISCARDNS = 16;
2789      WC_SEPCHARS = 32;
2790      WC_DEFAULTCHAR = 64;
2791   { WinHelp  }
2792      HELP_COMMAND = $102;
2793      HELP_CONTENTS = $3;
2794      HELP_CONTEXT = $1;
2795      HELP_CONTEXTPOPUP = $8;
2796      HELP_FORCEFILE = $9;
2797      HELP_HELPONHELP = $4;
2798      HELP_INDEX = $3;
2799      HELP_KEY = $101;
2800      HELP_MULTIKEY = $201;
2801      HELP_PARTIALKEY = $105;
2802      HELP_QUIT = $2;
2803      HELP_SETCONTENTS = $5;
2804      HELP_SETINDEX = $5;
2805      HELP_CONTEXTMENU = $a;
2806      HELP_FINDER = $b;
2807      HELP_WM_HELP = $c;
2808      HELP_TCARD = $8000;
2809      HELP_TCARD_DATA = $10;
2810      HELP_TCARD_OTHER_CALLER = $11;
2811   { WNetAddConnectino2  }
2812      CONNECT_UPDATE_PROFILE = 1;
2813   { WNetConnectionDialog, WNetDisconnectDialog, WNetOpenEnum  }
2814      RESOURCETYPE_DISK = 1;
2815      RESOURCETYPE_PRINT = 2;
2816      RESOURCETYPE_ANY = 0;
2817      RESOURCE_CONNECTED = 1;
2818      RESOURCE_GLOBALNET = 2;
2819      RESOURCE_REMEMBERED = 3;
2820      RESOURCEUSAGE_CONNECTABLE = 1;
2821      RESOURCEUSAGE_CONTAINER = 2;
2822   { WNetGetResourceInformation, WNetGetResourceParent  }
2823      WN_BAD_NETNAME = $43;
2824      WN_EXTENDED_ERROR = $4b8;
2825      WN_MORE_DATA = $ea;
2826      WN_NO_NETWORK = $4c6;
2827      WN_SUCCESS = 0;
2828      WN_ACCESS_DENIED = $5;
2829      WN_BAD_PROVIDER = $4b4;
2830      WN_NOT_AUTHENTICATED = $4dc;
2831   { WNetGetUniversalName  }
2832      UNIVERSAL_NAME_INFO_LEVEL = 1;
2833      REMOTE_NAME_INFO_LEVEL = 2;
2834   { GetExitCodeThread  }
2835      STILL_ACTIVE = $103;
2836   { COMMPROP structure  }
2837      SP_SERIALCOMM = $1;
2838      BAUD_075 = $1;
2839      BAUD_110 = $2;
2840      BAUD_134_5 = $4;
2841      BAUD_150 = $8;
2842      BAUD_300 = $10;
2843      BAUD_600 = $20;
2844      BAUD_1200 = $40;
2845      BAUD_1800 = $80;
2846      BAUD_2400 = $100;
2847      BAUD_4800 = $200;
2848      BAUD_7200 = $400;
2849      BAUD_9600 = $800;
2850      BAUD_14400 = $1000;
2851      BAUD_19200 = $2000;
2852      BAUD_38400 = $4000;
2853      BAUD_56K = $8000;
2854      BAUD_57600 = $40000;
2855      BAUD_115200 = $20000;
2856      BAUD_128K = $10000;
2857      BAUD_USER = $10000000;
2858      PST_FAX = $21;
2859      PST_LAT = $101;
2860      PST_MODEM = $6;
2861      PST_NETWORK_BRIDGE = $100;
2862      PST_PARALLELPORT = $2;
2863      PST_RS232 = $1;
2864      PST_RS422 = $3;
2865      PST_RS423 = $4;
2866      PST_RS449 = $5;
2867      PST_SCANNER = $22;
2868      PST_TCPIP_TELNET = $102;
2869      PST_UNSPECIFIED = 0;
2870      PST_X25 = $103;
2871      PCF_16BITMODE = $200;
2872      PCF_DTRDSR = $1;
2873      PCF_INTTIMEOUTS = $80;
2874      PCF_PARITY_CHECK = $8;
2875      PCF_RLSD = $4;
2876      PCF_RTSCTS = $2;
2877      PCF_SETXCHAR = $20;
2878      PCF_SPECIALCHARS = $100;
2879      PCF_TOTALTIMEOUTS = $40;
2880      PCF_XONXOFF = $10;
2881      SP_BAUD = $2;
2882      SP_DATABITS = $4;
2883      SP_HANDSHAKING = $10;
2884      SP_PARITY = $1;
2885      SP_PARITY_CHECK = $20;
2886      SP_RLSD = $40;
2887      SP_STOPBITS = $8;
2888      DATABITS_5 = 1;
2889      DATABITS_6 = 2;
2890      DATABITS_7 = 4;
2891      DATABITS_8 = 8;
2892      DATABITS_16 = 16;
2893      DATABITS_16X = 32;
2894      STOPBITS_10 = 1;
2895      STOPBITS_15 = 2;
2896      STOPBITS_20 = 4;
2897      PARITY_NONE = 256;
2898      PARITY_ODD = 512;
2899      PARITY_EVEN = 1024;
2900      PARITY_MARK = 2048;
2901      PARITY_SPACE = 4096;
2902      COMMPROP_INITIALIZED = $e73cf52e;
2903   { DCB structure  }
2904      CBR_110 = 110;
2905      CBR_300 = 300;
2906      CBR_600 = 600;
2907      CBR_1200 = 1200;
2908      CBR_2400 = 2400;
2909      CBR_4800 = 4800;
2910      CBR_9600 = 9600;
2911      CBR_14400 = 14400;
2912      CBR_19200 = 19200;
2913      CBR_38400 = 38400;
2914      CBR_56000 = 56000;
2915      CBR_57600 = 57600;
2916      CBR_115200 = 115200;
2917      CBR_128000 = 128000;
2918      CBR_256000 = 256000;
2919      DTR_CONTROL_DISABLE = 0;
2920      DTR_CONTROL_ENABLE = 1;
2921      DTR_CONTROL_HANDSHAKE = 2;
2922      RTS_CONTROL_DISABLE = 0;
2923      RTS_CONTROL_ENABLE = 1;
2924      RTS_CONTROL_HANDSHAKE = 2;
2925      RTS_CONTROL_TOGGLE = 3;
2926      EVENPARITY = 2;
2927      MARKPARITY = 3;
2928      NOPARITY = 0;
2929      ODDPARITY = 1;
2930      SPACEPARITY = 4;
2931      ONESTOPBIT = 0;
2932      ONE5STOPBITS = 1;
2933      TWOSTOPBITS = 2;
2934   { Debugging events  }
2935      CREATE_PROCESS_DEBUG_EVENT = 3;
2936      CREATE_THREAD_DEBUG_EVENT = 2;
2937      EXCEPTION_DEBUG_EVENT = 1;
2938      EXIT_PROCESS_DEBUG_EVENT = 5;
2939      EXIT_THREAD_DEBUG_EVENT = 4;
2940      LOAD_DLL_DEBUG_EVENT = 6;
2941      OUTPUT_DEBUG_STRING_EVENT = 8;
2942      UNLOAD_DLL_DEBUG_EVENT = 7;
2943      RIP_EVENT = 9;
2944   { PROCESS_HEAP_ENTRY structure  }
2945      PROCESS_HEAP_REGION = 1;
2946      PROCESS_HEAP_UNCOMMITTED_RANGE = 2;
2947      PROCESS_HEAP_ENTRY_BUSY = 4;
2948      PROCESS_HEAP_ENTRY_MOVEABLE = 16;
2949      PROCESS_HEAP_ENTRY_DDESHARE = 32;
2950   { Win32s  }
2951      HINSTANCE_ERROR = 32;
2952   { WIN32_STREAM_ID structure  }
2953      BACKUP_DATA = 1;
2954      BACKUP_EA_DATA = 2;
2955      BACKUP_SECURITY_DATA = 3;
2956      BACKUP_ALTERNATE_DATA = 4;
2957      BACKUP_LINK = 5;
2958      STREAM_MODIFIED_WHEN_READ = 1;
2959      STREAM_CONTAINS_SECURITY = 2;
2960   { STARTUPINFO structure  }
2961      STARTF_USESHOWWINDOW = 1;
2962      STARTF_USEPOSITION = 4;
2963      STARTF_USESIZE = 2;
2964      STARTF_USECOUNTCHARS = 8;
2965      STARTF_USEFILLATTRIBUTE = 16;
2966      STARTF_RUNFULLSCREEN = 32;
2967      STARTF_FORCEONFEEDBACK = 64;
2968      STARTF_FORCEOFFFEEDBACK = 128;
2969      STARTF_USESTDHANDLES = 256;
2970      STARTF_USEHOTKEY = 512;
2971   { OSVERSIONINFO structure  }
2972      VER_PLATFORM_WIN32s = 0;
2973      VER_PLATFORM_WIN32_WINDOWS = 1;
2974      VER_PLATFORM_WIN32_NT = 2;
2975   { PROPSHEETPAGE structure  }
2976      MAXPROPPAGES = 100;
2977      PSP_DEFAULT = 0;
2978      PSP_DLGINDIRECT = 1;
2979      PSP_HASHELP = 32;
2980      PSP_USECALLBACK = 128;
2981      PSP_USEHICON = 2;
2982      PSP_USEICONID = 4;
2983      PSP_USEREFPARENT = 64;
2984      PSP_USETITLE = 8;
2985      PSP_RTLREADING = 16;
2986   { PROPSHEETHEADER structure  }
2987      PSH_DEFAULT = 0;
2988      PSH_HASHELP = 512;
2989      PSH_MODELESS = 1024;
2990      PSH_NOAPPLYNOW = 128;
2991      PSH_PROPSHEETPAGE = 8;
2992      PSH_PROPTITLE = 1;
2993      PSH_USECALLBACK = 256;
2994      PSH_USEHICON = 2;
2995      PSH_USEICONID = 4;
2996      PSH_USEPSTARTPAGE = 64;
2997      PSH_WIZARD = 32;
2998      PSH_RTLREADING = 2048;
2999      PSCB_INITIALIZED = 1;
3000      PSCB_PRECREATE = 2;
3001   { PSN_APPLY message  }
3002      PSNRET_NOERROR = 0;
3003      PSNRET_INVALID_NOCHANGEPAGE = 2;
3004   { Property Sheet  }
3005      PSBTN_APPLYNOW = 4;
3006      PSBTN_BACK = 0;
3007      PSBTN_CANCEL = 5;
3008      PSBTN_FINISH = 2;
3009      PSBTN_HELP = 6;
3010      PSBTN_NEXT = 1;
3011      PSBTN_OK = 3;
3012      PSWIZB_BACK = 1;
3013      PSWIZB_NEXT = 2;
3014      PSWIZB_FINISH = 4;
3015      PSWIZB_DISABLEDFINISH = 8;
3016      ID_PSREBOOTSYSTEM = 3;
3017      ID_PSRESTARTWINDOWS = 2;
3018      WIZ_BODYCX = 184;
3019      WIZ_BODYX = 92;
3020      WIZ_CXBMP = 80;
3021      WIZ_CXDLG = 276;
3022      WIZ_CYDLG = 140;
3023   { VX_FIXEDFILEINFO structure  }
3024     { was #define dname def_expr }
3025     function VS_FILE_INFO : LPTSTR;
3026       { return type might be wrong }
3027
3028
3029   const
3030      VS_VERSION_INFO = 1;
3031      VS_FF_DEBUG = $1;
3032      VS_FF_INFOINFERRED = $10;
3033      VS_FF_PATCHED = $4;
3034      VS_FF_PRERELEASE = $2;
3035      VS_FF_PRIVATEBUILD = $8;
3036      VS_FF_SPECIALBUILD = $20;
3037      VOS_UNKNOWN = 0;
3038      VOS_DOS = $10000;
3039      VOS_OS216 = $20000;
3040      VOS_OS232 = $30000;
3041      VOS_NT = $40000;
3042      VOS_DOS_WINDOWS16 = $10001;
3043      VOS_DOS_WINDOWS32 = $10004;
3044      VOS_OS216_PM16 = $20002;
3045      VOS_OS232_PM32 = $30003;
3046      VOS_NT_WINDOWS32 = $40004;
3047      VFT_UNKNOWN = 0;
3048      VFT_APP = $1;
3049      VFT_DLL = $2;
3050      VFT_DRV = $3;
3051      VFT_FONT = $4;
3052      VFT_VXD = $5;
3053      VFT_STATIC_LIB = $7;
3054      VFT2_UNKNOWN = 0;
3055      VFT2_DRV_PRINTER = $1;
3056      VFT2_DRV_KEYBOARD = $2;
3057      VFT2_DRV_LANGUAGE = $3;
3058      VFT2_DRV_DISPLAY = $4;
3059      VFT2_DRV_MOUSE = $5;
3060      VFT2_DRV_NETWORK = $6;
3061      VFT2_DRV_SYSTEM = $7;
3062      VFT2_DRV_INSTALLABLE = $8;
3063      VFT2_DRV_SOUND = $9;
3064      VFT2_FONT_RASTER = $1;
3065      VFT2_FONT_VECTOR = $2;
3066      VFT2_FONT_TRUETYPE = $3;
3067   { PANOSE structure  }
3068      PAN_ANY = 0;
3069      PAN_NO_FIT = 1;
3070      PAN_FAMILY_TEXT_DISPLAY = 2;
3071      PAN_FAMILY_SCRIPT = 3;
3072      PAN_FAMILY_DECORATIVE = 4;
3073      PAN_FAMILY_PICTORIAL = 5;
3074      PAN_SERIF_COVE = 2;
3075      PAN_SERIF_OBTUSE_COVE = 3;
3076      PAN_SERIF_SQUARE_COVE = 4;
3077      PAN_SERIF_OBTUSE_SQUARE_COVE = 5;
3078      PAN_SERIF_SQUARE = 6;
3079      PAN_SERIF_THIN = 7;
3080      PAN_SERIF_BONE = 8;
3081      PAN_SERIF_EXAGGERATED = 9;
3082      PAN_SERIF_TRIANGLE = 10;
3083      PAN_SERIF_NORMAL_SANS = 11;
3084      PAN_SERIF_OBTUSE_SANS = 12;
3085      PAN_SERIF_PERP_SANS = 13;
3086      PAN_SERIF_FLARED = 14;
3087      PAN_SERIF_ROUNDED = 15;
3088      PAN_WEIGHT_VERY_LIGHT = 2;
3089      PAN_WEIGHT_LIGHT = 3;
3090      PAN_WEIGHT_THIN = 4;
3091      PAN_WEIGHT_BOOK = 5;
3092      PAN_WEIGHT_MEDIUM = 6;
3093      PAN_WEIGHT_DEMI = 7;
3094      PAN_WEIGHT_BOLD = 8;
3095      PAN_WEIGHT_HEAVY = 9;
3096      PAN_WEIGHT_BLACK = 10;
3097      PAN_WEIGHT_NORD = 11;
3098      PAN_PROP_OLD_STYLE = 2;
3099      PAN_PROP_MODERN = 3;
3100      PAN_PROP_EVEN_WIDTH = 4;
3101      PAN_PROP_EXPANDED = 5;
3102      PAN_PROP_CONDENSED = 6;
3103      PAN_PROP_VERY_EXPANDED = 7;
3104      PAN_PROP_VERY_CONDENSED = 8;
3105      PAN_PROP_MONOSPACED = 9;
3106      PAN_CONTRAST_NONE = 2;
3107      PAN_CONTRAST_VERY_LOW = 3;
3108      PAN_CONTRAST_LOW = 4;
3109      PAN_CONTRAST_MEDIUM_LOW = 5;
3110      PAN_CONTRAST_MEDIUM = 6;
3111      PAN_CONTRAST_MEDIUM_HIGH = 7;
3112      PAN_CONTRAST_HIGH = 8;
3113      PAN_CONTRAST_VERY_HIGH = 9;
3114      PAN_STROKE_GRADUAL_DIAG = 2;
3115      PAN_STROKE_GRADUAL_TRAN = 3;
3116      PAN_STROKE_GRADUAL_VERT = 4;
3117      PAN_STROKE_GRADUAL_HORZ = 5;
3118      PAN_STROKE_RAPID_VERT = 6;
3119      PAN_STROKE_RAPID_HORZ = 7;
3120      PAN_STROKE_INSTANT_VERT = 8;
3121      PAN_STRAIGHT_ARMS_HORZ = 2;
3122      PAN_STRAIGHT_ARMS_WEDGE = 3;
3123      PAN_STRAIGHT_ARMS_VERT = 4;
3124      PAN_STRAIGHT_ARMS_SINGLE_SERIF = 5;
3125      PAN_STRAIGHT_ARMS_DOUBLE_SERIF = 6;
3126      PAN_BENT_ARMS_HORZ = 7;
3127      PAN_BENT_ARMS_VERT = 9;
3128      PAN_BENT_ARMS_WEDGE = 8;
3129      PAN_BENT_ARMS_SINGLE_SERIF = 10;
3130      PAN_BENT_ARMS_DOUBLE_SERIF = 11;
3131      PAN_LETT_NORMAL_CONTACT = 2;
3132      PAN_LETT_NORMAL_WEIGHTED = 3;
3133      PAN_LETT_NORMAL_BOXED = 4;
3134      PAN_LETT_NORMAL_FLATTENED = 5;
3135      PAN_LETT_NORMAL_ROUNDED = 6;
3136      PAN_LETT_NORMAL_OFF_CENTER = 7;
3137      PAN_LETT_NORMAL_SQUARE = 8;
3138      PAN_LETT_OBLIQUE_CONTACT = 9;
3139      PAN_LETT_OBLIQUE_WEIGHTED = 10;
3140      PAN_LETT_OBLIQUE_BOXED = 11;
3141      PAN_LETT_OBLIQUE_FLATTENED = 12;
3142      PAN_LETT_OBLIQUE_ROUNDED = 13;
3143      PAN_LETT_OBLIQUE_OFF_CENTER = 14;
3144      PAN_LETT_OBLIQUE_SQUARE = 15;
3145      PAN_MIDLINE_STANDARD_TRIMMED = 2;
3146      PAN_MIDLINE_STANDARD_POINTED = 3;
3147      PAN_MIDLINE_STANDARD_SERIFED = 4;
3148      PAN_MIDLINE_HIGH_TRIMMED = 5;
3149      PAN_MIDLINE_HIGH_POINTED = 6;
3150      PAN_MIDLINE_HIGH_SERIFED = 7;
3151      PAN_MIDLINE_CONSTANT_TRIMMED = 8;
3152      PAN_MIDLINE_CONSTANT_POINTED = 9;
3153      PAN_MIDLINE_CONSTANT_SERIFED = 10;
3154      PAN_MIDLINE_LOW_TRIMMED = 11;
3155      PAN_MIDLINE_LOW_POINTED = 12;
3156      PAN_MIDLINE_LOW_SERIFED = 13;
3157      PAN_XHEIGHT_CONSTANT_SMALL = 2;
3158      PAN_XHEIGHT_CONSTANT_STD = 3;
3159      PAN_XHEIGHT_CONSTANT_LARGE = 4;
3160      PAN_XHEIGHT_DUCKING_SMALL = 5;
3161      PAN_XHEIGHT_DUCKING_STD = 6;
3162      PAN_XHEIGHT_DUCKING_LARGE = 7;
3163   { PALETTENTRY structure  }
3164      PC_EXPLICIT = 2;
3165      PC_NOCOLLAPSE = 4;
3166      PC_RESERVED = 1;
3167   { LOGBRUSH structure  }
3168      BS_DIBPATTERN = 5;
3169      BS_DIBPATTERN8X8 = 8;
3170      BS_DIBPATTERNPT = 6;
3171      BS_HATCHED = 2;
3172      BS_HOLLOW = 1;
3173      BS_NULL = 1;
3174      BS_PATTERN = 3;
3175      BS_PATTERN8X8 = 7;
3176      BS_SOLID = 0;
3177   { DEVMODE structure  }
3178      DM_ORIENTATION = $1;
3179      DM_PAPERSIZE = $2;
3180      DM_PAPERLENGTH = $4;
3181      DM_PAPERWIDTH = $8;
3182      DM_SCALE = $10;
3183      DM_COPIES = $100;
3184      DM_DEFAULTSOURCE = $200;
3185      DM_PRINTQUALITY = $400;
3186      DM_COLOR = $800;
3187      DM_DUPLEX = $1000;
3188      DM_YRESOLUTION = $2000;
3189      DM_TTOPTION = $4000;
3190      DM_COLLATE = $8000;
3191      DM_FORMNAME = $10000;
3192      DM_LOGPIXELS = $20000;
3193      {DM_BITSPERPEL = $40000;
3194      DM_PELSWIDTH = $80000;
3195      DM_PELSHEIGHT = $100000;
3196      DM_DISPLAYFLAGS = $200000;
3197      DM_DISPLAYFREQUENCY = $400000;already above }
3198      DM_ICMMETHOD = $800000;
3199      DM_ICMINTENT = $1000000;
3200      DM_MEDIATYPE = $2000000;
3201      DM_DITHERTYPE = $4000000;
3202      DMORIENT_LANDSCAPE = 2;
3203      DMORIENT_PORTRAIT = 1;
3204      DMPAPER_LETTER = 1;
3205      DMPAPER_LEGAL = 5;
3206      DMPAPER_A4 = 9;
3207      DMPAPER_CSHEET = 24;
3208      DMPAPER_DSHEET = 25;
3209      DMPAPER_ESHEET = 26;
3210      DMPAPER_LETTERSMALL = 2;
3211      DMPAPER_TABLOID = 3;
3212      DMPAPER_LEDGER = 4;
3213      DMPAPER_STATEMENT = 6;
3214      DMPAPER_EXECUTIVE = 7;
3215      DMPAPER_A3 = 8;
3216      DMPAPER_A4SMALL = 10;
3217      DMPAPER_A5 = 11;
3218      DMPAPER_B4 = 12;
3219      DMPAPER_B5 = 13;
3220      DMPAPER_FOLIO = 14;
3221      DMPAPER_QUARTO = 15;
3222      DMPAPER_10X14 = 16;
3223      DMPAPER_11X17 = 17;
3224      DMPAPER_NOTE = 18;
3225      DMPAPER_ENV_9 = 19;
3226      DMPAPER_ENV_10 = 20;
3227      DMPAPER_ENV_11 = 21;
3228      DMPAPER_ENV_12 = 22;
3229      DMPAPER_ENV_14 = 23;
3230      DMPAPER_ENV_DL = 27;
3231      DMPAPER_ENV_C5 = 28;
3232      DMPAPER_ENV_C3 = 29;
3233      DMPAPER_ENV_C4 = 30;
3234      DMPAPER_ENV_C6 = 31;
3235      DMPAPER_ENV_C65 = 32;
3236      DMPAPER_ENV_B4 = 33;
3237      DMPAPER_ENV_B5 = 34;
3238      DMPAPER_ENV_B6 = 35;
3239      DMPAPER_ENV_ITALY = 36;
3240      DMPAPER_ENV_MONARCH = 37;
3241      DMPAPER_ENV_PERSONAL = 38;
3242      DMPAPER_FANFOLD_US = 39;
3243      DMPAPER_FANFOLD_STD_GERMAN = 40;
3244      DMPAPER_FANFOLD_LGL_GERMAN = 41;
3245      DMRES_HIGH = -(4);
3246      DMRES_MEDIUM = -(3);
3247      DMRES_LOW = -(2);
3248      DMRES_DRAFT = -(1);
3249      DMCOLOR_COLOR = 2;
3250      DMCOLOR_MONOCHROME = 1;
3251      DMDUP_SIMPLEX = 1;
3252      DMDUP_HORIZONTAL = 3;
3253      DMDUP_VERTICAL = 2;
3254      DMTT_BITMAP = 1;
3255      DMTT_DOWNLOAD = 2;
3256      DMTT_SUBDEV = 3;
3257      DMCOLLATE_TRUE = 1;
3258      DMCOLLATE_FALSE = 0;
3259      DM_GRAYSCALE = 1;
3260      DM_INTERLACED = 2;
3261      DMICMMETHOD_NONE = 1;
3262      DMICMMETHOD_SYSTEM = 2;
3263      DMICMMETHOD_DRIVER = 3;
3264      DMICMMETHOD_DEVICE = 4;
3265      DMICMMETHOD_USER = 256;
3266      DMICM_SATURATE = 1;
3267      DMICM_CONTRAST = 2;
3268      DMICM_COLORMETRIC = 3;
3269      DMICM_USER = 256;
3270      DMMEDIA_STANDARD = 1;
3271      DMMEDIA_GLOSSY = 3;
3272      DMMEDIA_TRANSPARENCY = 2;
3273      DMMEDIA_USER = 256;
3274      DMDITHER_NONE = 1;
3275      DMDITHER_COARSE = 2;
3276      DMDITHER_FINE = 3;
3277      DMDITHER_LINEART = 4;
3278      DMDITHER_GRAYSCALE = 10;
3279      DMDITHER_USER = 256;
3280   { RGNDATAHEADER structure  }
3281      RDH_RECTANGLES = 1;
3282   { TTPOLYGONHEADER structure  }
3283      TT_POLYGON_TYPE = 24;
3284   { TTPOLYCURVE structure  }
3285      TT_PRIM_LINE = 1;
3286      TT_PRIM_QSPLINE = 2;
3287   { GCP_RESULTS structure  }
3288      GCPCLASS_ARABIC = 2;
3289      GCPCLASS_HEBREW = 2;
3290      GCPCLASS_LATIN = 1;
3291      GCPCLASS_LATINNUMBER = 5;
3292      GCPCLASS_LOCALNUMBER = 4;
3293      GCPCLASS_LATINNUMERICSEPARATOR = 7;
3294      GCPCLASS_LATINNUMERICTERMINATOR = 6;
3295      GCPCLASS_NEUTRAL = 3;
3296      GCPCLASS_NUMERICSEPARATOR = 8;
3297      GCPCLASS_PREBOUNDLTR = 128;
3298      GCPCLASS_PREBOUNDRTL = 64;
3299      GCPCLASS_POSTBOUNDLTR = 32;
3300      GCPCLASS_POSTBOUNDRTL = 16;
3301      GCPGLYPH_LINKBEFORE = 32768;
3302      GCPGLYPH_LINKAFTER = 16384;
3303   { RASTERIZER_STATUS structure  }
3304      TT_AVAILABLE = 1;
3305      TT_ENABLED = 2;
3306   { COLORADJUSTMENT structure  }
3307      CA_NEGATIVE = 1;
3308      CA_LOG_FILTER = 2;
3309      ILLUMINANT_DEVICE_DEFAULT = 0;
3310      ILLUMINANT_A = 1;
3311      ILLUMINANT_B = 2;
3312      ILLUMINANT_C = 3;
3313      ILLUMINANT_D50 = 4;
3314      ILLUMINANT_D55 = 5;
3315      ILLUMINANT_D65 = 6;
3316      ILLUMINANT_D75 = 7;
3317      ILLUMINANT_F2 = 8;
3318      ILLUMINANT_TUNGSTEN = 1;
3319      ILLUMINANT_DAYLIGHT = 3;
3320      ILLUMINANT_FLUORESCENT = 8;
3321      ILLUMINANT_NTSC = 3;
3322   { DOCINFO structure  }
3323      DI_APPBANDING = 1;
3324   { EMRMETAHEADER structure  }
3325      EMR_HEADER = 1;
3326      ENHMETA_SIGNATURE = 1179469088;
3327   { RTF event masks  }
3328      ENM_CHANGE = 1;
3329      ENM_CORRECTTEXT = 4194304;
3330      ENM_DROPFILES = 1048576;
3331      ENM_KEYEVENTS = 65536;
3332      ENM_MOUSEEVENTS = 131072;
3333      ENM_PROTECTED = 2097152;
3334      ENM_REQUESTRESIZE = 262144;
3335      ENM_SCROLL = 4;
3336      ENM_SELCHANGE = 524288;
3337      ENM_UPDATE = 2;
3338      ENM_NONE = 0;
3339   { RTF styles  }
3340      ES_DISABLENOSCROLL = 8192;
3341      ES_EX_NOCALLOLEINIT = 16777216;
3342      ES_NOIME = 524288;
3343      ES_SAVESEL = 32768;
3344      ES_SELFIME = 262144;
3345      ES_SUNKEN = 16384;
3346      ES_VERTICAL = 4194304;
3347      ES_SELECTIONBAR = 16777216;
3348   { EM_SETOPTIONS message  }
3349      ECOOP_SET = 1;
3350      ECOOP_OR = 2;
3351      ECOOP_AND = 3;
3352      ECOOP_XOR = 4;
3353      ECO_AUTOWORDSELECTION = 1;
3354      ECO_AUTOVSCROLL = 64;
3355      ECO_AUTOHSCROLL = 128;
3356      ECO_NOHIDESEL = 256;
3357      ECO_READONLY = 2048;
3358      ECO_WANTRETURN = 4096;
3359      ECO_SAVESEL = 32768;
3360      ECO_SELECTIONBAR = 16777216;
3361      ECO_VERTICAL = 4194304;
3362   { EM_SETCHARFORMAT message  }
3363      SCF_WORD = 2;
3364      SCF_SELECTION = 1;
3365   { EM_STREAMOUT message  }
3366      SF_TEXT = 1;
3367      SF_RTF = 2;
3368      SF_RTFNOOBJS = 3;
3369      SF_TEXTIZED = 4;
3370      SFF_SELECTION = 32768;
3371      SFF_PLAINRTF = 16384;
3372   { EM_FINDWORDBREAK message  }
3373      WB_CLASSIFY = 3;
3374      {WB_ISDELIMITER = 2;
3375      WB_LEFT = 0; already above }
3376      WB_LEFTBREAK = 6;
3377      WB_PREVBREAK = 6;
3378      WB_MOVEWORDLEFT = 4;
3379      WB_MOVEWORDPREV = 4;
3380      WB_MOVEWORDRIGHT = 5;
3381      WB_MOVEWORDNEXT = 5;
3382      {WB_RIGHT = 1;already above }
3383      WB_RIGHTBREAK = 7;
3384      WB_NEXTBREAK = 7;
3385   { EM_GETPUNCTUATION message  }
3386      PC_LEADING = 2;
3387      PC_FOLLOWING = 1;
3388      PC_DELIMITER = 4;
3389      PC_OVERFLOW = 3;
3390   { EM_SETWORDWRAPMODE message  }
3391      WBF_WORDWRAP = 16;
3392      WBF_WORDBREAK = 32;
3393      WBF_OVERFLOW = 64;
3394      WBF_LEVEL1 = 128;
3395      WBF_LEVEL2 = 256;
3396      WBF_CUSTOM = 512;
3397      WBF_BREAKAFTER = 64;
3398      WBF_BREAKLINE = 32;
3399      WBF_ISWHITE = 16;
3400   { CHARFORMAT structure  }
3401      CFM_BOLD = 1;
3402      CFM_COLOR = 1073741824;
3403      CFM_FACE = 536870912;
3404      CFM_ITALIC = 2;
3405      CFM_OFFSET = 268435456;
3406      CFM_PROTECTED = 16;
3407      CFM_SIZE = $80000000;
3408      CFM_STRIKEOUT = 8;
3409      CFM_UNDERLINE = 4;
3410      CFE_AUTOCOLOR = 1073741824;
3411      CFE_BOLD = 1;
3412      CFE_ITALIC = 2;
3413      CFE_STRIKEOUT = 8;
3414      CFE_UNDERLINE = 4;
3415      CFE_PROTECTED = 16;
3416   { PARAFORMAT structure  }
3417      PFM_ALIGNMENT = 8;
3418      PFM_NUMBERING = 32;
3419      PFM_OFFSET = 4;
3420      PFM_OFFSETINDENT = $80000000;
3421      PFM_RIGHTINDENT = 2;
3422      PFM_STARTINDENT = 1;
3423      PFM_TABSTOPS = 16;
3424      PFN_BULLET = 1;
3425      PFA_LEFT = 1;
3426      PFA_RIGHT = 2;
3427      PFA_CENTER = 3;
3428   { SELCHANGE structure  }
3429      SEL_EMPTY = 0;
3430      SEL_TEXT = 1;
3431      SEL_OBJECT = 2;
3432      SEL_MULTICHAR = 4;
3433      SEL_MULTIOBJECT = 8;
3434   { RTF clipboard formats  }
3435      CF_RTF = 'Rich Text Format';
3436      CF_RETEXTOBJ = 'RichEdit Text and Objects';
3437   { DRAWITEMSTRUCT structure  }
3438      ODT_BUTTON = 4;
3439      ODT_COMBOBOX = 3;
3440      ODT_LISTBOX = 2;
3441      ODT_LISTVIEW = 102;
3442      ODT_MENU = 1;
3443      ODT_STATIC = 5;
3444      ODT_TAB = 101;
3445      ODT_HEADER = 100;
3446      ODA_DRAWENTIRE = 1;
3447      ODA_FOCUS = 4;
3448      ODA_SELECT = 2;
3449      ODS_CHECKED = 8;
3450      ODS_COMBOBOXEDIT = 4096;
3451      ODS_DEFAULT = 32;
3452      ODS_DISABLED = 4;
3453      ODS_FOCUS = 16;
3454      ODS_GRAYED = 2;
3455      ODS_SELECTED = 1;
3456   { Common control window classes  }
3457      ANIMATE_CLASSW = 'SysAnimate32';
3458      HOTKEY_CLASSW = 'msctls_hotkey32';
3459      PROGRESS_CLASSW = 'msctls_progress32';
3460      STATUSCLASSNAMEW = 'msctls_statusbar32';
3461      TOOLBARCLASSNAMEW = 'ToolbarWindow32';
3462      TOOLTIPS_CLASSW = 'tooltips_class32';
3463      TRACKBAR_CLASSW = 'msctls_trackbar32';
3464      UPDOWN_CLASSW = 'msctls_updown32';
3465      WC_HEADERW = 'SysHeader32';
3466      WC_LISTVIEWW = 'SysListView32';
3467      WC_TABCONTROLW = 'SysTabControl32';
3468      WC_TREEVIEWW = 'SysTreeView32';
3469   { Common control styles  }
3470      CCS_ADJUSTABLE = $20;
3471      CCS_BOTTOM = $3;
3472      CCS_NODIVIDER = $40;
3473      CCS_NOMOVEY = $2;
3474      CCS_NOPARENTALIGN = $8;
3475      CCS_NORESIZE = $4;
3476      CCS_TOP = $1;
3477      ANIMATE_CLASSA = 'SysAnimate32';
3478      HOTKEY_CLASSA = 'msctls_hotkey32';
3479      PROGRESS_CLASSA = 'msctls_progress32';
3480      STATUSCLASSNAMEA = 'msctls_statusbar32';
3481      TOOLBARCLASSNAMEA = 'ToolbarWindow32';
3482      TOOLTIPS_CLASSA = 'tooltips_class32';
3483      TRACKBAR_CLASSA = 'msctls_trackbar32';
3484      UPDOWN_CLASSA = 'msctls_updown32';
3485      WC_HEADERA = 'SysHeader32';
3486      WC_LISTVIEWA = 'SysListView32';
3487      WC_TABCONTROLA = 'SysTabControl32';
3488      WC_TREEVIEWA = 'SysTreeView32';
3489 {$ifdef UNICODE}
3490
3491   const
3492      ANIMATE_CLASS = ANIMATE_CLASSW;
3493      HOTKEY_CLASS = HOTKEY_CLASSW;
3494      PROGRESS_CLASS = PROGRESS_CLASSW;
3495      STATUSCLASSNAME = STATUSCLASSNAMEW;
3496      TOOLBARCLASSNAME = TOOLBARCLASSNAMEW;
3497      TOOLTIPS_CLASS = TOOLTIPS_CLASSW;
3498      TRACKBAR_CLASS = TRACKBAR_CLASSW;
3499      UPDOWN_CLASS = UPDOWN_CLASSW;
3500      WC_HEADER = WC_HEADERW;
3501      WC_LISTVIEW = WC_LISTVIEWW;
3502      WC_TABCONTROL = WC_TABCONTROLW;
3503      WC_TREEVIEW = WC_TREEVIEWW;
3504 {$else}
3505
3506   const
3507      ANIMATE_CLASS = ANIMATE_CLASSA;
3508      HOTKEY_CLASS = HOTKEY_CLASSA;
3509      PROGRESS_CLASS = PROGRESS_CLASSA;
3510      STATUSCLASSNAME = STATUSCLASSNAMEA;
3511      TOOLBARCLASSNAME = TOOLBARCLASSNAMEA;
3512      TOOLTIPS_CLASS = TOOLTIPS_CLASSA;
3513      TRACKBAR_CLASS = TRACKBAR_CLASSA;
3514      UPDOWN_CLASS = UPDOWN_CLASSA;
3515      WC_HEADER = WC_HEADERA;
3516      WC_LISTVIEW = WC_LISTVIEWA;
3517      WC_TABCONTROL = WC_TABCONTROLA;
3518      WC_TREEVIEW = WC_TREEVIEWA;
3519 {$endif}
3520   { UNICODE  }
3521   { Header control styles  }
3522
3523   const
3524      HDS_BUTTONS = 2;
3525      HDS_HIDDEN = 8;
3526      HDS_HORZ = 0;
3527   { HD_ITEM structure  }
3528      HDI_BITMAP = 16;
3529      HDI_FORMAT = 4;
3530      HDI_HEIGHT = 1;
3531      HDI_LPARAM = 8;
3532      HDI_TEXT = 2;
3533      HDI_WIDTH = 1;
3534      HDF_CENTER = 2;
3535      HDF_LEFT = 0;
3536      HDF_RIGHT = 1;
3537      HDF_RTLREADING = 4;
3538      HDF_BITMAP = 8192;
3539      HDF_OWNERDRAW = 32768;
3540      HDF_STRING = 16384;
3541      HDF_JUSTIFYMASK = 3;
3542   { HD_HITTESTINFO structure  }
3543      HHT_NOWHERE = 1;
3544      HHT_ONDIVIDER = 4;
3545      HHT_ONDIVOPEN = 8;
3546      HHT_ONHEADER = 2;
3547      HHT_TOLEFT = 2048;
3548      HHT_TORIGHT = 1024;
3549   { TBADDBITMAP structure  }
3550     { was #define dname def_expr }
3551     function HINST_COMMCTRL : HINST;
3552
3553
3554   const
3555      IDB_STD_LARGE_COLOR = 1;
3556      IDB_STD_SMALL_COLOR = 0;
3557      IDB_VIEW_LARGE_COLOR = 5;
3558      IDB_VIEW_SMALL_COLOR = 4;
3559      STD_COPY = 1;
3560      STD_CUT = 0;
3561      STD_DELETE = 5;
3562      STD_FILENEW = 6;
3563      STD_FILEOPEN = 7;
3564      STD_FILESAVE = 8;
3565      STD_FIND = 12;
3566      STD_HELP = 11;
3567      STD_PASTE = 2;
3568      STD_PRINT = 14;
3569      STD_PRINTPRE = 9;
3570      STD_PROPERTIES = 10;
3571      STD_REDOW = 4;
3572      STD_REPLACE = 13;
3573      STD_UNDO = 3;
3574      VIEW_LARGEICONS = 0;
3575      VIEW_SMALLICONS = 1;
3576      VIEW_LIST = 2;
3577      VIEW_DETAILS = 3;
3578      VIEW_SORTNAME = 4;
3579      VIEW_SORTSIZE = 5;
3580      VIEW_SORTDATE = 6;
3581      VIEW_SORTTYPE = 7;
3582   { Toolbar styles  }
3583      TBSTYLE_ALTDRAG = 1024;
3584      TBSTYLE_TOOLTIPS = 256;
3585      TBSTYLE_WRAPABLE = 512;
3586      TBSTYLE_BUTTON = 0;
3587      TBSTYLE_CHECK = 2;
3588      TBSTYLE_CHECKGROUP = 6;
3589      TBSTYLE_GROUP = 4;
3590      TBSTYLE_SEP = 1;
3591   { Toolbar states  }
3592      TBSTATE_CHECKED = 1;
3593      TBSTATE_ENABLED = 4;
3594      TBSTATE_HIDDEN = 8;
3595      TBSTATE_INDETERMINATE = 16;
3596      TBSTATE_PRESSED = 2;
3597      TBSTATE_WRAP = 32;
3598   { Tooltip styles  }
3599      TTS_ALWAYSTIP = 1;
3600      TTS_NOPREFIX = 2;
3601   { TOOLINFO structure  }
3602      TTF_IDISHWND = 1;
3603      TTF_CENTERTIP = 2;
3604      TTF_RTLREADING = 4;
3605      TTF_SUBCLASS = 16;
3606   { TTM_SETDELAYTIME message  }
3607      TTDT_AUTOMATIC = 0;
3608      TTDT_AUTOPOP = 2;
3609      TTDT_INITIAL = 3;
3610      TTDT_RESHOW = 1;
3611   { Status window  }
3612      SBARS_SIZEGRIP = 256;
3613      {SBARS_SIZEGRIP = 256;already above }
3614   { DL_DRAGGING message  }
3615      DL_MOVECURSOR = 3;
3616      DL_COPYCURSOR = 2;
3617      DL_STOPCURSOR = 1;
3618   { Up-down control styles  }
3619      UDS_ALIGNLEFT = 8;
3620      UDS_ALIGNRIGHT = 4;
3621      UDS_ARROWKEYS = 32;
3622      UDS_AUTOBUDDY = 16;
3623      UDS_HORZ = 64;
3624      UDS_NOTHOUSANDS = 128;
3625      UDS_SETBUDDYINT = 2;
3626      UDS_WRAP = 1;
3627   { UDM_SETRANGE message  }
3628      UD_MAXVAL = 32767;
3629      UD_MINVAL = -(32767);
3630   { HKM_GETHOTKEY message  }
3631      HOTKEYF_ALT = 4;
3632      HOTKEYF_CONTROL = 2;
3633      HOTKEYF_EXT = 8;
3634      HOTKEYF_SHIFT = 1;
3635   { HKM_SETRULES message  }
3636      HKCOMB_A = 8;
3637      HKCOMB_C = 4;
3638      HKCOMB_CA = 64;
3639      HKCOMB_NONE = 1;
3640      HKCOMB_S = 2;
3641      HKCOMB_SA = 32;
3642      HKCOMB_SC = 16;
3643      HKCOMB_SCA = 128;
3644   { Trackbar styles  }
3645      TBS_HORZ = 0;
3646      TBS_VERT = 2;
3647      TBS_AUTOTICKS = 1;
3648      TBS_NOTICKS = 16;
3649      TBS_TOP = 4;
3650      TBS_BOTTOM = 0;
3651      TBS_LEFT = 4;
3652      TBS_RIGHT = 0;
3653      TBS_BOTH = 8;
3654      TBS_ENABLESELRANGE = 32;
3655      TBS_FIXEDLENGTH = 64;
3656      TBS_NOTHUMB = 128;
3657      TB_BOTTOM = 7;
3658      TB_ENDTRACK = 8;
3659      TB_LINEDOWN = 1;
3660      TB_LINEUP = 0;
3661      TB_PAGEDOWN = 3;
3662      TB_PAGEUP = 2;
3663      TB_THUMBPOSITION = 4;
3664      TB_THUMBTRACK = 5;
3665      TB_TOP = 6;
3666   { List view styles  }
3667      LVS_ALIGNLEFT = 2048;
3668      LVS_ALIGNTOP = 0;
3669      LVS_AUTOARRANGE = 256;
3670      LVS_EDITLABELS = 512;
3671      LVS_ICON = 0;
3672      LVS_LIST = 3;
3673      LVS_NOCOLUMNHEADER = 16384;
3674      LVS_NOLABELWRAP = 128;
3675      LVS_NOSCROLL = 8192;
3676      LVS_NOSORTHEADER = 32768;
3677      LVS_OWNERDRAWFIXED = 1024;
3678      LVS_REPORT = 1;
3679      LVS_SHAREIMAGELISTS = 64;
3680      LVS_SHOWSELALWAYS = 8;
3681      LVS_SINGLESEL = 4;
3682      LVS_SMALLICON = 2;
3683      LVS_SORTASCENDING = 16;
3684      LVS_SORTDESCENDING = 32;
3685      LVS_TYPESTYLEMASK = 64512;
3686      LVSIL_NORMAL = 0;
3687      LVSIL_SMALL = 1;
3688      LVSIL_STATE = 2;
3689      LVIS_CUT = 4;
3690      LVIS_DROPHILITED = 8;
3691      LVIS_FOCUSED = 1;
3692      LVIS_SELECTED = 2;
3693      LVIS_OVERLAYMASK = 3840;
3694      LVIS_STATEIMAGEMASK = 61440;
3695     { was #define dname def_expr }
3696     function LPSTR_TEXTCALLBACKW : LPWSTR;
3697
3698     { was #define dname def_expr }
3699     function LPSTR_TEXTCALLBACKA : LPSTR;
3700
3701 {$ifdef UNICODE}
3702
3703   {const this is a function in fact !!
3704      LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKW;}
3705     function LPSTR_TEXTCALLBACK : LPWSTR;
3706
3707 {$else}
3708
3709   {const
3710      LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKA; }
3711     function LPSTR_TEXTCALLBACK : LPSTR;
3712 {$endif}
3713   { UNICODE  }
3714   { LV_ITEM structure  }
3715
3716   const
3717      LVIF_TEXT = 1;
3718      LVIF_IMAGE = 2;
3719      LVIF_PARAM = 4;
3720      LVIF_STATE = 8;
3721      LVIF_DI_SETITEM = 4096;
3722   { LVM_GETNEXTITEM structure  }
3723      LVNI_ABOVE = 256;
3724      LVNI_ALL = 0;
3725      LVNI_BELOW = 512;
3726      LVNI_TOLEFT = 1024;
3727      LVNI_TORIGHT = 2048;
3728      LVNI_CUT = 4;
3729      LVNI_DROPHILITED = 8;
3730      LVNI_FOCUSED = 1;
3731      LVNI_SELECTED = 2;
3732   { LV_FINDINFO structure  }
3733      LVFI_PARAM = 1;
3734      LVFI_PARTIAL = 8;
3735      LVFI_STRING = 2;
3736      LVFI_WRAP = 32;
3737      LVFI_NEARESTXY = 64;
3738   { LV_HITTESTINFO structure  }
3739      LVHT_ABOVE = 8;
3740      LVHT_BELOW = 16;
3741      LVHT_NOWHERE = 1;
3742      LVHT_ONITEMICON = 2;
3743      LVHT_ONITEMLABEL = 4;
3744      LVHT_ONITEMSTATEICON = 8;
3745      LVHT_TOLEFT = 64;
3746      LVHT_TORIGHT = 32;
3747   { LV_COLUMN structure  }
3748      LVCF_FMT = 1;
3749      LVCF_SUBITEM = 8;
3750      LVCF_TEXT = 4;
3751      LVCF_WIDTH = 2;
3752      LVCFMT_CENTER = 2;
3753      LVCFMT_LEFT = 0;
3754      LVCFMT_RIGHT = 1;
3755   { ListView_GetItemRect  }
3756      LVIR_BOUNDS = 0;
3757      LVIR_ICON = 1;
3758      LVIR_LABEL = 2;
3759      LVIR_SELECTBOUNDS = 3;
3760   { LVM_ARRANGE message  }
3761      LVA_ALIGNLEFT = 1;
3762      LVA_ALIGNTOP = 2;
3763      LVA_DEFAULT = 0;
3764      LVA_SNAPTOGRID = 5;
3765   { LVM_SETCOLUMNWIDTH message  }
3766      LVSCW_AUTOSIZE = -(1);
3767      LVSCW_AUTOSIZE_USEHEADER = -(2);
3768   { Tree View styles  }
3769      TVS_DISABLEDRAGDROP = 16;
3770      TVS_EDITLABELS = 8;
3771      TVS_HASBUTTONS = 1;
3772      TVS_HASLINES = 2;
3773      TVS_LINESATROOT = 4;
3774      TVS_SHOWSELALWAYS = 32;
3775   { Tree View states  }
3776      TVIS_BOLD = 16;
3777      TVIS_CUT = 4;
3778      TVIS_DROPHILITED = 8;
3779      TVIS_EXPANDED = 32;
3780      TVIS_EXPANDEDONCE = 64;
3781      TVIS_FOCUSED = 1;
3782      TVIS_OVERLAYMASK = 3840;
3783      TVIS_SELECTED = 2;
3784      TVIS_STATEIMAGEMASK = 61440;
3785      TVIS_USERMASK = 61440;
3786   { TV_ITEM structure  }
3787      TVIF_CHILDREN = 64;
3788      TVIF_HANDLE = 16;
3789      TVIF_IMAGE = 2;
3790      TVIF_PARAM = 4;
3791      TVIF_SELECTEDIMAGE = 32;
3792      TVIF_STATE = 8;
3793      TVIF_TEXT = 1;
3794      I_CHILDRENCALLBACK = -(1);
3795      I_IMAGECALLBACK = -(1);
3796   { TV_INSERTSTRUCT structure  }
3797     { added manually PM, TREEITEM is not defined in the C headers }
3798      type
3799        TREEITEM = record
3800                   end;
3801        HTREEITEM = ^TREEITEM;
3802        TTREEITEM = TREEITEM;
3803        PTREEITEM = ^TREEITEM;
3804
3805     { was #define dname def_expr }
3806     function TVI_ROOT : HTREEITEM;
3807
3808     { was #define dname def_expr }
3809     function TVI_FIRST : HTREEITEM;
3810
3811     { was #define dname def_expr }
3812     function TVI_LAST : HTREEITEM;
3813
3814     { was #define dname def_expr }
3815     function TVI_SORT : HTREEITEM;
3816
3817   { TV_HITTESTINFO structure  }
3818
3819   const
3820      TVHT_ABOVE = 256;
3821      TVHT_BELOW = 512;
3822      TVHT_NOWHERE = 1;
3823      TVHT_ONITEM = 70;
3824      TVHT_ONITEMBUTTON = 16;
3825      TVHT_ONITEMICON = 2;
3826      TVHT_ONITEMINDENT = 8;
3827      TVHT_ONITEMLABEL = 4;
3828      TVHT_ONITEMRIGHT = 32;
3829      TVHT_ONITEMSTATEICON = 64;
3830      TVHT_TOLEFT = 2048;
3831      TVHT_TORIGHT = 1024;
3832   { TVM_EXPAND message  }
3833      TVE_COLLAPSE = 1;
3834      TVE_COLLAPSERESET = 32768;
3835      TVE_EXPAND = 2;
3836      TVE_TOGGLE = 3;
3837   { TVM_GETIMAGELIST message  }
3838      TVSIL_NORMAL = 0;
3839      TVSIL_STATE = 2;
3840   { TVM_GETNEXTITEM message  }
3841      TVGN_CARET = 9;
3842      TVGN_CHILD = 4;
3843      TVGN_DROPHILITE = 8;
3844      TVGN_FIRSTVISIBLE = 5;
3845      TVGN_NEXT = 1;
3846      TVGN_NEXTVISIBLE = 6;
3847      TVGN_PARENT = 3;
3848      TVGN_PREVIOUS = 2;
3849      TVGN_PREVIOUSVISIBLE = 7;
3850      TVGN_ROOT = 0;
3851   { TVN_SELCHANGED message  }
3852      TVC_BYKEYBOARD = 2;
3853      TVC_BYMOUSE = 1;
3854      TVC_UNKNOWN = 0;
3855   { Tab control styles  }
3856      TCS_BUTTONS = 256;
3857      TCS_FIXEDWIDTH = 1024;
3858      TCS_FOCUSNEVER = 32768;
3859      TCS_FOCUSONBUTTONDOWN = 4096;
3860      TCS_FORCEICONLEFT = 16;
3861      TCS_FORCELABELLEFT = 32;
3862      TCS_MULTILINE = 512;
3863      TCS_OWNERDRAWFIXED = 8192;
3864      TCS_RAGGEDRIGHT = 2048;
3865      TCS_RIGHTJUSTIFY = 0;
3866      TCS_SINGLELINE = 0;
3867      TCS_TABS = 0;
3868      TCS_TOOLTIPS = 16384;
3869   { TC_ITEM structure  }
3870      TCIF_TEXT = 1;
3871      TCIF_IMAGE = 2;
3872      TCIF_PARAM = 8;
3873      TCIF_RTLREADING = 4;
3874   { TC_HITTESTINFO structure  }
3875      TCHT_NOWHERE = 1;
3876      TCHT_ONITEM = 6;
3877      TCHT_ONITEMICON = 2;
3878      TCHT_ONITEMLABEL = 4;
3879   { Animation control styles  }
3880      ACS_AUTOPLAY = 4;
3881      ACS_CENTER = 1;
3882      ACS_TRANSPARENT = 2;
3883   { MODEMDEVCAPS structure  }
3884      DIALOPTION_BILLING = 64;
3885      DIALOPTION_QUIET = 128;
3886      DIALOPTION_DIALTONE = 256;
3887      MDMVOLFLAG_LOW = 1;
3888      MDMVOLFLAG_MEDIUM = 2;
3889      MDMVOLFLAG_HIGH = 4;
3890      MDMVOL_LOW = 0;
3891      MDMVOL_MEDIUM = 1;
3892      MDMVOL_HIGH = 2;
3893      MDMSPKRFLAG_OFF = 1;
3894      MDMSPKRFLAG_DIAL = 2;
3895      MDMSPKRFLAG_ON = 4;
3896      MDMSPKRFLAG_CALLSETUP = 8;
3897      MDMSPKR_OFF = 0;
3898      MDMSPKR_DIAL = 1;
3899      MDMSPKR_ON = 2;
3900      MDMSPKR_CALLSETUP = 3;
3901      MDM_BLIND_DIAL = 512;
3902      MDM_CCITT_OVERRIDE = 64;
3903      MDM_CELLULAR = 8;
3904      MDM_COMPRESSION = 1;
3905      MDM_ERROR_CONTROL = 2;
3906      MDM_FLOWCONTROL_HARD = 16;
3907      MDM_FLOWCONTROL_SOFT = 32;
3908      MDM_FORCED_EC = 4;
3909      MDM_SPEED_ADJUST = 128;
3910      MDM_TONE_DIAL = 256;
3911      MDM_V23_OVERRIDE = 1024;
3912   { Languages  }
3913      LANG_BULGARIAN = 2;
3914      LANG_CHINESE = 4;
3915      LANG_CROATIAN = 26;
3916      LANG_CZECH = 5;
3917      LANG_DANISH = 6;
3918      LANG_DUTCH = 19;
3919      LANG_ENGLISH = 9;
3920      LANG_FINNISH = 11;
3921      LANG_FRENCH = 12;
3922      LANG_GERMAN = 7;
3923      LANG_GREEK = 8;
3924      LANG_HUNGARIAN = 14;
3925      LANG_ICELANDIC = 15;
3926      LANG_ITALIAN = 16;
3927      LANG_JAPANESE = 17;
3928      LANG_KOREAN = 18;
3929      LANG_NEUTRAL = 0;
3930      LANG_NORWEGIAN = 20;
3931      LANG_POLISH = 21;
3932      LANG_PORTUGUESE = 22;
3933      LANG_ROMANIAN = 24;
3934      LANG_RUSSIAN = 25;
3935      LANG_SLOVAK = 27;
3936      LANG_SLOVENIAN = 36;
3937      LANG_SPANISH = 10;
3938      LANG_SWEDISH = 29;
3939      LANG_TURKISH = 31;
3940      SUBLANG_CHINESE_SIMPLIFIED = 2;
3941      SUBLANG_CHINESE_TRADITIONAL = 1;
3942      SUBLANG_CHINESE_HONGKONG = 3;
3943      SUBLANG_CHINESE_SINGAPORE = 4;
3944      SUBLANG_DEFAULT = 1;
3945      SUBLANG_DUTCH = 1;
3946      SUBLANG_DUTCH_BELGIAN = 2;
3947      SUBLANG_ENGLISH_AUS = 3;
3948      SUBLANG_ENGLISH_CAN = 4;
3949      SUBLANG_ENGLISH_EIRE = 6;
3950      SUBLANG_ENGLISH_NZ = 5;
3951      SUBLANG_ENGLISH_UK = 2;
3952      SUBLANG_ENGLISH_US = 1;
3953      SUBLANG_FRENCH = 1;
3954      SUBLANG_FRENCH_BELGIAN = 2;
3955      SUBLANG_FRENCH_CANADIAN = 3;
3956      SUBLANG_FRENCH_SWISS = 4;
3957      SUBLANG_GERMAN = 1;
3958      SUBLANG_GERMAN_AUSTRIAN = 3;
3959      SUBLANG_GERMAN_SWISS = 2;
3960      SUBLANG_ITALIAN = 1;
3961      SUBLANG_ITALIAN_SWISS = 2;
3962      SUBLANG_NEUTRAL = 0;
3963      SUBLANG_NORWEGIAN_BOKMAL = 1;
3964      SUBLANG_NORWEGIAN_NYNORSK = 2;
3965      SUBLANG_PORTUGUESE = 2;
3966      SUBLANG_PORTUGUESE_BRAZILIAN = 1;
3967      SUBLANG_SPANISH = 1;
3968      SUBLANG_SPANISH_MEXICAN = 2;
3969      SUBLANG_SPANISH_MODERN = 3;
3970      SUBLANG_SYS_DEFAULT = 2;
3971      NLS_VALID_LOCALE_MASK = 1048575;
3972      SORT_DEFAULT = 0;
3973      SORT_JAPANESE_XJIS = 0;
3974      SORT_JAPANESE_UNICODE = 1;
3975      SORT_CHINESE_BIG5 = 0;
3976      SORT_CHINESE_UNICODE = 1;
3977      SORT_KOREAN_KSC = 0;
3978      SORT_KOREAN_UNICODE = 1;
3979   { SYSTEM_INFO structure  }
3980      PROCESSOR_INTEL_386 = 386;
3981      PROCESSOR_INTEL_486 = 486;
3982      PROCESSOR_INTEL_PENTIUM = 586;
3983      PROCESSOR_MIPS_R4000 = 4000;
3984      PROCESSOR_ALPHA_21064 = 21064;
3985   { FSCTL_SET_COMPRESSION  }
3986      COMPRESSION_FORMAT_NONE = 0;
3987      COMPRESSION_FORMAT_DEFAULT = 1;
3988      COMPRESSION_FORMAT_LZNT1 = 2;
3989   { TAPE_GET_DRIVE_PARAMETERS structure  }
3990      TAPE_DRIVE_COMPRESSION = 131072;
3991      TAPE_DRIVE_ECC = 65536;
3992      TAPE_DRIVE_ERASE_BOP_ONLY = 64;
3993      TAPE_DRIVE_ERASE_LONG = 32;
3994      TAPE_DRIVE_ERASE_IMMEDIATE = 128;
3995      TAPE_DRIVE_ERASE_SHORT = 16;
3996      TAPE_DRIVE_FIXED = 1;
3997      TAPE_DRIVE_FIXED_BLOCK = 1024;
3998      TAPE_DRIVE_INITIATOR = 4;
3999      TAPE_DRIVE_PADDING = 262144;
4000      TAPE_DRIVE_GET_ABSOLUTE_BLK = 1048576;
4001      TAPE_DRIVE_GET_LOGICAL_BLK = 2097152;
4002      TAPE_DRIVE_REPORT_SMKS = 524288;
4003      TAPE_DRIVE_SELECT = 2;
4004      TAPE_DRIVE_SET_EOT_WZ_SIZE = 4194304;
4005      TAPE_DRIVE_TAPE_CAPACITY = 256;
4006      TAPE_DRIVE_TAPE_REMAINING = 512;
4007      TAPE_DRIVE_VARIABLE_BLOCK = 2048;
4008      TAPE_DRIVE_WRITE_PROTECT = 4096;
4009      TAPE_DRIVE_ABS_BLK_IMMED = -(2147475456);
4010      TAPE_DRIVE_ABSOLUTE_BLK = -(2147479552);
4011      TAPE_DRIVE_END_OF_DATA = -(2147418112);
4012      TAPE_DRIVE_FILEMARKS = -(2147221504);
4013      TAPE_DRIVE_LOAD_UNLOAD = -(2147483647);
4014      TAPE_DRIVE_LOAD_UNLD_IMMED = -(2147483616);
4015      TAPE_DRIVE_LOCK_UNLOCK = -(2147483644);
4016      TAPE_DRIVE_LOCK_UNLK_IMMED = -(2147483520);
4017      TAPE_DRIVE_LOG_BLK_IMMED = -(2147450880);
4018      TAPE_DRIVE_LOGICAL_BLK = -(2147467264);
4019      TAPE_DRIVE_RELATIVE_BLKS = -(2147352576);
4020      TAPE_DRIVE_REVERSE_POSITION = -(2143289344);
4021      TAPE_DRIVE_REWIND_IMMEDIATE = -(2147483640);
4022      TAPE_DRIVE_SEQUENTIAL_FMKS = -(2146959360);
4023      TAPE_DRIVE_SEQUENTIAL_SMKS = -(2145386496);
4024      TAPE_DRIVE_SET_BLOCK_SIZE = -(2147483632);
4025      TAPE_DRIVE_SET_COMPRESSION = -(2147483136);
4026      TAPE_DRIVE_SET_ECC = -(2147483392);
4027      TAPE_DRIVE_SET_PADDING = -(2147482624);
4028      TAPE_DRIVE_SET_REPORT_SMKS = -(2147481600);
4029      TAPE_DRIVE_SETMARKS = -(2146435072);
4030      TAPE_DRIVE_SPACE_IMMEDIATE = -(2139095040);
4031      TAPE_DRIVE_TENSION = -(2147483646);
4032      TAPE_DRIVE_TENSION_IMMED = -(2147483584);
4033      TAPE_DRIVE_WRITE_FILEMARKS = -(2113929216);
4034      TAPE_DRIVE_WRITE_LONG_FMKS = -(2013265920);
4035      TAPE_DRIVE_WRITE_MARK_IMMED = -(1879048192);
4036      TAPE_DRIVE_WRITE_SETMARKS = -(2130706432);
4037      TAPE_DRIVE_WRITE_SHORT_FMKS = -(2080374784);
4038   { Standard rights  }
4039      STANDARD_RIGHTS_REQUIRED = $f0000;
4040      STANDARD_RIGHTS_WRITE = $20000;
4041      STANDARD_RIGHTS_READ = $20000;
4042      STANDARD_RIGHTS_EXECUTE = $20000;
4043      STANDARD_RIGHTS_ALL = $1f0000;
4044      SPECIFIC_RIGHTS_ALL = $ffff;
4045   { ACCESS_MASK  }
4046      MAXIMUM_ALLOWED = $2000000;
4047      GENERIC_ALL = $10000000;
4048   { SID  }
4049      SECURITY_NULL_RID = 0;
4050      SECURITY_WORLD_RID = 0;
4051      SECURITY_LOCAL_RID = 0;
4052      SECURITY_CREATOR_OWNER_RID = 0;
4053      SECURITY_CREATOR_GROUP_RID = $1;
4054      SECURITY_DIALUP_RID = $1;
4055      SECURITY_NETWORK_RID = $2;
4056      SECURITY_BATCH_RID = $3;
4057      SECURITY_INTERACTIVE_RID = $4;
4058      SECURITY_LOGON_IDS_RID = $5;
4059      SECURITY_LOGON_IDS_RID_COUNT = $3;
4060      SECURITY_SERVICE_RID = $6;
4061      SECURITY_LOCAL_SYSTEM_RID = $12;
4062      SECURITY_BUILTIN_DOMAIN_RID = $20;
4063      DOMAIN_USER_RID_ADMIN = $1f4;
4064      DOMAIN_USER_RID_GUEST = $1f5;
4065      DOMAIN_GROUP_RID_ADMINS = $200;
4066      DOMAIN_GROUP_RID_USERS = $201;
4067      DOMAIN_ALIAS_RID_ADMINS = $220;
4068      DOMAIN_ALIAS_RID_USERS = $221;
4069      DOMAIN_ALIAS_RID_GUESTS = $222;
4070      DOMAIN_ALIAS_RID_POWER_USERS = $223;
4071      DOMAIN_ALIAS_RID_ACCOUNT_OPS = $224;
4072      DOMAIN_ALIAS_RID_SYSTEM_OPS = $225;
4073      DOMAIN_ALIAS_RID_PRINT_OPS = $226;
4074      DOMAIN_ALIAS_RID_BACKUP_OPS = $227;
4075      DOMAIN_ALIAS_RID_REPLICATOR = $228;
4076   { TOKEN_GROUPS structure  }
4077      SE_GROUP_MANDATORY = $1;
4078      SE_GROUP_ENABLED_BY_DEFAULT = $2;
4079      SE_GROUP_ENABLED = $4;
4080      SE_GROUP_OWNER = $8;
4081      SE_GROUP_LOGON_ID = $c0000000;
4082   { ACL Defines  }
4083      ACL_REVISION = 2;
4084   { ACE_HEADER structure  }
4085      ACCESS_ALLOWED_ACE_TYPE = $0;
4086      ACCESS_DENIED_ACE_TYPE = $1;
4087      SYSTEM_AUDIT_ACE_TYPE = $2;
4088      SYSTEM_ALARM_ACE_TYPE = $3;
4089   { ACE flags in the ACE_HEADER structure  }
4090      OBJECT_INHERIT_ACE = $1;
4091      CONTAINER_INHERIT_ACE = $2;
4092      NO_PROPAGATE_INHERIT_ACE = $4;
4093      INHERIT_ONLY_ACE = $8;
4094      SUCCESSFUL_ACCESS_ACE_FLAG = $40;
4095      FAILED_ACCESS_ACE_FLAG = $80;
4096   { SECURITY_DESCRIPTOR_CONTROL  }
4097      {SECURITY_DESCRIPTOR_REVISION = 1;already defined above }
4098      SECURITY_DESCRIPTOR_MIN_LENGTH = 20;
4099      SE_OWNER_DEFAULTED = 1;
4100      SE_GROUP_DEFAULTED = 2;
4101      SE_DACL_PRESENT = 4;
4102      SE_DACL_DEFAULTED = 8;
4103      SE_SACL_PRESENT = 16;
4104      SE_SACL_DEFAULTED = 32;
4105      SE_SELF_RELATIVE = 32768;
4106   { PRIVILEGE_SET  }
4107      SE_PRIVILEGE_ENABLED_BY_DEFAULT = $1;
4108      SE_PRIVILEGE_ENABLED = $2;
4109      SE_PRIVILEGE_USED_FOR_ACCESS = $80000000;
4110      PRIVILEGE_SET_ALL_NECESSARY = $1;
4111   { OPENFILENAME structure  }
4112      OFN_ALLOWMULTISELECT = $200;
4113      OFN_CREATEPROMPT = $2000;
4114      OFN_ENABLEHOOK = $20;
4115      OFN_ENABLETEMPLATE = $40;
4116      OFN_ENABLETEMPLATEHANDLE = $80;
4117      OFN_EXPLORER = $80000;
4118      OFN_EXTENSIONDIFFERENT = $400;
4119      OFN_FILEMUSTEXIST = $1000;
4120      OFN_HIDEREADONLY = $4;
4121      OFN_LONGNAMES = $200000;
4122      OFN_NOCHANGEDIR = $8;
4123      OFN_NODEREFERENCELINKS = $100000;
4124      OFN_NOLONGNAMES = $40000;
4125      OFN_NONETWORKBUTTON = $20000;
4126      OFN_NOREADONLYRETURN = $8000;
4127      OFN_NOTESTFILECREATE = $10000;
4128      OFN_NOVALIDATE = $100;
4129      OFN_OVERWRITEPROMPT = $2;
4130      OFN_PATHMUSTEXIST = $800;
4131      OFN_READONLY = $1;
4132      OFN_SHAREAWARE = $4000;
4133      OFN_SHOWHELP = $10;
4134   { SHAREVISTRING message  }
4135      OFN_SHAREFALLTHROUGH = $2;
4136      OFN_SHARENOWARN = $1;
4137      OFN_SHAREWARN = 0;
4138   { Open/Save notifications  }
4139      CDN_INITDONE = $fffffda7;
4140      CDN_SELCHANGE = $fffffda6;
4141      CDN_FOLDERCHANGE = $fffffda5;
4142      CDN_SHAREVIOLATION = $fffffda4;
4143      CDN_HELP = $fffffda3;
4144      CDN_FILEOK = $fffffda2;
4145      CDN_TYPECHANGE = $fffffda1;
4146   { Open/Save messages  }
4147      CDM_GETFILEPATH = $465;
4148      CDM_GETFOLDERIDLIST = $467;
4149      CDM_GETFOLDERPATH = $466;
4150      CDM_GETSPEC = $464;
4151      CDM_HIDECONTROL = $469;
4152      CDM_SETCONTROLTEXT = $468;
4153      CDM_SETDEFEXT = $46a;
4154   { CHOOSECOLOR structure  }
4155      CC_ENABLEHOOK = $10;
4156      CC_ENABLETEMPLATE = $20;
4157      CC_ENABLETEMPLATEHANDLE = $40;
4158      CC_FULLOPEN = $2;
4159      CC_PREVENTFULLOPEN = $4;
4160      CC_RGBINIT = $1;
4161      CC_SHOWHELP = $8;
4162      CC_SOLIDCOLOR = $80;
4163   { FINDREPLACE structure  }
4164      FR_DIALOGTERM = $40;
4165      FR_DOWN = $1;
4166      FR_ENABLEHOOK = $100;
4167      FR_ENABLETEMPLATE = $200;
4168      FR_ENABLETEMPLATEHANDLE = $2000;
4169      FR_FINDNEXT = $8;
4170      FR_HIDEUPDOWN = $4000;
4171      FR_HIDEMATCHCASE = $8000;
4172      FR_HIDEWHOLEWORD = $10000;
4173      FR_MATCHCASE = $4;
4174      FR_NOMATCHCASE = $800;
4175      FR_NOUPDOWN = $400;
4176      FR_NOWHOLEWORD = $1000;
4177      FR_REPLACE = $10;
4178      FR_REPLACEALL = $20;
4179      FR_SHOWHELP = $80;
4180      FR_WHOLEWORD = $2;
4181   { CHOOSEFONT structure  }
4182      CF_APPLY = $200;
4183      CF_ANSIONLY = $400;
4184      CF_BOTH = $3;
4185      CF_TTONLY = $40000;
4186      CF_EFFECTS = $100;
4187      CF_ENABLEHOOK = $8;
4188      CF_ENABLETEMPLATE = $10;
4189      CF_ENABLETEMPLATEHANDLE = $20;
4190      CF_FIXEDPITCHONLY = $4000;
4191      CF_FORCEFONTEXIST = $10000;
4192      CF_INITTOLOGFONTSTRUCT = $40;
4193      CF_LIMITSIZE = $2000;
4194      CF_NOOEMFONTS = $800;
4195      CF_NOFACESEL = $80000;
4196      CF_NOSCRIPTSEL = $800000;
4197      CF_NOSTYLESEL = $100000;
4198      CF_NOSIZESEL = $200000;
4199      CF_NOSIMULATIONS = $1000;
4200      CF_NOVECTORFONTS = $800;
4201      CF_NOVERTFONTS = $1000000;
4202      CF_PRINTERFONTS = $2;
4203      CF_SCALABLEONLY = $20000;
4204      CF_SCREENFONTS = $1;
4205      CF_SCRIPTSONLY = $400;
4206      CF_SELECTSCRIPT = $400000;
4207      CF_SHOWHELP = $4;
4208      CF_USESTYLE = $80;
4209      CF_WYSIWYG = $8000;
4210      BOLD_FONTTYPE = $100;
4211      ITALIC_FONTTYPE = $200;
4212      PRINTER_FONTTYPE = $4000;
4213      REGULAR_FONTTYPE = $400;
4214      SCREEN_FONTTYPE = $2000;
4215      SIMULATED_FONTTYPE = $8000;
4216   { Common dialog messages  }
4217      COLOROKSTRINGW = 'commdlg_ColorOK';
4218      FILEOKSTRINGW = 'commdlg_FileNameOK';
4219      FINDMSGSTRINGW = 'commdlg_FindReplace';
4220      HELPMSGSTRINGW = 'commdlg_help';
4221      LBSELCHSTRINGW = 'commdlg_LBSelChangedNotify';
4222      SETRGBSTRINGW = 'commdlg_SetRGBColor';
4223      SHAREVISTRINGW = 'commdlg_ShareViolation';
4224      COLOROKSTRINGA = 'commdlg_ColorOK';
4225      FILEOKSTRINGA = 'commdlg_FileNameOK';
4226      FINDMSGSTRINGA = 'commdlg_FindReplace';
4227      HELPMSGSTRINGA = 'commdlg_help';
4228      LBSELCHSTRINGA = 'commdlg_LBSelChangedNotify';
4229      SETRGBSTRINGA = 'commdlg_SetRGBColor';
4230      SHAREVISTRINGA = 'commdlg_ShareViolation';
4231 {$ifdef UNICODE}
4232
4233   const
4234      COLOROKSTRING = COLOROKSTRINGW;
4235      FILEOKSTRING = FILEOKSTRINGW;
4236      FINDMSGSTRING = FINDMSGSTRINGW;
4237      HELPMSGSTRING = HELPMSGSTRINGW;
4238      LBSELCHSTRING = LBSELCHSTRINGW;
4239      SETRGBSTRING = SETRGBSTRINGW;
4240      SHAREVISTRING = SHAREVISTRINGW;
4241 {$else}
4242
4243   const
4244      COLOROKSTRING = COLOROKSTRINGA;
4245      FILEOKSTRING = FILEOKSTRINGA;
4246      FINDMSGSTRING = FINDMSGSTRINGA;
4247      HELPMSGSTRING = HELPMSGSTRINGA;
4248      LBSELCHSTRING = LBSELCHSTRINGA;
4249      SETRGBSTRING = SETRGBSTRINGA;
4250      SHAREVISTRING = SHAREVISTRINGA;
4251 {$endif}
4252   { LBSELCHSTRING message  }
4253
4254   const
4255      CD_LBSELCHANGE = 0;
4256      CD_LBSELADD = 2;
4257      CD_LBSELSUB = 1;
4258      CD_LBSELNOITEMS = -(1);
4259   { DEVNAMES structure  }
4260      DN_DEFAULTPRN = 1;
4261   { PRINTDLG structure  }
4262      PD_ALLPAGES = 0;
4263      PD_COLLATE = 16;
4264      PD_DISABLEPRINTTOFILE = 524288;
4265      PD_ENABLEPRINTHOOK = 4096;
4266      PD_ENABLEPRINTTEMPLATE = 16384;
4267      PD_ENABLEPRINTTEMPLATEHANDLE = 65536;
4268      PD_ENABLESETUPHOOK = 8192;
4269      PD_ENABLESETUPTEMPLATE = 32768;
4270      PD_ENABLESETUPTEMPLATEHANDLE = 131072;
4271      PD_HIDEPRINTTOFILE = 1048576;
4272      PD_NOPAGENUMS = 8;
4273      PD_NOSELECTION = 4;
4274      PD_NOWARNING = 128;
4275      PD_PAGENUMS = 2;
4276      PD_PRINTSETUP = 64;
4277      PD_PRINTTOFILE = 32;
4278      PD_RETURNDC = 256;
4279      PD_RETURNDEFAULT = 1024;
4280      PD_RETURNIC = 512;
4281      PD_SELECTION = 1;
4282      PD_SHOWHELP = 2048;
4283      PD_USEDEVMODECOPIES = 262144;
4284      PD_USEDEVMODECOPIESANDCOLLATE = 262144;
4285   { PAGESETUPDLG structure  }
4286      PSD_DEFAULTMINMARGINS = 0;
4287      PSD_DISABLEMARGINS = 16;
4288      PSD_DISABLEORIENTATION = 256;
4289      PSD_DISABLEPAGEPAINTING = 524288;
4290      PSD_DISABLEPAPER = 512;
4291      PSD_DISABLEPRINTER = 32;
4292      PSD_ENABLEPAGEPAINTHOOK = 262144;
4293      PSD_ENABLEPAGESETUPHOOK = 8192;
4294      PSD_ENABLEPAGESETUPTEMPLATE = 32768;
4295      PSD_ENABLEPAGESETUPTEMPLATEHANDLE = 131072;
4296      PSD_INHUNDREDTHSOFMILLIMETERS = 8;
4297      PSD_INTHOUSANDTHSOFINCHES = 4;
4298      PSD_INWININIINTLMEASURE = 0;
4299      PSD_MARGINS = 2;
4300      PSD_MINMARGINS = 1;
4301      PSD_NOWARNING = 128;
4302      PSD_RETURNDEFAULT = 1024;
4303      PSD_SHOWHELP = 2048;
4304   { WM_SHOWWINDOW message  }
4305      SW_OTHERUNZOOM = 4;
4306      SW_OTHERZOOM = 2;
4307      SW_PARENTCLOSING = 1;
4308      SW_PARENTOPENING = 3;
4309   { Virtual Key codes  }
4310      VK_LBUTTON = 1;
4311      VK_RBUTTON = 2;
4312      VK_CANCEL = 3;
4313      VK_MBUTTON = 4;
4314      VK_BACK = 8;
4315      VK_TAB = 9;
4316      VK_CLEAR = 12;
4317      VK_RETURN = 13;
4318      VK_SHIFT = 16;
4319      VK_CONTROL = 17;
4320      VK_MENU = 18;
4321      VK_PAUSE = 19;
4322      VK_CAPITAL = 20;
4323      VK_ESCAPE = 27;
4324      VK_SPACE = 32;
4325      VK_PRIOR = 33;
4326      VK_NEXT = 34;
4327      VK_END = 35;
4328      VK_HOME = 36;
4329      VK_LEFT = 37;
4330      VK_UP = 38;
4331      VK_RIGHT = 39;
4332      VK_DOWN = 40;
4333      VK_SELECT = 41;
4334      VK_PRINT = 42;
4335      VK_EXECUTE = 43;
4336      VK_SNAPSHOT = 44;
4337      VK_INSERT = 45;
4338      VK_DELETE = 46;
4339      VK_HELP = 47;
4340      VK_0 = 48;
4341      VK_1 = 49;
4342      VK_2 = 50;
4343      VK_3 = 51;
4344      VK_4 = 52;
4345      VK_5 = 53;
4346      VK_6 = 54;
4347      VK_7 = 55;
4348      VK_8 = 56;
4349      VK_9 = 57;
4350      VK_A = 65;
4351      VK_B = 66;
4352      VK_C = 67;
4353      VK_D = 68;
4354      VK_E = 69;
4355      VK_F = 70;
4356      VK_G = 71;
4357      VK_H = 72;
4358      VK_I = 73;
4359      VK_J = 74;
4360      VK_K = 75;
4361      VK_L = 76;
4362      VK_M = 77;
4363      VK_N = 78;
4364      VK_O = 79;
4365      VK_P = 80;
4366      VK_Q = 81;
4367      VK_R = 82;
4368      VK_S = 83;
4369      VK_T = 84;
4370      VK_U = 85;
4371      VK_V = 86;
4372      VK_W = 87;
4373      VK_X = 88;
4374      VK_Y = 89;
4375      VK_Z = 90;
4376      VK_NUMPAD0 = 96;
4377      VK_NUMPAD1 = 97;
4378      VK_NUMPAD2 = 98;
4379      VK_NUMPAD3 = 99;
4380      VK_NUMPAD4 = 100;
4381      VK_NUMPAD5 = 101;
4382      VK_NUMPAD6 = 102;
4383      VK_NUMPAD7 = 103;
4384      VK_NUMPAD8 = 104;
4385      VK_NUMPAD9 = 105;
4386      VK_MULTIPLY = 106;
4387      VK_ADD = 107;
4388      VK_SEPARATOR = 108;
4389      VK_SUBTRACT = 109;
4390      VK_DECIMAL = 110;
4391      VK_DIVIDE = 111;
4392      VK_F1 = 112;
4393      VK_F2 = 113;
4394      VK_F3 = 114;
4395      VK_F4 = 115;
4396      VK_F5 = 116;
4397      VK_F6 = 117;
4398      VK_F7 = 118;
4399      VK_F8 = 119;
4400      VK_F9 = 120;
4401      VK_F10 = 121;
4402      VK_F11 = 122;
4403      VK_F12 = 123;
4404      VK_F13 = 124;
4405      VK_F14 = 125;
4406      VK_F15 = 126;
4407      VK_F16 = 127;
4408      VK_F17 = 128;
4409      VK_F18 = 129;
4410      VK_F19 = 130;
4411      VK_F20 = 131;
4412      VK_F21 = 132;
4413      VK_F22 = 133;
4414      VK_F23 = 134;
4415      VK_F24 = 135;
4416   { GetAsyncKeyState  }
4417      VK_NUMLOCK = 144;
4418      VK_SCROLL = 145;
4419      VK_LSHIFT = 160;
4420      VK_LCONTROL = 162;
4421      VK_LMENU = 164;
4422      VK_RSHIFT = 161;
4423      VK_RCONTROL = 163;
4424      VK_RMENU = 165;
4425   { ImmGetVirtualKey  }
4426      VK_PROCESSKEY = 229;
4427   { Keystroke Message Flags  }
4428      KF_ALTDOWN = 8192;
4429      KF_DLGMODE = 2048;
4430      KF_EXTENDED = 256;
4431      KF_MENUMODE = 4096;
4432      KF_REPEAT = 16384;
4433      KF_UP = 32768;
4434   { GetKeyboardLayoutName  }
4435      KL_NAMELENGTH = 9;
4436   { WM_ACTIVATE message  }
4437      WA_ACTIVE = 1;
4438      WA_CLICKACTIVE = 2;
4439      WA_INACTIVE = 0;
4440   { WM_ACTIVATE message  }
4441      PWR_CRITICALRESUME = 3;
4442      PWR_SUSPENDREQUEST = 1;
4443      PWR_SUSPENDRESUME = 2;
4444      PWR_FAIL = -(1);
4445      PWR_OK = 1;
4446   { WM_NOTIFYFORMAT message  }
4447      NF_QUERY = 3;
4448      NF_REQUERY = 4;
4449      NFR_ANSI = 1;
4450      NFR_UNICODE = 2;
4451   { WM_SIZING message  }
4452      WMSZ_BOTTOM = 6;
4453      WMSZ_BOTTOMLEFT = 7;
4454      WMSZ_BOTTOMRIGHT = 8;
4455      WMSZ_LEFT = 1;
4456      WMSZ_RIGHT = 2;
4457      WMSZ_TOP = 3;
4458      WMSZ_TOPLEFT = 4;
4459      WMSZ_TOPRIGHT = 5;
4460   { WM_MOUSEACTIVATE message  }
4461      MA_ACTIVATE = 1;
4462      MA_ACTIVATEANDEAT = 2;
4463      MA_NOACTIVATE = 3;
4464      MA_NOACTIVATEANDEAT = 4;
4465   { WM_SIZE message  }
4466      SIZE_MAXHIDE = 4;
4467      SIZE_MAXIMIZED = 2;
4468      SIZE_MAXSHOW = 3;
4469      SIZE_MINIMIZED = 1;
4470      SIZE_RESTORED = 0;
4471   { WM_NCCALCSIZE message  }
4472      WVR_ALIGNTOP = 16;
4473      WVR_ALIGNLEFT = 32;
4474      WVR_ALIGNBOTTOM = 64;
4475      WVR_ALIGNRIGHT = 128;
4476      WVR_HREDRAW = 256;
4477      WVR_VREDRAW = 512;
4478      WVR_REDRAW = 768;
4479      WVR_VALIDRECTS = 1024;
4480   { WM_NCHITTEST message  }
4481      HTBOTTOM = 15;
4482      HTBOTTOMLEFT = 16;
4483      HTBOTTOMRIGHT = 17;
4484      HTCAPTION = 2;
4485      HTCLIENT = 1;
4486      HTERROR = -(2);
4487      HTGROWBOX = 4;
4488      HTHSCROLL = 6;
4489      HTLEFT = 10;
4490      HTMENU = 5;
4491      HTNOWHERE = 0;
4492      HTREDUCE = 8;
4493      HTRIGHT = 11;
4494      HTSIZE = 4;
4495      HTSYSMENU = 3;
4496      HTTOP = 12;
4497      HTTOPLEFT = 13;
4498      HTTOPRIGHT = 14;
4499      HTTRANSPARENT = -(1);
4500      HTVSCROLL = 7;
4501      HTZOOM = 9;
4502   { Mouse messages  }
4503      MK_CONTROL = 8;
4504      MK_LBUTTON = 1;
4505      MK_MBUTTON = 16;
4506      MK_RBUTTON = 2;
4507      MK_SHIFT = 4;
4508   { WNDCLASS structure  }
4509      CS_BYTEALIGNCLIENT = 4096;
4510      CS_BYTEALIGNWINDOW = 8192;
4511      CS_CLASSDC = 64;
4512      CS_DBLCLKS = 8;
4513      CS_GLOBALCLASS = 16384;
4514      CS_HREDRAW = 2;
4515      CS_KEYCVTWINDOW = 4;
4516      CS_NOCLOSE = 512;
4517      CS_NOKEYCVT = 256;
4518      CS_OWNDC = 32;
4519      CS_PARENTDC = 128;
4520      CS_SAVEBITS = 2048;
4521      CS_VREDRAW = 1;
4522      DLGWINDOWEXTRA = 30;
4523   { ACCEL structure  }
4524      FALT = 16;
4525      FCONTROL = 8;
4526      FNOINVERT = 2;
4527      FSHIFT = 4;
4528      FVIRTKEY = 1;
4529   { MENUITEMINFO structure  }
4530      MIIM_CHECKMARKS = 8;
4531      MIIM_DATA = 32;
4532      MIIM_ID = 2;
4533      MIIM_STATE = 1;
4534      MIIM_SUBMENU = 4;
4535      MIIM_TYPE = 16;
4536      MFT_BITMAP = $4;
4537      MFT_MENUBARBREAK = $20;
4538      MFT_MENUBREAK = $40;
4539      MFT_OWNERDRAW = $100;
4540      MFT_RADIOCHECK = $200;
4541      MFT_RIGHTJUSTIFY = $4000;
4542      MFT_SEPARATOR = $800;
4543      MFT_STRING = 0;
4544      MFS_CHECKED = $8;
4545      MFS_DEFAULT = $1000;
4546      MFS_DISABLED = $3;
4547      MFS_ENABLED = 0;
4548      MFS_GRAYED = $3;
4549      MFS_HILITE = $80;
4550      MFS_UNCHECKED = 0;
4551      MFS_UNHILITE = 0;
4552   { SERIALKEYS structure  }
4553      SERKF_AVAILABLE = 2;
4554      SERKF_INDICATOR = 4;
4555      SERKF_SERIALKEYSON = 1;
4556   { FILTERKEYS structure  }
4557      FKF_AVAILABLE = 2;
4558      FKF_CLICKON = 64;
4559      FKF_FILTERKEYSON = 1;
4560      FKF_HOTKEYACTIVE = 4;
4561      FKF_HOTKEYSOUND = 16;
4562      FKF_CONFIRMHOTKEY = 8;
4563      FKF_INDICATOR = 32;
4564   { HELPINFO structure  }
4565      HELPINFO_MENUITEM = 2;
4566      HELPINFO_WINDOW = 1;
4567   { WM_PRINT message  }
4568      PRF_CHECKVISIBLE = $1;
4569      PRF_CHILDREN = $10;
4570      PRF_CLIENT = $4;
4571      PRF_ERASEBKGND = $8;
4572      PRF_NONCLIENT = $2;
4573      PRF_OWNED = $20;
4574   { MapWindowPoints  }
4575     { was #define dname def_expr }
4576     function HWND_DESKTOP : HWND;
4577
4578   { WM_SYSCOMMAND message  }
4579
4580   const
4581      SC_CLOSE = 61536;
4582      SC_CONTEXTHELP = 61824;
4583      SC_DEFAULT = 61792;
4584      SC_HOTKEY = 61776;
4585      SC_HSCROLL = 61568;
4586      SC_KEYMENU = 61696;
4587      SC_MAXIMIZE = 61488;
4588      SC_ZOOM = 61488;
4589      SC_MINIMIZE = 61472;
4590      SC_ICON = 61472;
4591      SC_MONITORPOWER = 61808;
4592      SC_MOUSEMENU = 61584;
4593      SC_MOVE = 61456;
4594      SC_NEXTWINDOW = 61504;
4595      SC_PREVWINDOW = 61520;
4596      SC_RESTORE = 61728;
4597      SC_SCREENSAVE = 61760;
4598      SC_SIZE = 61440;
4599      SC_TASKLIST = 61744;
4600      SC_VSCROLL = 61552;
4601   { DM_GETDEFID message  }
4602      DC_HASDEFID = 21323;
4603   { WM_GETDLGCODE message  }
4604      DLGC_BUTTON = 8192;
4605      DLGC_DEFPUSHBUTTON = 16;
4606      DLGC_HASSETSEL = 8;
4607      DLGC_RADIOBUTTON = 64;
4608      DLGC_STATIC = 256;
4609      DLGC_UNDEFPUSHBUTTON = 32;
4610      DLGC_WANTALLKEYS = 4;
4611      DLGC_WANTARROWS = 1;
4612      DLGC_WANTCHARS = 128;
4613      DLGC_WANTMESSAGE = 4;
4614      DLGC_WANTTAB = 2;
4615   { EM_SETMARGINS message  }
4616      EC_LEFTMARGIN = 1;
4617      EC_RIGHTMARGIN = 2;
4618      EC_USEFONTINFO = 65535;
4619   { LB_SETCOUNT message  }
4620      LB_ERR = -(1);
4621      LB_ERRSPACE = -(2);
4622      LB_OKAY = 0;
4623   { CB_DIR message  }
4624      CB_ERR = -(1);
4625      CB_ERRSPACE = -(2);
4626   { WM_IME_CONTROL message  }
4627      IMC_GETCANDIDATEPOS = 7;
4628      IMC_GETCOMPOSITIONFONT = 9;
4629      IMC_GETCOMPOSITIONWINDOW = 11;
4630      IMC_GETSTATUSWINDOWPOS = 15;
4631      IMC_CLOSESTATUSWINDOW = 33;
4632      IMC_OPENSTATUSWINDOW = 34;
4633      IMC_SETCANDIDATEPOS = 8;
4634      IMC_SETCOMPOSITIONFONT = 10;
4635      IMC_SETCOMPOSITIONWINDOW = 12;
4636      IMC_SETSTATUSWINDOWPOS = 16;
4637   { WM_IME_CONTROL message  }
4638      IMN_CHANGECANDIDATE = 3;
4639      IMN_CLOSECANDIDATE = 4;
4640      IMN_CLOSESTATUSWINDOW = 1;
4641      IMN_GUIDELINE = 13;
4642      IMN_OPENCANDIDATE = 5;
4643      IMN_OPENSTATUSWINDOW = 2;
4644      IMN_SETCANDIDATEPOS = 9;
4645      IMN_SETCOMPOSITIONFONT = 10;
4646      IMN_SETCOMPOSITIONWINDOW = 11;
4647      IMN_SETCONVERSIONMODE = 6;
4648      IMN_SETOPENSTATUS = 8;
4649      IMN_SETSENTENCEMODE = 7;
4650      IMN_SETSTATUSWINDOWPOS = 12;
4651      IMN_PRIVATE = 14;
4652   { STICKYKEYS structure  }
4653      SKF_AUDIBLEFEEDBACK = 64;
4654      SKF_AVAILABLE = 2;
4655      SKF_CONFIRMHOTKEY = 8;
4656      SKF_HOTKEYACTIVE = 4;
4657      SKF_HOTKEYSOUND = 16;
4658      SKF_INDICATOR = 32;
4659      SKF_STICKYKEYSON = 1;
4660      SKF_TRISTATE = 128;
4661      SKF_TWOKEYSOFF = 256;
4662   { MOUSEKEYS structure  }
4663      MKF_AVAILABLE = 2;
4664      MKF_CONFIRMHOTKEY = 8;
4665      MKF_HOTKEYACTIVE = 4;
4666      MKF_HOTKEYSOUND = 16;
4667      MKF_INDICATOR = 32;
4668      MKF_MOUSEKEYSON = 1;
4669      MKF_MODIFIERS = 64;
4670      MKF_REPLACENUMBERS = 128;
4671   { SOUNDSENTRY structure  }
4672      SSF_AVAILABLE = 2;
4673      SSF_SOUNDSENTRYON = 1;
4674      SSTF_BORDER = 2;
4675      SSTF_CHARS = 1;
4676      SSTF_DISPLAY = 3;
4677      SSTF_NONE = 0;
4678      SSGF_DISPLAY = 3;
4679      SSGF_NONE = 0;
4680      SSWF_CUSTOM = 4;
4681      SSWF_DISPLAY = 3;
4682      SSWF_NONE = 0;
4683      SSWF_TITLE = 1;
4684      SSWF_WINDOW = 2;
4685   { ACCESSTIMEOUT structure  }
4686      ATF_ONOFFFEEDBACK = 2;
4687      ATF_TIMEOUTON = 1;
4688   { HIGHCONTRAST structure  }
4689      HCF_AVAILABLE = 2;
4690      HCF_CONFIRMHOTKEY = 8;
4691      HCF_HIGHCONTRASTON = 1;
4692      HCF_HOTKEYACTIVE = 4;
4693      HCF_HOTKEYAVAILABLE = 64;
4694      HCF_HOTKEYSOUND = 16;
4695      HCF_INDICATOR = 32;
4696   { TOGGLEKEYS structure  }
4697      TKF_AVAILABLE = 2;
4698      TKF_CONFIRMHOTKEY = 8;
4699      TKF_HOTKEYACTIVE = 4;
4700      TKF_HOTKEYSOUND = 16;
4701      TKF_TOGGLEKEYSON = 1;
4702   { Installable Policy  }
4703      PP_DISPLAYERRORS = 1;
4704   { SERVICE_INFO structure  }
4705      RESOURCEDISPLAYTYPE_DOMAIN = 1;
4706      RESOURCEDISPLAYTYPE_FILE = 4;
4707      RESOURCEDISPLAYTYPE_GENERIC = 0;
4708      RESOURCEDISPLAYTYPE_GROUP = 5;
4709      RESOURCEDISPLAYTYPE_SERVER = 2;
4710      RESOURCEDISPLAYTYPE_SHARE = 3;
4711   { KEY_EVENT_RECORD structure  }
4712      CAPSLOCK_ON = 128;
4713      ENHANCED_KEY = 256;
4714      LEFT_ALT_PRESSED = 2;
4715      LEFT_CTRL_PRESSED = 8;
4716      NUMLOCK_ON = 32;
4717      RIGHT_ALT_PRESSED = 1;
4718      RIGHT_CTRL_PRESSED = 4;
4719      SCROLLLOCK_ON = 64;
4720      SHIFT_PRESSED = 16;
4721   { MOUSE_EVENT_RECORD structure  }
4722      FROM_LEFT_1ST_BUTTON_PRESSED = 1;
4723      RIGHTMOST_BUTTON_PRESSED = 2;
4724      FROM_LEFT_2ND_BUTTON_PRESSED = 4;
4725      FROM_LEFT_3RD_BUTTON_PRESSED = 8;
4726      FROM_LEFT_4TH_BUTTON_PRESSED = 16;
4727      DOUBLE_CLICK = 2;
4728      MOUSE_MOVED = 1;
4729   { INPUT_RECORD structure  }
4730      KEY_EVENT = 1;
4731      _MOUSE_EVENT = 2; {conflict with function mouse_event}
4732      cMOUSE_EVENT = 2;
4733      WINDOW_BUFFER_SIZE_EVENT = 4;
4734      MENU_EVENT = 8;
4735      FOCUS_EVENT = 16;
4736   { BITMAPINFOHEADER structure  }
4737      BI_RGB = 0;
4738      BI_RLE8 = 1;
4739      BI_RLE4 = 2;
4740      BI_BITFIELDS = 3;
4741   { Extensions to OpenGL  }
4742   { ChoosePixelFormat  }
4743      PFD_DRAW_TO_WINDOW = $4;
4744      PFD_DRAW_TO_BITMAP = $8;
4745      PFD_SUPPORT_GDI = $10;
4746      PFD_SUPPORT_OPENGL = $20;
4747      PFD_DOUBLEBUFFER = $1;
4748      PFD_STEREO = $2;
4749      PFD_DOUBLEBUFFER_DONTCARE = $40000000;
4750      PFD_STEREO_DONTCARE = $80000000;
4751      PFD_TYPE_RGBA = 0;
4752      PFD_TYPE_COLORINDEX = 1;
4753      PFD_MAIN_PLANE = 0;
4754      PFD_OVERLAY_PLANE = 1;
4755      PFD_UNDERLAY_PLANE = -(1);
4756   { wglUseFontOutlines  }
4757      WGL_FONT_LINES = 0;
4758      WGL_FONT_POLYGONS = 1;
4759   { LAYERPLANEDESCRIPTOR structure  }
4760   { PIXELFORMATDESCRIPTOR structure  }
4761      PFD_GENERIC_FORMAT = $40;
4762      PFD_NEED_PALETTE = $80;
4763      PFD_NEED_SYSTEM_PALETTE = $100;
4764      PFD_SWAP_COPY = $400;
4765      PFD_SWAP_EXCHANGE = $200;
4766   { TEXTMETRIC structure  }
4767      TMPF_FIXED_PITCH = $1;
4768      TMPF_VECTOR = $2;
4769      TMPF_TRUETYPE = $4;
4770      TMPF_DEVICE = $8;
4771   { --------------------- old stuff, need to organize! ---------------  }
4772   { BEGINNING of windowsx.h stuff from old headers:  }
4773   {  Not convertable by H2PAS
4774   #define __CRACK_VOID_F(fn,args) (void)(fn args)
4775   #define __CRACK_BOOL_F(fn,args) (BOOL)(fn args)
4776   #define __CRACK_HMENU_F(fn,args) (HMENU)(fn args)
4777   #define __CRACK_HWND_F(fn,args) (HWND)(fn args)
4778   #define __CRACK_LONG_F(fn, args) (LRESULT)(fn args)
4779   #define __CRACK_ZERO_F(fn, args)  (fn args,0)
4780    }
4781   { was #define dname(params) def_expr }
4782   function GetFirstChild(h:HWND):HWND;
4783
4784   { was #define dname(params) def_expr }
4785   function GetNextSibling(h:HWND):HWND;
4786
4787   { was #define dname(params) def_expr }
4788   function GetWindowID(h:HWND):longint;
4789
4790   { was #define dname(params) def_expr }
4791   function SubclassWindow(h:HWND; p:LONG):LONG;
4792
4793   { was #define dname(params) def_expr }
4794   { argument types are unknown }
4795   { return type might be wrong }
4796   function GET_WM_COMMAND_CMD(w,l : longint) : longint;
4797     { return type might be wrong }
4798
4799   { was #define dname(params) def_expr }
4800   { argument types are unknown }
4801   { return type might be wrong }
4802   function GET_WM_COMMAND_ID(w,l : longint) : longint;
4803     { return type might be wrong }
4804
4805   { was #define dname(params) def_expr }
4806   { argument types are unknown }
4807   function GET_WM_CTLCOLOR_HDC(w,l,msg : longint) : HDC;
4808
4809   { was #define dname(params) def_expr }
4810   { argument types are unknown }
4811   function GET_WM_CTLCOLOR_HWND(w,l,msg : longint) : HWND;
4812
4813   { was #define dname(params) def_expr }
4814   { argument types are unknown }
4815   { return type might be wrong }
4816   function GET_WM_HSCROLL_CODE(w,l : longint) : longint;
4817     { return type might be wrong }
4818
4819   { was #define dname(params) def_expr }
4820   { argument types are unknown }
4821   function GET_WM_HSCROLL_HWND(w,l : longint) : HWND;
4822
4823   { was #define dname(params) def_expr }
4824   { argument types are unknown }
4825   { return type might be wrong }
4826   function GET_WM_HSCROLL_POS(w,l : longint) : longint;
4827     { return type might be wrong }
4828
4829   { was #define dname(params) def_expr }
4830   { argument types are unknown }
4831   { return type might be wrong }
4832   function GET_WM_MDIACTIVATE_FACTIVATE(h,a,b : longint) : longint;
4833     { return type might be wrong }
4834
4835   { was #define dname(params) def_expr }
4836   { argument types are unknown }
4837   function GET_WM_MDIACTIVATE_HWNDACTIVATE(a,b : longint) : HWND;
4838
4839   { was #define dname(params) def_expr }
4840   { argument types are unknown }
4841   function GET_WM_MDIACTIVATE_HWNDDEACT(a,b : longint) : HWND;
4842
4843   { was #define dname(params) def_expr }
4844   { argument types are unknown }
4845   { return type might be wrong }
4846   function GET_WM_VSCROLL_CODE(w,l : longint) : longint;
4847     { return type might be wrong }
4848
4849   { was #define dname(params) def_expr }
4850   { argument types are unknown }
4851   function GET_WM_VSCROLL_HWND(w,l : longint) : HWND;
4852
4853   { was #define dname(params) def_expr }
4854   { argument types are unknown }
4855   { return type might be wrong }
4856   function GET_WM_VSCROLL_POS(w,l : longint) : longint;
4857     { return type might be wrong }
4858
4859   {  Not convertable by H2PAS
4860   #define FORWARD_WM_CLOSE(h, fn)                 __CRACK_VOID_F(fn,(h, WM_CLOSE, 0, 0))
4861   #define FORWARD_WM_COMMAND(h, id, c, n, fn)     __CRACK_VOID_F(fn,(h, WM_COMMAND, MAKEWPARAM(id,n), (LPARAM)c))
4862   #define FORWARD_WM_CREATE(h, p, fn)             __CRACK_BOOL_F(fn,(h, WM_CREATE, 0, (LPARAM)p))
4863   #define FORWARD_WM_DESTROY(h, fn)               __CRACK_VOID_F(fn,(h, WM_DESTROY, 0, 0))
4864   #define FORWARD_WM_ENABLE(h, e, fn)             __CRACK_VOID_F(fn,(h, WM_ENABLE, (WPARAM)e, 0))
4865   #define FORWARD_WM_INITDIALOG(h, c, l, fn)      __CRACK_BOOL_F(fn,(h, WM_INITDIALOG, (WPARAM)c, l))
4866   #define FORWARD_WM_MDICASCADE(h, c, fn)         __CRACK_BOOL_F(fn,(h, WM_MDICASCADE, (WPARAM)c, 0))
4867   #define FORWARD_WM_MDIDESTROY(h, d, fn)         __CRACK_VOID_F(fn,(h, WM_MDIDESTROY, (WPARAM)d, 0))
4868   #define FORWARD_WM_MDIGETACTIVE(h, fn)          __CRACK_HWND_F(fn,(h, WM_MDIGETACTIVE, 0, 0))
4869   #define FORWARD_WM_MDIICONARRANGE(h, fn)        __CRACK_VOID_F(fn,(h, WM_MDIICONARRANGE, 0, 0))
4870   #define FORWARD_WM_MDISETMENU(h, fr, hf, hw, fn) __CRACK_HMENU_F(fn,(h, WM_MDISETMENU, (WPARAM)((fr) ? (hf) : 0), (LPARAM)(hw)))
4871   #define FORWARD_WM_MDITILE(h, c, fn)            __CRACK_BOOL_F(fn,(h, WM_MDITILE, (WPARAM)(c), 0))
4872   #define FORWARD_WM_PAINT(h, fn)                 __CRACK_VOID_F(fn,(h, WM_PAINT, 0, 0))
4873   #define FORWARD_WM_QUERYENDSESSION(h, fn)       __CRACK_BOOL_F(fn,(h, WM_QUERYENDSESSION, 0, 0))
4874   #define FORWARD_WM_SIZE(h, state, cx, cy, fn)   __CRACK_VOID_F(fn,(h, WM_SIZE, (WPARAM)state, MAKELPARAM(cx, cy)))
4875   #define FORWARD_WM_SYSCOMMAND(h, c, x, y, fn)   __CRACK_VOID_F(fn,(h, WM_SYSCOMMAND, (WPARAM)c, MAKELPARAM(x, y)))
4876
4877   #define HANDLE_WM_CLOSE(h, w, l, fn)            __CRACK_ZERO_F(fn,(h));
4878   #define HANDLE_WM_COMMAND(h, w, l, fn)          __CRACK_ZERO_F(fn,(h, SEXT_LOWORD(w), (HWND)l, HIWORD(w)))
4879   #define HANDLE_WM_CREATE(h, w, l, fn)           (LRESULT)((fn(h, (CREATESTRUCT  )l)) ? 0 : -1)
4880   #define HANDLE_WM_DESTROY(h, w, l, fn)          __CRACK_ZERO_F(fn,(h))
4881   #define HANDLE_WM_ENABLE(h, w, l, fn)           __CRACK_ZERO_F(fn,(h, (BOOL)w))
4882   #define HANDLE_WM_INITDIALOG(h, w, l, fn)       __CRACK_LONG_F(fn,(h, (HWND)w, l))
4883   #define HANDLE_WM_MDICASCADE(h, w, l, fn)       __CRACK_LONG_F(fn, (h, (UINT)w)
4884   #define HANDLE_WM_MDIDESTROY(h, w, l, fn)       __CRACK_ZERO_F(fn,(h, (HWND)w))
4885   #define HANDLE_WM_MDIGETACTIVE(h, w, l, fn)     __CRACK_LONG_F(fn,(h))
4886   #define HANDLE_WM_MDIICONARRANGE(h, w, l, fn)   __CRACK_ZERO_F(fn,(h))
4887   #define HANDLE_WM_MDISETMENU(h, w, l, fn)       __CRACK_LONG_F(fn,(h, (BOOL)w, (HMENU)w, (HMENU)l)
4888   #define HANDLE_WM_MDITILE(h, w, l, fn)          __CRACK_LONG_F(fn,(h, (UINT)w))
4889   #define HANDLE_WM_PAINT(h, w, l, fn)            __CRACK_ZERO_F(fn,(h))
4890   #define HANDLE_WM_QUERYENDSESSION(h, w, l, fn)  MAKELRESULT(fn(h), 0)
4891   #define HANDLE_WM_SIZE(h, w, l, fn)             __CRACK_ZERO_F(fn,(h, (UINT)w, SEXT_LOWORD(l), SEXT_HIWORD(l)))
4892   #define HANDLE_WM_SYSCOMMAND(h, w, l, fn)       __CRACK_ZERO_F(fn,(h, (UINT)w, SEXT_LOWORD(l), SEXT_HIWORD(l)))
4893    }
4894   { Totally disgusting! get wParam and lParam from the environment !  }
4895   {  Not convertable by H2PAS
4896   #define HANDLE_MSG(h, message, fn) case message: return HANDLE_##message(h, wParam, lParam, fn)
4897    }
4898   { END OF windowsx.h stuff from old headers  }
4899   { ------------------------------------------------------------------  }
4900   { BEGINNING of shellapi.h stuff from old headers  }
4901
4902   const
4903      SE_ERR_SHARE = 26;
4904      SE_ERR_ASSOCINCOMPLETE = 27;
4905      SE_ERR_DDETIMEOUT = 28;
4906      SE_ERR_DDEFAIL = 29;
4907      SE_ERR_DDEBUSY = 30;
4908      SE_ERR_NOASSOC = 31;
4909   { END OF shellapi.h stuff from old headers  }
4910   { ------------------------------------------------------------------  }
4911   { From ddeml.h in old Cygnus headers  }
4912      XCLASS_BOOL = $1000;
4913      XCLASS_DATA = $2000;
4914      XCLASS_FLAGS = $4000;
4915      XCLASS_MASK = $fc00;
4916      XCLASS_NOTIFICATION = $8000;
4917      XTYPF_NOBLOCK = $0002;
4918      XTYP_ADVDATA = $4010;
4919      XTYP_ADVREQ = $2022;
4920      XTYP_ADVSTART = $1030;
4921      XTYP_ADVSTOP = $8040;
4922      XTYP_CONNECT = $1062;
4923      XTYP_CONNECT_CONFIRM = $8072;
4924      XTYP_DISCONNECT = $80c2;
4925      XTYP_EXECUTE = $4050;
4926      XTYP_POKE = $4090;
4927      XTYP_REQUEST = $20b0;
4928      XTYP_WILDCONNECT = $20E2;
4929      XTYP_REGISTER = $80A2;
4930      XTYP_ERROR = $8002;
4931      XTYP_XACT_COMPLETE = $8080;
4932      XTYP_UNREGISTER = $80D2;
4933      DMLERR_DLL_USAGE = $4004;
4934      DMLERR_INVALIDPARAMETER = $4006;
4935      DMLERR_NOTPROCESSED = $4009;
4936      DMLERR_POSTMSG_FAILED = $400c;
4937      DMLERR_SERVER_DIED = $400e;
4938      DMLERR_SYS_ERROR = $400f;
4939      DMLERR_BUSY = $4001;
4940      DMLERR_DATAACKTIMEOUT = $4002;
4941      DMLERR_ADVACKTIMEOUT = $4000;
4942      DMLERR_DLL_NOT_INITIALIZED = $4003;
4943      DMLERR_LOW_MEMORY = $4007;
4944      DMLERR_MEMORY_ERROR = $4008;
4945      DMLERR_POKEACKTIMEOUT = $400b;
4946      DMLERR_NO_CONV_ESTABLISHED = $400a;
4947      DMLERR_REENTRANCY = $400d;
4948      DMLERR_UNFOUND_QUEUE_ID = $4011;
4949      DMLERR_UNADVACKTIMEOUT = $4010;
4950      DMLERR_EXECACKTIMEOUT = $4005;
4951      DDE_FACK = $8000;
4952      DDE_FNOTPROCESSED = $0000;
4953      DNS_REGISTER = $0001;
4954      DNS_UNREGISTER = $0002;
4955      CP_WINANSI = 1004;
4956      CP_WINUNICODE = 1200;
4957   {  Not convertable by H2PAS
4958   #define EXPENTRY CALLBACK
4959    }
4960      APPCLASS_STANDARD = $00000000;
4961   { End of stuff from ddeml.h in old Cygnus headers  }
4962   { -----------------------------------------------  }
4963      BKMODE_LAST = 2;
4964      CTLCOLOR_MSGBOX = 0;
4965      CTLCOLOR_EDIT = 1;
4966      CTLCOLOR_LISTBOX = 2;
4967      CTLCOLOR_BTN = 3;
4968      CTLCOLOR_DLG = 4;
4969      CTLCOLOR_SCROLLBAR = 5;
4970      CTLCOLOR_STATIC = 6;
4971      CTLCOLOR_MAX = 7;
4972      META_SETMAPMODE = $0103;
4973      META_SETWINDOWORG = $020B;
4974      META_SETWINDOWEXT = $020C;
4975      POLYFILL_LAST = 2;
4976      STATUS_WAIT_0 = $00000000;
4977      STATUS_ABANDONED_WAIT_0 = $00000080;
4978      STATUS_USER_APC = $000000C0;
4979      STATUS_TIMEOUT = $00000102;
4980      STATUS_PENDING = $00000103;
4981      STATUS_GUARD_PAGE_VIOLATION = $80000001;
4982      STATUS_DATATYPE_MISALIGNMENT = $80000002;
4983      STATUS_BREAKPOINT = $80000003;
4984      STATUS_SINGLE_STEP = $80000004;
4985      STATUS_IN_PAGE_ERROR = $C0000006;
4986      STATUS_INVALID_HANDLE = $C0000008;
4987      STATUS_ILLEGAL_INSTRUCTION = $C000001D;
4988      STATUS_NONCONTINUABLE_EXCEPTION = $C0000025;
4989      STATUS_INVALID_DISPOSITION = $C0000026;
4990      STATUS_ARRAY_BOUNDS_EXCEEDED = $C000008C;
4991      STATUS_FLOAT_DENORMAL_OPERAND = $C000008D;
4992      STATUS_FLOAT_DIVIDE_BY_ZERO = $C000008E;
4993      STATUS_FLOAT_INEXACT_RESULT = $C000008F;
4994      STATUS_FLOAT_INVALID_OPERATION = $C0000090;
4995      STATUS_FLOAT_OVERFLOW = $C0000091;
4996      STATUS_FLOAT_STACK_CHECK = $C0000092;
4997      STATUS_FLOAT_UNDERFLOW = $C0000093;
4998      STATUS_INTEGER_DIVIDE_BY_ZERO = $C0000094;
4999      STATUS_INTEGER_OVERFLOW = $C0000095;
5000      STATUS_PRIVILEGED_INSTRUCTION = $C0000096;
5001      STATUS_STACK_OVERFLOW = $C00000FD;
5002      STATUS_CONTROL_C_EXIT = $C000013A;
5003 {$define EXCEPTION_CTRL_C}
5004      PROCESSOR_ARCHITECTURE_INTEL = 0;
5005      PROCESSOR_ARCHITECTURE_MIPS = 1;
5006      PROCESSOR_ARCHITECTURE_ALPHA = 2;
5007      PROCESSOR_ARCHITECTURE_PPC = 3;
5008   { was #define dname(params) def_expr }
5009   function FreeModule(h:HINST):WINBOOL;
5010
5011   { was #define dname(params) def_expr }
5012   { argument types are unknown }
5013   { return type might be wrong }
5014   function MakeProcInstance(p,i : longint) : longint;
5015     { return type might be wrong }
5016
5017   { was #define dname(params) def_expr }
5018   { argument types are unknown }
5019   { return type might be wrong }
5020   function FreeProcInstance(p : longint) : longint;
5021     { return type might be wrong }
5022
5023
5024   const
5025     { _fmemcpy = memcpy; these are functions }
5026   { Used by wxwindows.  }
5027      SIZEFULLSCREEN = SIZE_MAXIMIZED;
5028      SIZENORMAL = SIZE_RESTORED;
5029      SIZEICONIC = SIZE_MINIMIZED;
5030      { NPLOGPALETTE = PLOGPALETTE; probably a type }
5031   { In the old winnt.h  }
5032   (*  Not convertable by H2PAS anyhow with if 0
5033   #if 0
5034   #ifdef __ANAL__
5035   #define DECLARE_HANDLE(h) struct h##__ { int dummy; }; typedef struct h##__  h
5036   #else
5037   #define DECLARE_HANDLE(h)  typedef void  h
5038   #endif
5039   DECLARE_HANDLE(HANDLE);
5040   #endif
5041    *)
5042 {$ifdef __PPC__}
5043
5044   const
5045      CONTEXT_CONTROL = 1;
5046      CONTEXT_FLOATING_POINT = 2;
5047      CONTEXT_INTEGER = 4;
5048      CONTEXT_DEBUG_REGISTERS = 8;
5049      CONTEXT_FULL = (CONTEXT_CONTROL or CONTEXT_FLOATING_POINT) or CONTEXT_INTEGER;
5050      CONTEXT_DEBUGGER = CONTEXT_FULL;
5051 {$else}
5052   { x86  }
5053   { The doc refered me to winnt.h, so I had to look...  }
5054
5055   const
5056      SIZE_OF_80387_REGISTERS = 80;
5057   { Values for contextflags  }
5058      CONTEXT_i386 = $10000;
5059      CONTEXT_CONTROL = CONTEXT_i386 or 1;
5060      CONTEXT_INTEGER = CONTEXT_i386 or 2;
5061      CONTEXT_SEGMENTS = CONTEXT_i386 or 4;
5062      CONTEXT_FLOATING_POINT = CONTEXT_i386 or 8;
5063      CONTEXT_DEBUG_REGISTERS = CONTEXT_i386 or $10;
5064      CONTEXT_FULL = (CONTEXT_CONTROL or CONTEXT_INTEGER) or CONTEXT_SEGMENTS;
5065   { our own invention  }
5066      FLAG_TRACE_BIT = $100;
5067      CONTEXT_DEBUGGER = CONTEXT_FULL or CONTEXT_FLOATING_POINT;
5068 {$endif}
5069
5070   const
5071      { ASCIICHAR = AsciiChar; this is the kind of thing that can
5072      make problems for FPC !! }
5073   {  ignored in H2PAS
5074   #define FAR
5075      handled in H2PAS
5076   #define PACKED __attribute__((packed))
5077    }
5078      FILTER_TEMP_DUPLICATE_ACCOUNT = $0001;
5079      FILTER_NORMAL_ACCOUNT = $0002;
5080      FILTER_INTERDOMAIN_TRUST_ACCOUNT = $0008;
5081      FILTER_WORKSTATION_TRUST_ACCOUNT = $0010;
5082      FILTER_SERVER_TRUST_ACCOUNT = $0020;
5083      LOGON32_LOGON_INTERACTIVE = $02;
5084      LOGON32_LOGON_BATCH = $04;
5085      LOGON32_LOGON_SERVICE = $05;
5086      LOGON32_PROVIDER_DEFAULT = $00;
5087      LOGON32_PROVIDER_WINNT35 = $01;
5088      QID_SYNC = $FFFFFFFF;
5089   { Magic numbers in PE executable header.   }
5090   { e_magic field  }
5091      IMAGE_DOS_SIGNATURE = $5a4d;
5092   { nt_signature field  }
5093      IMAGE_NT_SIGNATURE = $4550;
5094
5095
5096   { Severity values }
5097     SEVERITY_SUCCESS = 0;
5098     SEVERITY_ERROR = 1;
5099
5100  { Variant type codes (wtypes.h).
5101     Some, not all though }
5102     VT_EMPTY           = 0;
5103     VT_NULL            = 1;
5104     VT_I2              = 2;
5105     VT_I4              = 3;
5106     VT_R4              = 4;
5107     VT_R8              = 5;
5108     VT_BSTR            = 8;
5109     VT_ERROR           = 10;
5110     VT_BOOL            = 11;
5111     VT_UI1             = 17;
5112     VT_BYREF        = $4000;
5113     VT_RESERVED     = $8000;
5114
5115 { Define the facility codes }
5116
5117 const
5118   FACILITY_WINDOWS                     = 8;
5119   FACILITY_STORAGE                     = 3;
5120   FACILITY_RPC                         = 1;
5121   FACILITY_SSPI                        = 9;
5122   FACILITY_WIN32                       = 7;
5123   FACILITY_CONTROL                     = 10;
5124   FACILITY_NULL                        = 0;
5125   FACILITY_INTERNET                    = 12;
5126   FACILITY_ITF                         = 4;
5127   FACILITY_DISPATCH                    = 2;
5128   FACILITY_CERT                        = 11;
5129
5130
5131 {$endif read_interface}
5132
5133
5134 {$ifdef read_implementation}
5135     { was #define dname def_expr }
5136     function UNICODE_NULL : WCHAR;
5137       begin
5138          UNICODE_NULL:=WCHAR(0);
5139       end;
5140
5141     { was #define dname def_expr }
5142     function RT_ACCELERATOR : LPTSTR;
5143       { return type might be wrong }
5144       begin
5145          RT_ACCELERATOR:=MAKEINTRESOURCE(9);
5146       end;
5147
5148     { was #define dname def_expr }
5149     function RT_BITMAP : LPTSTR;
5150       { return type might be wrong }
5151       begin
5152          RT_BITMAP:=MAKEINTRESOURCE(2);
5153       end;
5154
5155     { was #define dname def_expr }
5156     function RT_DIALOG : LPTSTR;
5157       { return type might be wrong }
5158       begin
5159          RT_DIALOG:=MAKEINTRESOURCE(5);
5160       end;
5161
5162     { was #define dname def_expr }
5163     function RT_FONT : LPTSTR;
5164       { return type might be wrong }
5165       begin
5166          RT_FONT:=MAKEINTRESOURCE(8);
5167       end;
5168
5169     { was #define dname def_expr }
5170     function RT_FONTDIR : LPTSTR;
5171       { return type might be wrong }
5172       begin
5173          RT_FONTDIR:=MAKEINTRESOURCE(7);
5174       end;
5175
5176     { was #define dname def_expr }
5177     function RT_MENU : LPTSTR;
5178       { return type might be wrong }
5179       begin
5180          RT_MENU:=MAKEINTRESOURCE(4);
5181       end;
5182
5183     { was #define dname def_expr }
5184     function RT_RCDATA : LPTSTR;
5185       { return type might be wrong }
5186       begin
5187          RT_RCDATA:=MAKEINTRESOURCE(10);
5188       end;
5189
5190     { was #define dname def_expr }
5191     function RT_STRING : LPTSTR;
5192       { return type might be wrong }
5193       begin
5194          RT_STRING:=MAKEINTRESOURCE(6);
5195       end;
5196
5197     { was #define dname def_expr }
5198     function RT_MESSAGETABLE : LPTSTR;
5199       { return type might be wrong }
5200       begin
5201          RT_MESSAGETABLE:=MAKEINTRESOURCE(11);
5202       end;
5203
5204     { was #define dname def_expr }
5205     function RT_CURSOR : LPTSTR;
5206       { return type might be wrong }
5207       begin
5208          RT_CURSOR:=MAKEINTRESOURCE(1);
5209       end;
5210
5211     { was #define dname def_expr }
5212     function RT_GROUP_CURSOR : LPTSTR;
5213       { return type might be wrong }
5214       begin
5215          RT_GROUP_CURSOR:=MAKEINTRESOURCE(12);
5216       end;
5217
5218     { was #define dname def_expr }
5219     function RT_ICON : LPTSTR;
5220       { return type might be wrong }
5221       begin
5222          RT_ICON:=MAKEINTRESOURCE(3);
5223       end;
5224
5225     { was #define dname def_expr }
5226     function RT_GROUP_ICON : LPTSTR;
5227       { return type might be wrong }
5228       begin
5229          RT_GROUP_ICON:=MAKEINTRESOURCE(13);
5230       end;
5231
5232     { was #define dname def_expr }
5233     function RT_VERSION : LPTSTR;
5234       { return type might be wrong }
5235       begin
5236          RT_VERSION:=MAKEINTRESOURCE(16);
5237       end;
5238
5239     { was #define dname def_expr }
5240     function IDC_ARROW : LPTSTR;
5241       { return type might be wrong }
5242       begin
5243          IDC_ARROW:=MAKEINTRESOURCE(32512);
5244       end;
5245
5246     { was #define dname def_expr }
5247     function IDC_IBEAM : LPTSTR;
5248       { return type might be wrong }
5249       begin
5250          IDC_IBEAM:=MAKEINTRESOURCE(32513);
5251       end;
5252
5253     { was #define dname def_expr }
5254     function IDC_WAIT : LPTSTR;
5255       { return type might be wrong }
5256       begin
5257          IDC_WAIT:=MAKEINTRESOURCE(32514);
5258       end;
5259
5260     { was #define dname def_expr }
5261     function IDC_CROSS : LPTSTR;
5262       { return type might be wrong }
5263       begin
5264          IDC_CROSS:=MAKEINTRESOURCE(32515);
5265       end;
5266
5267     { was #define dname def_expr }
5268     function IDC_UPARROW : LPTSTR;
5269       { return type might be wrong }
5270       begin
5271          IDC_UPARROW:=MAKEINTRESOURCE(32516);
5272       end;
5273
5274     { was #define dname def_expr }
5275     function IDC_SIZENWSE : LPTSTR;
5276       { return type might be wrong }
5277       begin
5278          IDC_SIZENWSE:=MAKEINTRESOURCE(32642);
5279       end;
5280
5281     { was #define dname def_expr }
5282     function IDC_SIZENESW : LPTSTR;
5283       { return type might be wrong }
5284       begin
5285          IDC_SIZENESW:=MAKEINTRESOURCE(32643);
5286       end;
5287
5288     { was #define dname def_expr }
5289     function IDC_SIZEWE : LPTSTR;
5290       { return type might be wrong }
5291       begin
5292          IDC_SIZEWE:=MAKEINTRESOURCE(32644);
5293       end;
5294
5295     { was #define dname def_expr }
5296     function IDC_SIZENS : LPTSTR;
5297       { return type might be wrong }
5298       begin
5299          IDC_SIZENS:=MAKEINTRESOURCE(32645);
5300       end;
5301
5302     { was #define dname def_expr }
5303     function IDC_SIZEALL : LPTSTR;
5304       { return type might be wrong }
5305       begin
5306          IDC_SIZEALL:=MAKEINTRESOURCE(32646);
5307       end;
5308
5309     { was #define dname def_expr }
5310     function IDC_NO : LPTSTR;
5311       { return type might be wrong }
5312       begin
5313          IDC_NO:=MAKEINTRESOURCE(32648);
5314       end;
5315
5316     { was #define dname def_expr }
5317     function IDC_APPSTARTING : LPTSTR;
5318       { return type might be wrong }
5319       begin
5320          IDC_APPSTARTING:=MAKEINTRESOURCE(32650);
5321       end;
5322
5323     { was #define dname def_expr }
5324     function IDC_HELP : LPTSTR;
5325       { return type might be wrong }
5326       begin
5327          IDC_HELP:=MAKEINTRESOURCE(32651);
5328       end;
5329
5330     { was #define dname def_expr }
5331     function IDI_APPLICATION : LPTSTR;
5332       { return type might be wrong }
5333       begin
5334          IDI_APPLICATION:=MAKEINTRESOURCE(32512);
5335       end;
5336
5337     { was #define dname def_expr }
5338     function IDI_HAND : LPTSTR;
5339       { return type might be wrong }
5340       begin
5341          IDI_HAND:=MAKEINTRESOURCE(32513);
5342       end;
5343
5344     { was #define dname def_expr }
5345     function IDI_QUESTION : LPTSTR;
5346       { return type might be wrong }
5347       begin
5348          IDI_QUESTION:=MAKEINTRESOURCE(32514);
5349       end;
5350
5351     { was #define dname def_expr }
5352     function IDI_EXCLAMATION : LPTSTR;
5353       { return type might be wrong }
5354       begin
5355          IDI_EXCLAMATION:=MAKEINTRESOURCE(32515);
5356       end;
5357
5358     { was #define dname def_expr }
5359     function IDI_ASTERISK : LPTSTR;
5360       { return type might be wrong }
5361       begin
5362          IDI_ASTERISK:=MAKEINTRESOURCE(32516);
5363       end;
5364
5365     { was #define dname def_expr }
5366     function IDI_WINLOGO : LPTSTR;
5367       { return type might be wrong }
5368       begin
5369          IDI_WINLOGO:=MAKEINTRESOURCE(32517);
5370       end;
5371
5372     { was #define dname def_expr }
5373     function IDC_SIZE : LPTSTR;
5374       { return type might be wrong }
5375       begin
5376          IDC_SIZE:=MAKEINTRESOURCE(32640);
5377       end;
5378
5379     { was #define dname def_expr }
5380     function IDC_ICON : LPTSTR;
5381       { return type might be wrong }
5382       begin
5383          IDC_ICON:=MAKEINTRESOURCE(32641);
5384       end;
5385
5386     { was #define dname def_expr }
5387     function STD_INPUT_HANDLE : DWORD;
5388       begin
5389          STD_INPUT_HANDLE:=DWORD(-(10));
5390       end;
5391
5392     { was #define dname def_expr }
5393     function STD_OUTPUT_HANDLE : DWORD;
5394       begin
5395          STD_OUTPUT_HANDLE:=DWORD(-(11));
5396       end;
5397
5398     { was #define dname def_expr }
5399     function STD_ERROR_HANDLE : DWORD;
5400       begin
5401          STD_ERROR_HANDLE:=DWORD(-(12));
5402       end;
5403
5404     { was #define dname def_expr }
5405     function INVALID_HANDLE_VALUE : HANDLE;
5406       begin
5407          INVALID_HANDLE_VALUE:=HANDLE(-(1));
5408       end;
5409
5410     { was #define dname def_expr }
5411     function TIME_ZONE_ID_INVALID : DWORD;
5412       begin
5413          TIME_ZONE_ID_INVALID:=DWORD(-(1));
5414       end;
5415
5416     { was #define dname def_expr }
5417     function HWND_BROADCAST : HWND;
5418       begin
5419          HWND_BROADCAST:=HWND($FFFF);
5420       end;
5421
5422     { was #define dname def_expr }
5423     function HKEY_CLASSES_ROOT : HKEY;
5424       begin
5425          HKEY_CLASSES_ROOT:=HKEY($80000000);
5426       end;
5427
5428     { was #define dname def_expr }
5429     function HKEY_CURRENT_USER : HKEY;
5430       begin
5431          HKEY_CURRENT_USER:=HKEY($80000001);
5432       end;
5433
5434     { was #define dname def_expr }
5435     function HKEY_LOCAL_MACHINE : HKEY;
5436       begin
5437          HKEY_LOCAL_MACHINE:=HKEY($80000002);
5438       end;
5439
5440     { was #define dname def_expr }
5441     function HKEY_USERS : HKEY;
5442       begin
5443          HKEY_USERS:=HKEY($80000003);
5444       end;
5445
5446     { was #define dname def_expr }
5447     function HKEY_PERFORMANCE_DATA : HKEY;
5448       begin
5449          HKEY_PERFORMANCE_DATA:=HKEY($80000004);
5450       end;
5451
5452     { was #define dname def_expr }
5453     function HKEY_CURRENT_CONFIG : HKEY;
5454       begin
5455          HKEY_CURRENT_CONFIG:=HKEY($80000005);
5456       end;
5457
5458     { was #define dname def_expr }
5459     function HKEY_DYN_DATA : HKEY;
5460       begin
5461          HKEY_DYN_DATA:=HKEY($80000006);
5462       end;
5463
5464     { was #define dname def_expr }
5465     function HWND_BOTTOM : HWND;
5466       begin
5467          HWND_BOTTOM:=HWND(1);
5468       end;
5469
5470     { was #define dname def_expr }
5471     function HWND_NOTOPMOST : HWND;
5472       begin
5473          HWND_NOTOPMOST:=HWND(-(2));
5474       end;
5475
5476     { was #define dname def_expr }
5477     function HWND_TOP : HWND;
5478       begin
5479          HWND_TOP:=HWND(0);
5480       end;
5481
5482     { was #define dname def_expr }
5483     function HWND_TOPMOST : HWND;
5484       begin
5485          HWND_TOPMOST:=HWND(-(1));
5486       end;
5487
5488     { was #define dname def_expr }
5489     function VS_FILE_INFO : LPTSTR;
5490       { return type might be wrong }
5491       begin
5492          VS_FILE_INFO:=MAKEINTRESOURCE(16);
5493       end;
5494
5495     { was #define dname def_expr }
5496     function HINST_COMMCTRL : HINST;
5497       begin
5498          HINST_COMMCTRL:=HINST(-(1));
5499       end;
5500
5501     { was #define dname def_expr }
5502     function LPSTR_TEXTCALLBACKW : LPWSTR;
5503       begin
5504          LPSTR_TEXTCALLBACKW:=LPWSTR(-(1));
5505       end;
5506
5507     { was #define dname def_expr }
5508     function LPSTR_TEXTCALLBACKA : LPSTR;
5509       begin
5510          LPSTR_TEXTCALLBACKA:=LPSTR(-(1));
5511       end;
5512 {$ifdef UNICODE}
5513
5514   {const this is a function in fact !!
5515      LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKW;}
5516     function LPSTR_TEXTCALLBACK : LPWSTR;
5517       begin
5518          LPSTR_TEXTCALLBACK:=LPWSTR(-(1));
5519       end;
5520
5521 {$else}
5522
5523   {const
5524      LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKA; }
5525     function LPSTR_TEXTCALLBACK : LPSTR;
5526       begin
5527          LPSTR_TEXTCALLBACK:=LPSTR(-(1));
5528       end;
5529 {$endif}
5530
5531     { was #define dname def_expr }
5532     function TVI_ROOT : HTREEITEM;
5533       begin
5534          TVI_ROOT:=HTREEITEM($FFFF0000);
5535       end;
5536
5537     { was #define dname def_expr }
5538     function TVI_FIRST : HTREEITEM;
5539       begin
5540          TVI_FIRST:=HTREEITEM($FFFF0001);
5541       end;
5542
5543     { was #define dname def_expr }
5544     function TVI_LAST : HTREEITEM;
5545       begin
5546          TVI_LAST:=HTREEITEM($FFFF0002);
5547       end;
5548
5549     { was #define dname def_expr }
5550     function TVI_SORT : HTREEITEM;
5551       begin
5552          TVI_SORT:=HTREEITEM($FFFF0003);
5553       end;
5554
5555     { was #define dname def_expr }
5556     function HWND_DESKTOP : HWND;
5557       begin
5558          HWND_DESKTOP:=HWND(0);
5559       end;
5560
5561   { was #define dname(params) def_expr }
5562   function GetFirstChild(h:HWND):HWND;
5563     begin
5564        GetFirstChild:=GetTopWindow(h);
5565     end;
5566
5567   { was #define dname(params) def_expr }
5568   function GetNextSibling(h:HWND):HWND;
5569     begin
5570        GetNextSibling:=GetWindow(h,GW_HWNDNEXT);
5571     end;
5572
5573   { was #define dname(params) def_expr }
5574   function GetWindowID(h:HWND):longint;
5575     begin
5576        GetWindowID:=GetDlgCtrlID(h);
5577     end;
5578
5579   { was #define dname(params) def_expr }
5580   function SubclassWindow(h:HWND; p:LONG):LONG;
5581     begin
5582        SubclassWindow:=SetWindowLong(h,GWL_WNDPROC,p);
5583     end;
5584
5585   { was #define dname(params) def_expr }
5586   { argument types are unknown }
5587   { return type might be wrong }
5588   function GET_WM_COMMAND_CMD(w,l : longint) : longint;
5589     { return type might be wrong }
5590     begin
5591        GET_WM_COMMAND_CMD:=HIWORD(w);
5592     end;
5593
5594   { was #define dname(params) def_expr }
5595   { argument types are unknown }
5596   { return type might be wrong }
5597   function GET_WM_COMMAND_ID(w,l : longint) : longint;
5598     { return type might be wrong }
5599     begin
5600        GET_WM_COMMAND_ID:=LOWORD(w);
5601     end;
5602
5603   { was #define dname(params) def_expr }
5604   { argument types are unknown }
5605   function GET_WM_CTLCOLOR_HDC(w,l,msg : longint) : HDC;
5606     begin
5607        GET_WM_CTLCOLOR_HDC:=HDC(w);
5608     end;
5609
5610   { was #define dname(params) def_expr }
5611   { argument types are unknown }
5612   function GET_WM_CTLCOLOR_HWND(w,l,msg : longint) : HWND;
5613     begin
5614        GET_WM_CTLCOLOR_HWND:=HWND(l);
5615     end;
5616
5617   { was #define dname(params) def_expr }
5618   { argument types are unknown }
5619   { return type might be wrong }
5620   function GET_WM_HSCROLL_CODE(w,l : longint) : longint;
5621     { return type might be wrong }
5622     begin
5623        GET_WM_HSCROLL_CODE:=LOWORD(w);
5624     end;
5625
5626   { was #define dname(params) def_expr }
5627   { argument types are unknown }
5628   function GET_WM_HSCROLL_HWND(w,l : longint) : HWND;
5629     begin
5630        GET_WM_HSCROLL_HWND:=HWND(l);
5631     end;
5632
5633   { was #define dname(params) def_expr }
5634   { argument types are unknown }
5635   { return type might be wrong }
5636   function GET_WM_HSCROLL_POS(w,l : longint) : longint;
5637     { return type might be wrong }
5638     begin
5639        GET_WM_HSCROLL_POS:=HIWORD(w);
5640     end;
5641
5642   { was #define dname(params) def_expr }
5643   { argument types are unknown }
5644   { return type might be wrong }
5645   function GET_WM_MDIACTIVATE_FACTIVATE(h,a,b : longint) : longint;
5646     { return type might be wrong }
5647     begin
5648        GET_WM_MDIACTIVATE_FACTIVATE:=longint(b = LONG(h));
5649     end;
5650
5651   { was #define dname(params) def_expr }
5652   { argument types are unknown }
5653   function GET_WM_MDIACTIVATE_HWNDACTIVATE(a,b : longint) : HWND;
5654     begin
5655        GET_WM_MDIACTIVATE_HWNDACTIVATE:=HWND(b);
5656     end;
5657
5658   { was #define dname(params) def_expr }
5659   { argument types are unknown }
5660   function GET_WM_MDIACTIVATE_HWNDDEACT(a,b : longint) : HWND;
5661     begin
5662        GET_WM_MDIACTIVATE_HWNDDEACT:=HWND(a);
5663     end;
5664
5665   { was #define dname(params) def_expr }
5666   { argument types are unknown }
5667   { return type might be wrong }
5668   function GET_WM_VSCROLL_CODE(w,l : longint) : longint;
5669     { return type might be wrong }
5670     begin
5671        GET_WM_VSCROLL_CODE:=LOWORD(w);
5672     end;
5673
5674   { was #define dname(params) def_expr }
5675   { argument types are unknown }
5676   function GET_WM_VSCROLL_HWND(w,l : longint) : HWND;
5677     begin
5678        GET_WM_VSCROLL_HWND:=HWND(l);
5679     end;
5680
5681   { was #define dname(params) def_expr }
5682   { argument types are unknown }
5683   { return type might be wrong }
5684   function GET_WM_VSCROLL_POS(w,l : longint) : longint;
5685     { return type might be wrong }
5686     begin
5687        GET_WM_VSCROLL_POS:=HIWORD(w);
5688     end;
5689
5690   { was #define dname(params) def_expr }
5691   function FreeModule(h:HINST):WINBOOL;
5692     begin
5693        FreeModule:=FreeLibrary(h);
5694     end;
5695
5696   { was #define dname(params) def_expr }
5697   { argument types are unknown }
5698   { return type might be wrong }
5699   function MakeProcInstance(p,i : longint) : longint;
5700     { return type might be wrong }
5701     begin
5702        MakeProcInstance:=p;
5703     end;
5704
5705   { was #define dname(params) def_expr }
5706   { argument types are unknown }
5707   { return type might be wrong }
5708   function FreeProcInstance(p : longint) : longint;
5709     { return type might be wrong }
5710     begin
5711        FreeProcInstance:=p;
5712     end;
5713
5714 {$endif read_implementation}
5715
5716 {
5717   $Log$
5718   Revision 1.1  2002/02/19 08:26:37  sasu
5719   Initial revision
5720
5721   Revision 1.1  2000/07/13 06:31:23  michael
5722   + Initial import
5723
5724   Revision 1.6  2000/06/11 07:04:58  peter
5725     * Windows unit has now more Delphi compatibile functions
5726     * placed the external functions only in the interface
5727
5728   Revision 1.5  2000/03/14 10:20:19  michael
5729   + Added constants and types for Delphi compatibility
5730
5731   Revision 1.4  2000/02/09 16:59:35  peter
5732     * truncated log
5733
5734   Revision 1.3  2000/01/07 16:41:54  daniel
5735     * copyright 2000
5736
5737   Revision 1.2  2000/01/07 16:32:35  daniel
5738     * copyright 2000 added
5739
5740   Revision 1.1  1999/09/16 13:38:22  peter
5741     * windows unit include moved to wininc/
5742
5743 }