home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / cb / setup / cbuilder / data.z / MESSAGES.PAS < prev    next >
Pascal/Delphi Source File  |  1997-02-28  |  30KB  |  1,332 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Delphi Runtime Library                          }
  5. {       Windows Messages and Types                      }
  6. {                                                       }
  7. {       Copyright (c) 1991,96 Borland International     }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit Messages;
  12.  
  13. {$A-}
  14.  
  15. interface
  16.  
  17. uses Windows;
  18.  
  19. { Window Messages }
  20.  
  21. const
  22.   WM_NULL             = $0000;
  23.   WM_CREATE           = $0001;
  24.   WM_DESTROY          = $0002;
  25.   WM_MOVE             = $0003;
  26.   WM_SIZE             = $0005;
  27.   WM_ACTIVATE         = $0006;
  28.   WM_SETFOCUS         = $0007;
  29.   WM_KILLFOCUS        = $0008;
  30.   WM_ENABLE           = $000A;
  31.   WM_SETREDRAW        = $000B;
  32.   WM_SETTEXT          = $000C;
  33.   WM_GETTEXT          = $000D;
  34.   WM_GETTEXTLENGTH    = $000E;
  35.   WM_PAINT            = $000F;
  36.   WM_CLOSE            = $0010;
  37.   WM_QUERYENDSESSION  = $0011;
  38.   WM_QUIT             = $0012;
  39.   WM_QUERYOPEN        = $0013;
  40.   WM_ERASEBKGND       = $0014;
  41.   WM_SYSCOLORCHANGE   = $0015;
  42.   WM_ENDSESSION       = $0016;
  43.   WM_SYSTEMERROR      = $0017;
  44.   WM_SHOWWINDOW       = $0018;
  45.   WM_CTLCOLOR         = $0019;
  46.   WM_WININICHANGE     = $001A;
  47.   WM_SETTINGCHANGE = WM_WININICHANGE;
  48.   WM_DEVMODECHANGE    = $001B;
  49.   WM_ACTIVATEAPP      = $001C;
  50.   WM_FONTCHANGE       = $001D;
  51.   WM_TIMECHANGE       = $001E;
  52.   WM_CANCELMODE       = $001F;
  53.   WM_SETCURSOR        = $0020;
  54.   WM_MOUSEACTIVATE    = $0021;
  55.   WM_CHILDACTIVATE    = $0022;
  56.   WM_QUEUESYNC        = $0023;
  57.   WM_GETMINMAXINFO    = $0024;
  58.   WM_PAINTICON        = $0026;
  59.   WM_ICONERASEBKGND   = $0027;
  60.   WM_NEXTDLGCTL       = $0028;
  61.   WM_SPOOLERSTATUS    = $002A;
  62.   WM_DRAWITEM         = $002B;
  63.   WM_MEASUREITEM      = $002C;
  64.   WM_DELETEITEM       = $002D;
  65.   WM_VKEYTOITEM       = $002E;
  66.   WM_CHARTOITEM       = $002F;
  67.   WM_SETFONT          = $0030;
  68.   WM_GETFONT          = $0031;
  69.   WM_SETHOTKEY        = $0032;
  70.   WM_GETHOTKEY        = $0033;
  71.   WM_QUERYDRAGICON    = $0037;
  72.   WM_COMPAREITEM      = $0039;
  73.   WM_COMPACTING       = $0041;
  74.  
  75.   WM_COMMNOTIFY       = $0044;    { obsolete in Win32}
  76.  
  77.   WM_WINDOWPOSCHANGING = $0046;
  78.   WM_WINDOWPOSCHANGED = $0047;
  79.   WM_POWER            = $0048;
  80.  
  81.   WM_COPYDATA         = $004A;
  82.   WM_CANCELJOURNAL    = $004B;
  83.   WM_NOTIFY           = $004E;
  84.   WM_INPUTLANGCHANGEREQUEST = $0050;
  85.   WM_INPUTLANGCHANGE  = $0051;
  86.   WM_TCARD            = $0052;
  87.   WM_HELP             = $0053;
  88.   WM_USERCHANGED      = $0054;
  89.   WM_NOTIFYFORMAT     = $0055;
  90.  
  91.   WM_CONTEXTMENU      = $007B;
  92.   WM_STYLECHANGING    = $007C;
  93.   WM_STYLECHANGED     = $007D;
  94.   WM_DISPLAYCHANGE    = $007E;
  95.   WM_GETICON          = $007F;
  96.   WM_SETICON          = $0080;
  97.  
  98.   WM_NCCREATE         = $0081;
  99.   WM_NCDESTROY        = $0082;
  100.   WM_NCCALCSIZE       = $0083;
  101.   WM_NCHITTEST        = $0084;
  102.   WM_NCPAINT          = $0085;
  103.   WM_NCACTIVATE       = $0086;
  104.   WM_GETDLGCODE       = $0087;
  105.   WM_NCMOUSEMOVE      = $00A0;
  106.   WM_NCLBUTTONDOWN    = $00A1;
  107.   WM_NCLBUTTONUP      = $00A2;
  108.   WM_NCLBUTTONDBLCLK  = $00A3;
  109.   WM_NCRBUTTONDOWN    = $00A4;
  110.   WM_NCRBUTTONUP      = $00A5;
  111.   WM_NCRBUTTONDBLCLK  = $00A6;
  112.   WM_NCMBUTTONDOWN    = $00A7;
  113.   WM_NCMBUTTONUP      = $00A8;
  114.   WM_NCMBUTTONDBLCLK  = $00A9;
  115.  
  116.   WM_KEYFIRST         = $0100;
  117.   WM_KEYDOWN          = $0100;
  118.   WM_KEYUP            = $0101;
  119.   WM_CHAR             = $0102;
  120.   WM_DEADCHAR         = $0103;
  121.   WM_SYSKEYDOWN       = $0104;
  122.   WM_SYSKEYUP         = $0105;
  123.   WM_SYSCHAR          = $0106;
  124.   WM_SYSDEADCHAR      = $0107;
  125.   WM_KEYLAST          = $0108;
  126.  
  127.   WM_IME_STARTCOMPOSITION = $010D;
  128.   WM_IME_ENDCOMPOSITION   = $010E;
  129.   WM_IME_COMPOSITION      = $010F;
  130.   WM_IME_KEYLAST          = $010F;
  131.  
  132.   WM_INITDIALOG       = $0110;
  133.   WM_COMMAND          = $0111;
  134.   WM_SYSCOMMAND       = $0112;
  135.   WM_TIMER            = $0113;
  136.   WM_HSCROLL          = $0114;
  137.   WM_VSCROLL          = $0115;
  138.   WM_INITMENU         = $0116;
  139.   WM_INITMENUPOPUP    = $0117;
  140.   WM_MENUSELECT       = $011F;
  141.   WM_MENUCHAR         = $0120;
  142.   WM_ENTERIDLE        = $0121;
  143.  
  144.   WM_CTLCOLORMSGBOX   = $0132;
  145.   WM_CTLCOLOREDIT     = $0133;
  146.   WM_CTLCOLORLISTBOX  = $0134;
  147.   WM_CTLCOLORBTN      = $0135;
  148.   WM_CTLCOLORDLG      = $0136;
  149.   WM_CTLCOLORSCROLLBAR= $0137;
  150.   WM_CTLCOLORSTATIC   = $0138;
  151.  
  152.   WM_MOUSEFIRST       = $0200;
  153.   WM_MOUSEMOVE        = $0200;
  154.   WM_LBUTTONDOWN      = $0201;
  155.   WM_LBUTTONUP        = $0202;
  156.   WM_LBUTTONDBLCLK    = $0203;
  157.   WM_RBUTTONDOWN      = $0204;
  158.   WM_RBUTTONUP        = $0205;
  159.   WM_RBUTTONDBLCLK    = $0206;
  160.   WM_MBUTTONDOWN      = $0207;
  161.   WM_MBUTTONUP        = $0208;
  162.   WM_MBUTTONDBLCLK    = $0209;
  163.   WM_MOUSELAST        = $0209;
  164.  
  165.   WM_PARENTNOTIFY     = $0210;
  166.   WM_ENTERMENULOOP    = $0211;
  167.   WM_EXITMENULOOP     = $0212;
  168.   WM_NEXTMENU         = $0213;
  169.  
  170.   WM_SIZING           = 532;
  171.   WM_CAPTURECHANGED   = 533;
  172.   WM_MOVING           = 534;
  173.   WM_POWERBROADCAST   = 536;
  174.   WM_DEVICECHANGE     = 537;
  175.  
  176.   WM_IME_SETCONTEXT      = 641;
  177.   WM_IME_NOTIFY          = 642;
  178.   WM_IME_CONTROL         = 643;
  179.   WM_IME_COMPOSITIONFULL = 644;
  180.   WM_IME_SELECT          = 645;
  181.   WM_IME_CHAR            = 646;
  182.   WM_IME_KEYDOWN         = 656;
  183.   WM_IME_KEYUP           = 657;
  184.  
  185.   WM_MDICREATE        = $0220;
  186.   WM_MDIDESTROY       = $0221;
  187.   WM_MDIACTIVATE      = $0222;
  188.   WM_MDIRESTORE       = $0223;
  189.   WM_MDINEXT          = $0224;
  190.   WM_MDIMAXIMIZE      = $0225;
  191.   WM_MDITILE          = $0226;
  192.   WM_MDICASCADE       = $0227;
  193.   WM_MDIICONARRANGE   = $0228;
  194.   WM_MDIGETACTIVE     = $0229;
  195.   WM_MDISETMENU       = $0230;
  196.  
  197.   WM_ENTERSIZEMOVE    = $0231;
  198.   WM_EXITSIZEMOVE     = $0232;
  199.   WM_DROPFILES        = $0233;
  200.   WM_MDIREFRESHMENU   = $0234;
  201.  
  202.   WM_CUT              = $0300;
  203.   WM_COPY             = $0301;
  204.   WM_PASTE            = $0302;
  205.   WM_CLEAR            = $0303;
  206.   WM_UNDO             = $0304;
  207.   WM_RENDERFORMAT     = $0305;
  208.   WM_RENDERALLFORMATS = $0306;
  209.   WM_DESTROYCLIPBOARD = $0307;
  210.   WM_DRAWCLIPBOARD    = $0308;
  211.   WM_PAINTCLIPBOARD   = $0309;
  212.   WM_VSCROLLCLIPBOARD = $030A;
  213.   WM_SIZECLIPBOARD    = $030B;
  214.   WM_ASKCBFORMATNAME  = $030C;
  215.   WM_CHANGECBCHAIN    = $030D;
  216.   WM_HSCROLLCLIPBOARD = $030E;
  217.   WM_QUERYNEWPALETTE  = $030F;
  218.   WM_PALETTEISCHANGING= $0310;
  219.   WM_PALETTECHANGED   = $0311;
  220.   WM_HOTKEY           = $0312;
  221.  
  222.   WM_PRINT            = 791;
  223.   WM_PRINTCLIENT      = 792;
  224.  
  225.   WM_HANDHELDFIRST    = 856;
  226.   WM_HANDHELDLAST     = 863;
  227.  
  228.   WM_PENWINFIRST      = $0380;
  229.   WM_PENWINLAST       = $038F;
  230.  
  231.   WM_COALESCE_FIRST   = $0390;
  232.   WM_COALESCE_LAST    = $039F;
  233.  
  234.   WM_DDE_FIRST        = $03E0;
  235.   WM_DDE_INITIATE     = WM_DDE_FIRST + 0;
  236.   WM_DDE_TERMINATE    = WM_DDE_FIRST + 1;
  237.   WM_DDE_ADVISE       = WM_DDE_FIRST + 2;
  238.   WM_DDE_UNADVISE     = WM_DDE_FIRST + 3;
  239.   WM_DDE_ACK          = WM_DDE_FIRST + 4;
  240.   WM_DDE_DATA         = WM_DDE_FIRST + 5;
  241.   WM_DDE_REQUEST      = WM_DDE_FIRST + 6;
  242.   WM_DDE_POKE         = WM_DDE_FIRST + 7;
  243.   WM_DDE_EXECUTE      = WM_DDE_FIRST + 8;
  244.   WM_DDE_LAST         = WM_DDE_FIRST + 8;
  245.  
  246.   WM_APP = $8000;
  247.  
  248. { NOTE: All Message Numbers below 0x0400 are RESERVED }
  249.  
  250. { Private Window Messages Start Here }
  251.  
  252.   WM_USER             = $0400;
  253.  
  254. { Button Notification Codes }
  255.  
  256. const
  257.   BN_CLICKED       = 0;
  258.   BN_PAINT         = 1;
  259.   BN_HILITE        = 2;
  260.   BN_UNHILITE      = 3;
  261.   BN_DISABLE       = 4;
  262.   BN_DOUBLECLICKED = 5;
  263.   BN_PUSHED = BN_HILITE;
  264.   BN_UNPUSHED = BN_UNHILITE;
  265.   BN_DBLCLK = BN_DOUBLECLICKED;
  266.   BN_SETFOCUS = 6;
  267.   BN_KILLFOCUS = 7;
  268.  
  269. { Button Control Messages }
  270. const
  271.   BM_GETCHECK = $00F0;
  272.   BM_SETCHECK = $00F1;
  273.   BM_GETSTATE = $00F2;
  274.   BM_SETSTATE = $00F3;
  275.   BM_SETSTYLE = $00F4;
  276.   BM_CLICK    = $00F5;
  277.   BM_GETIMAGE = $00F6;
  278.   BM_SETIMAGE = $00F7;
  279.  
  280. { Listbox Notification Codes }
  281.  
  282. const
  283.   LBN_ERRSPACE  = (-2);
  284.   LBN_SELCHANGE = 1;
  285.   LBN_DBLCLK    = 2;
  286.   LBN_SELCANCEL = 3;
  287.   LBN_SETFOCUS  = 4;
  288.   LBN_KILLFOCUS = 5;
  289.  
  290. { Listbox messages }
  291.  
  292. const
  293.   LB_ADDSTRING            = $0180;
  294.   LB_INSERTSTRING         = $0181;
  295.   LB_DELETESTRING         = $0182;
  296.   LB_SELITEMRANGEEX       = $0183;
  297.   LB_RESETCONTENT         = $0184;
  298.   LB_SETSEL               = $0185;
  299.   LB_SETCURSEL            = $0186;
  300.   LB_GETSEL               = $0187;
  301.   LB_GETCURSEL            = $0188;
  302.   LB_GETTEXT              = $0189;
  303.   LB_GETTEXTLEN           = $018A;
  304.   LB_GETCOUNT             = $018B;
  305.   LB_SELECTSTRING         = $018C;
  306.   LB_DIR                  = $018D;
  307.   LB_GETTOPINDEX          = $018E;
  308.   LB_FINDSTRING           = $018F;
  309.   LB_GETSELCOUNT          = $0190;
  310.   LB_GETSELITEMS          = $0191;
  311.   LB_SETTABSTOPS          = $0192;
  312.   LB_GETHORIZONTALEXTENT  = $0193;
  313.   LB_SETHORIZONTALEXTENT  = $0194;
  314.   LB_SETCOLUMNWIDTH       = $0195;
  315.   LB_ADDFILE              = $0196;
  316.   LB_SETTOPINDEX          = $0197;
  317.   LB_GETITEMRECT          = $0198;
  318.   LB_GETITEMDATA          = $0199;
  319.   LB_SETITEMDATA          = $019A;
  320.   LB_SELITEMRANGE         = $019B;
  321.   LB_SETANCHORINDEX       = $019C;
  322.   LB_GETANCHORINDEX       = $019D;
  323.   LB_SETCARETINDEX        = $019E;
  324.   LB_GETCARETINDEX        = $019F;
  325.   LB_SETITEMHEIGHT        = $01A0;
  326.   LB_GETITEMHEIGHT        = $01A1;
  327.   LB_FINDSTRINGEXACT      = $01A2;
  328.   LB_SETLOCALE            = $01A5;
  329.   LB_GETLOCALE            = $01A6;
  330.   LB_SETCOUNT             = $01A7;
  331.   LB_INITSTORAGE          = $01A8;
  332.   LB_ITEMFROMPOINT        = $01A9;
  333.   LB_MSGMAX               = 432;
  334.  
  335. { Combo Box Notification Codes }
  336.  
  337. const
  338.   CBN_ERRSPACE   = (-1);
  339.   CBN_SELCHANGE  = 1;
  340.   CBN_DBLCLK     = 2;
  341.   CBN_SETFOCUS   = 3;
  342.   CBN_KILLFOCUS  = 4;
  343.   CBN_EDITCHANGE = 5;
  344.   CBN_EDITUPDATE = 6;
  345.   CBN_DROPDOWN   = 7;
  346.   CBN_CLOSEUP    = 8;
  347.   CBN_SELENDOK   = 9;
  348.   CBN_SELENDCANCEL = 10;
  349.  
  350. { Combo Box messages }
  351.  
  352.   CB_GETEDITSEL            = $0140;
  353.   CB_LIMITTEXT             = $0141;
  354.   CB_SETEDITSEL            = $0142;
  355.   CB_ADDSTRING             = $0143;
  356.   CB_DELETESTRING          = $0144;
  357.   CB_DIR                   = $0145;
  358.   CB_GETCOUNT              = $0146;
  359.   CB_GETCURSEL             = $0147;
  360.   CB_GETLBTEXT             = $0148;
  361.   CB_GETLBTEXTLEN          = $0149;
  362.   CB_INSERTSTRING          = $014A;
  363.   CB_RESETCONTENT          = $014B;
  364.   CB_FINDSTRING            = $014C;
  365.   CB_SELECTSTRING          = $014D;
  366.   CB_SETCURSEL             = $014E;
  367.   CB_SHOWDROPDOWN          = $014F;
  368.   CB_GETITEMDATA           = $0150;
  369.   CB_SETITEMDATA           = $0151;
  370.   CB_GETDROPPEDCONTROLRECT = $0152;
  371.   CB_SETITEMHEIGHT         = $0153;
  372.   CB_GETITEMHEIGHT         = $0154;
  373.   CB_SETEXTENDEDUI         = $0155;
  374.   CB_GETEXTENDEDUI         = $0156;
  375.   CB_GETDROPPEDSTATE       = $0157;
  376.   CB_FINDSTRINGEXACT       = $0158;
  377.   CB_SETLOCALE             = 345;
  378.   CB_GETLOCALE             = 346;
  379.   CB_GETTOPINDEX           = 347;
  380.   CB_SETTOPINDEX           = 348;
  381.   CB_GETHORIZONTALEXTENT   = 349;
  382.   CB_SETHORIZONTALEXTENT   = 350;
  383.   CB_GETDROPPEDWIDTH       = 351;
  384.   CB_SETDROPPEDWIDTH       = 352;
  385.   CB_INITSTORAGE           = 353;
  386.   CB_MSGMAX                = 354;
  387.  
  388. { Edit Control Notification Codes }
  389.  
  390. const
  391.   EN_SETFOCUS  = $0100;
  392.   EN_KILLFOCUS = $0200;
  393.   EN_CHANGE    = $0300;
  394.   EN_UPDATE    = $0400;
  395.   EN_ERRSPACE  = $0500;
  396.   EN_MAXTEXT   = $0501;
  397.   EN_HSCROLL   = $0601;
  398.   EN_VSCROLL   = $0602;
  399.  
  400. { Edit Control Messages }
  401.  
  402. const
  403.   EM_GETSEL              = $00B0;
  404.   EM_SETSEL              = $00B1;
  405.   EM_GETRECT             = $00B2;
  406.   EM_SETRECT             = $00B3;
  407.   EM_SETRECTNP           = $00B4;
  408.   EM_SCROLL              = $00B5;
  409.   EM_LINESCROLL          = $00B6;
  410.   EM_SCROLLCARET         = $00B7;
  411.   EM_GETMODIFY           = $00B8;
  412.   EM_SETMODIFY           = $00B9;
  413.   EM_GETLINECOUNT        = $00BA;
  414.   EM_LINEINDEX           = $00BB;
  415.   EM_SETHANDLE           = $00BC;
  416.   EM_GETHANDLE           = $00BD;
  417.   EM_GETTHUMB            = $00BE;
  418.   EM_LINELENGTH          = $00C1;
  419.   EM_REPLACESEL          = $00C2;
  420.   EM_GETLINE             = $00C4;
  421.   EM_LIMITTEXT           = $00C5;
  422.   EM_CANUNDO             = $00C6;
  423.   EM_UNDO                = $00C7;
  424.   EM_FMTLINES            = $00C8;
  425.   EM_LINEFROMCHAR        = $00C9;
  426.   EM_SETTABSTOPS         = $00CB;
  427.   EM_SETPASSWORDCHAR     = $00CC;
  428.   EM_EMPTYUNDOBUFFER     = $00CD;
  429.   EM_GETFIRSTVISIBLELINE = $00CE;
  430.   EM_SETREADONLY         = $00CF;
  431.   EM_SETWORDBREAKPROC    = $00D0;
  432.   EM_GETWORDBREAKPROC    = $00D1;
  433.   EM_GETPASSWORDCHAR     = $00D2;
  434.   EM_SETMARGINS          = 211;
  435.   EM_GETMARGINS          = 212;
  436.   EM_SETLIMITTEXT        = EM_LIMITTEXT;    //win40 Name change
  437.   EM_GETLIMITTEXT        = 213;
  438.   EM_POSFROMCHAR         = 214;
  439.   EM_CHARFROMPOS         = 215;
  440.  
  441. const
  442.   { Scroll bar messages }
  443.   SBM_SETPOS = 224;             { not in win3.1  }
  444.   SBM_GETPOS = 225;             { not in win3.1  }
  445.   SBM_SETRANGE = 226;           { not in win3.1  }
  446.   SBM_SETRANGEREDRAW = 230;     { not in win3.1  }
  447.   SBM_GETRANGE = 227;           { not in win3.1  }
  448.   SBM_ENABLE_ARROWS = 228;      { not in win3.1  }
  449.   SBM_SETSCROLLINFO = 233;
  450.   SBM_GETSCROLLINFO = 234;
  451.  
  452. const
  453.   STM_SETICON = 368;
  454.   STM_GETICON = 369;
  455.  
  456. { Dialog messages }
  457.  
  458.   DM_GETDEFID = (WM_USER+0);
  459.   DM_SETDEFID = (WM_USER+1);
  460.   DM_REPOSITION = (WM_USER+2);
  461.  
  462.   PSM_PAGEINFO = (WM_USER+100);
  463.   PSM_SHEETINFO = (WM_USER+101);
  464.  
  465. type
  466.  
  467. { Generic window message record }
  468.  
  469.   PMessage = ^TMessage;
  470.   TMessage = record
  471.     Msg: Cardinal;
  472.     case Integer of
  473.       0: (
  474.         WParam: Longint;
  475.         LParam: Longint;
  476.         Result: Longint);
  477.       1: (
  478.         WParamLo: Word;
  479.         WParamHi: Word;
  480.         LParamLo: Word;
  481.         LParamHi: Word;
  482.         ResultLo: Word;
  483.         ResultHi: Word);
  484.   end;
  485.  
  486. { Common message format records }
  487.  
  488.   TWMNoParams = record
  489.     Msg: Cardinal;
  490.     Unused: array[0..3] of Word;
  491.     Result: Longint;
  492.   end;
  493.  
  494.   TWMKey = record
  495.     Msg: Cardinal;
  496.     CharCode: Word;
  497.     Unused: Word;
  498.     KeyData: Longint;
  499.     Result: Longint;
  500.   end;
  501.  
  502.   TWMMouse = record
  503.     Msg: Cardinal;
  504.     Keys: Longint;
  505.     case Integer of
  506.       0: (
  507.         XPos: Smallint;
  508.         YPos: Smallint);
  509.       1: (
  510.         Pos: TSmallPoint;
  511.         Result: Longint);
  512.   end;
  513.  
  514.   TWMWindowPosMsg = record
  515.     Msg: Cardinal;
  516.     Unused: Integer;
  517.     WindowPos: PWindowPos;
  518.     Result: Longint;
  519.   end;
  520.  
  521.   TWMScroll = record
  522.     Msg: Cardinal;
  523.     ScrollCode: Smallint; { SB_xxxx }
  524.     Pos: Smallint;
  525.     ScrollBar: HWND;
  526.     Result: Longint;
  527.   end;
  528.  
  529. { Message records }
  530.  
  531.   TWMActivate = record
  532.     Msg: Cardinal;
  533.     Active: Word; { WA_INACTIVE, WA_ACTIVE, WA_CLICKACTIVE }
  534.     Minimized: WordBool;
  535.     ActiveWindow: HWND;
  536.     Result: Longint;
  537.   end;
  538.  
  539.   TWMActivateApp = record
  540.     Msg: Cardinal;
  541.     Active: BOOL;
  542.     ThreadId: Longint;
  543.     Result: Longint;
  544.   end;
  545.  
  546.   TWMAskCBFormatName = record
  547.     Msg: Cardinal;
  548.     NameLen: Word;
  549.     Unused: Word;
  550.     FormatName: PChar;
  551.     Result: Longint;
  552.   end;
  553.  
  554.   TWMCancelMode = TWMNoParams;
  555.  
  556.   TWMChangeCBChain = record
  557.     Msg: Cardinal;
  558.     Remove: HWND;
  559.     Next: HWND;
  560.     Result: Longint;
  561.   end;
  562.  
  563.   TWMChar = TWMKey;
  564.  
  565.   TWMCharToItem = record
  566.     Msg: Cardinal;
  567.     Key: Word;
  568.     CaretPos: Word;
  569.     ListBox: HWND;
  570.     Result: Longint;
  571.   end;
  572.  
  573.   TWMChildActivate = TWMNoParams;
  574.  
  575.   TWMChooseFont_GetLogFont = record
  576.     Msg: Cardinal;
  577.     Unused: Longint;
  578.     LogFont: PLogFont;
  579.     Result: Longint;
  580.   end;
  581.  
  582.   TWMClear = TWMNoParams;
  583.   TWMClose = TWMNoParams;
  584.  
  585.   TWMCommand = record
  586.     Msg: Cardinal;
  587.     ItemID: Word;
  588.     NotifyCode: Word;
  589.     Ctl: HWND;
  590.     Result: Longint;
  591.   end;
  592.  
  593.   TWMCompacting = record
  594.     Msg: Cardinal;
  595.     CompactRatio: Longint;
  596.     Unused: Longint;
  597.     Result: Longint;
  598.   end;
  599.  
  600.   TWMCompareItem = record
  601.     Msg: Cardinal;
  602.     Ctl: HWnd;
  603.     CompareItemStruct: PCompareItemStruct;
  604.     Result: Longint;
  605.   end;
  606.  
  607.   TWMCopy = TWMNoParams;
  608.  
  609.   TWMCopyData = record
  610.     Msg: Cardinal;
  611.     From: HWND;
  612.     CopyDataStruct: PCopyDataStruct;
  613.     Result: Longint;
  614.   end;
  615.  
  616.   { ?? WM_CLP_LAUNCH, WM_CPL_LAUNCHED }
  617.  
  618.   TWMCreate = record
  619.     Msg: Cardinal;
  620.     Unused: Integer;
  621.     CreateStruct: PCreateStruct;
  622.     Result: Longint;
  623.   end;
  624.  
  625.   TWMCtlColor = record
  626.     Msg: Cardinal;
  627.     ChildDC: HDC;
  628.     ChildWnd: HWND;
  629.     Result: Longint;
  630.   end;
  631.  
  632.   TWMCtlColorBtn = TWMCtlColor;
  633.   TWMCtlColorDlg = TWMCtlColor;
  634.   TWMCtlColorEdit = TWMCtlColor;
  635.   TWMCtlColorListbox = TWMCtlColor;
  636.   TWMCtlColorMsgbox = TWMCtlColor;
  637.   TWMCtlColorScrollbar = TWMCtlColor;
  638.   TWMCtlColorStatic = TWMCtlColor;
  639.  
  640.   TWMCut = TWMNoParams;
  641.  
  642.   TWMDDE_Ack = record
  643.     Msg: Cardinal;
  644.     PostingApp: HWND;
  645.     case Word of
  646.       WM_DDE_INITIATE: (
  647.         App: Word;
  648.         Topic: Word;
  649.         Result: Longint);
  650.       WM_DDE_EXECUTE {and all others}: (
  651.         PackedVal: Longint);
  652.   end;
  653.  
  654.   TWMDDE_Advise = record
  655.     Msg: Cardinal;
  656.     PostingApp: HWND;
  657.     PackedVal: Longint;
  658.     Result: Longint;
  659.   end;
  660.  
  661.   TWMDDE_Data = record
  662.     Msg: Cardinal;
  663.     PostingApp: HWND;
  664.     PackedVal: Longint;
  665.     Result: Longint;
  666.   end;
  667.  
  668.   TWMDDE_Execute = record
  669.     Msg: Cardinal;
  670.     PostingApp: HWND;
  671.     Commands: THandle;
  672.     Result: Longint;
  673.   end;
  674.  
  675.   TWMDDE_Initiate = record
  676.     Msg: Cardinal;
  677.     PostingApp: HWND;
  678.     App: Word;
  679.     Topic: Word;
  680.     Result: Longint;
  681.   end;
  682.  
  683.   TWMDDE_Poke = record
  684.     Msg: Cardinal;
  685.     PostingApp: HWND;
  686.     PackedVal: Longint;
  687.     Result: Longint;
  688.   end;
  689.  
  690.   TWMDDE_Request = record
  691.     Msg: Cardinal;
  692.     PostingApp: HWND;
  693.     Format: Word;
  694.     Item: Word;
  695.     Result: Longint;
  696.   end;
  697.  
  698.   TWMDDE_Terminate = record
  699.     Msg: Cardinal;
  700.     PostingApp: HWND;
  701.     Unused: Longint;
  702.     Result: Longint;
  703.   end;
  704.  
  705.   TWMDDE_Unadvise = record
  706.     Msg: Cardinal;
  707.     PostingApp: HWND;
  708.     Format: Word;
  709.     Item: Word;
  710.     Result: Longint;
  711.   end;
  712.  
  713.   TWMDeadChar = TWMChar;
  714.  
  715.   TWMDeleteItem = record
  716.     Msg: Cardinal;
  717.     Ctl: HWND;
  718.     DeleteItemStruct: PDeleteItemStruct;
  719.     Result: Longint;
  720.   end;
  721.  
  722.   TWMDestroy = TWMNoParams;
  723.   TWMDestroyClipboard = TWMNoParams;
  724.  
  725.   TWMDevModeChange = record
  726.     Msg: Cardinal;
  727.     Unused: Integer;
  728.     Device: PChar;
  729.     Result: Longint;
  730.   end;
  731.  
  732.   TWMDrawClipboard = TWMNoParams;
  733.  
  734.   TWMDrawItem = record
  735.     Msg: Cardinal;
  736.     Ctl: HWND;
  737.     DrawItemStruct: PDrawItemStruct;
  738.     Result: Longint;
  739.   end;
  740.  
  741.   TWMDropFiles = record
  742.     Msg: Cardinal;
  743.     Drop: THANDLE;
  744.     Unused: Longint;
  745.     Result: Longint;
  746.   end;
  747.  
  748.   TWMEnable = record
  749.     Msg: Cardinal;
  750.     Enabled: LongBool;
  751.     Unused: Longint;
  752.     Result: Longint;
  753.   end;
  754.  
  755.   TWMEndSession = record
  756.     Msg: Cardinal;
  757.     EndSession: LongBool;
  758.     Unused: Longint;
  759.     Result: Longint;
  760.   end;
  761.  
  762.   TWMEnterIdle = record
  763.     Msg: Cardinal;
  764.     Source: Longint; { MSGF_DIALOGBOX, MSGF_MENU }
  765.     IdleWnd: HWND;
  766.     Result: Longint;
  767.   end;
  768.  
  769.   TWMEnterMenuLoop = record
  770.     Msg: Cardinal;
  771.     IsTrackPopupMenu: LongBool;
  772.     Unused: Longint;
  773.     Result: Longint;
  774.   end;
  775.  
  776.   TWMExitMenuLoop = TWMEnterMenuLoop;
  777.  
  778.   TWMEraseBkgnd = record
  779.     Msg: Cardinal;
  780.     DC: HDC;
  781.     Unused: Longint;
  782.     Result: Longint;
  783.   end;
  784.  
  785.   TWMFontChange = TWMNoParams;
  786.   TWMGetDlgCode = TWMNoParams;
  787.   TWMGetFont = TWMNoParams;
  788.  
  789.   TWMGetIcon = record
  790.     Msg: Cardinal;
  791.     BigIcon: Longbool;
  792.     Unused: Longint;
  793.     Result: Longint;
  794.   end;
  795.  
  796.   TWMGetHotKey = TWMNoParams;
  797.  
  798.   TWMGetMinMaxInfo = record
  799.     Msg: Cardinal;
  800.     Unused: Integer;
  801.     MinMaxInfo: PMinMaxInfo;
  802.     Result: Longint;
  803.   end;
  804.  
  805.   TWMGetText = record
  806.     Msg: Cardinal;
  807.     TextMax: Integer;
  808.     Text: PChar;
  809.     Result: Longint;
  810.   end;
  811.  
  812.   TWMGetTextLength = TWMNoParams;
  813.  
  814.   TWMHotKey = record
  815.     Msg: Cardinal;
  816.     HotKey: Longint;
  817.     Unused: Longint;
  818.     Result: Longint;
  819.   end;
  820.  
  821.   TWMHScroll = TWMScroll;
  822.  
  823.   TWMHScrollClipboard = record
  824.     Msg: Cardinal;
  825.     Viewer: HWND;
  826.     ScrollCode: Word; {SB_BOTTOM, SB_ENDSCROLL, SB_LINEDOWN, SB_LINEUP,
  827.                        SB_PAGEDOWN, SB_PAGEUP, SB_THUMBPOSITION,
  828.                        SB_THUMBTRACK, SB_TOP }
  829.     Pos: Word;
  830.     Result: Longint;
  831.   end;
  832.  
  833.   TWMIconEraseBkgnd = TWMEraseBkgnd;
  834.  
  835.   TWMInitDialog = record
  836.     Msg: Cardinal;
  837.     Focus: HWND;
  838.     InitParam: Longint;
  839.     Result: Longint;
  840.   end;
  841.  
  842.   TWMInitMenu = record
  843.     Msg: Cardinal;
  844.     Menu: HMENU;
  845.     Unused: Longint;
  846.     Result: Longint;
  847.   end;
  848.  
  849.   TWMInitMenuPopup = record
  850.     Msg: Cardinal;
  851.     MenuPopup: HMENU;
  852.     Pos: Smallint;
  853.     SystemMenu: WordBool;
  854.     Result: Longint;
  855.   end;
  856.  
  857.   TWMKeyDown = TWMKey;
  858.   TWMKeyUp = TWMKey;
  859.  
  860.   TWMKillFocus = record
  861.     Msg: Cardinal;
  862.     FocusedWnd: HWND;
  863.     Unused: Longint;
  864.     Result: Longint;
  865.   end;
  866.  
  867.   TWMLButtonDblClk = TWMMouse;
  868.   TWMLButtonDown   = TWMMouse;
  869.   TWMLButtonUp     = TWMMouse;
  870.   TWMMButtonDblClk = TWMMouse;
  871.   TWMMButtonDown   = TWMMouse;
  872.   TWMMButtonUp     = TWMMouse;
  873.  
  874.   TWMMDIActivate = record
  875.     Msg: Cardinal;
  876.     case Integer of
  877.       0: (
  878.         ChildWnd: HWND);
  879.       1: (
  880.         DeactiveWnd: HWND;
  881.         ActiveWnd: HWND;
  882.         Result: Longint);
  883.   end;
  884.  
  885.   TWMMDICascade = record
  886.     Msg: Cardinal;
  887.     Cascade: Longint; { 0, MDITILE_SKIPDISABLED }
  888.     Unused: Longint;
  889.     Result: Longint;
  890.   end;
  891.  
  892.   TWMMDICreate = record
  893.     Msg: Cardinal;
  894.     Unused: Integer;
  895.     MDICreateStruct: PMDICreateStruct;
  896.     Result: Longint;
  897.   end;
  898.  
  899.   TWMMDIDestroy = record
  900.     Msg: Cardinal;
  901.     Child: HWND;
  902.     Unused: Longint;
  903.     Result: Longint;
  904.   end;
  905.  
  906.   TWMMDIGetActive = TWMNoParams;
  907.   TWMMDIIconArrange = TWMNoParams;
  908.  
  909.   TWMMDIMaximize = record
  910.     Msg: Cardinal;
  911.     Maximize: HWND;
  912.     Unused: Longint;
  913.     Result: Longint;
  914.   end;
  915.  
  916.   TWMMDINext = record
  917.     Msg: Cardinal;
  918.     Child: HWND;
  919.     Next: Longint;
  920.     Result: Longint;
  921.   end;
  922.  
  923.   TWMMDIRefreshMenu = TWMNoParams;
  924.  
  925.   TWMMDIRestore = record
  926.     Msg: Cardinal;
  927.     IDChild: HWND;
  928.     Unused: Longint;
  929.     Result: Longint;
  930.   end;
  931.  
  932.   TWMMDISetMenu = record
  933.     Msg: Cardinal;
  934.     MenuFrame: HMENU;
  935.     MenuWindow: HMENU;
  936.     Result: Longint;
  937.   end;
  938.  
  939.   TWMMDITile = record
  940.     Msg: Cardinal;
  941.     Tile: Longint; { MDITILE_HORIZONTAL, MDITILE_SKIPDISABLE,
  942.                      MDITILE_VERTICAL }
  943.     Unused: Longint;
  944.     Result: Longint;
  945.   end;
  946.  
  947.   TWMMeasureItem = record
  948.     Msg: Cardinal;
  949.     IDCtl: HWnd;
  950.     MeasureItemStruct: PMeasureItemStruct;
  951.     Result: Longint;
  952.   end;
  953.  
  954.   TWMMenuChar = record
  955.     Msg: Cardinal;
  956.     User: Char;
  957.     Unused: Byte;
  958.     MenuFlag: Word; { MF_POPUP, MF_SYSMENU }
  959.     Menu: HMENU;
  960.     Result: Longint;
  961.   end;
  962.  
  963.   TWMMenuSelect = record
  964.     Msg: Cardinal;
  965.     IDItem: Word;
  966.     MenuFlag: Word; { MF_BITMAP, MF_CHECKED, MF_DISABLED, MF_GRAYED,
  967.                       MF_MOUSESELECT, MF_OWNERDRAW, MF_POPUP, MF_SEPARATOR,
  968.                       MF_SYSMENU }
  969.     Menu: HMENU;
  970.     Result: Longint;
  971.   end;
  972.  
  973.   TWMMouseActivate = record
  974.     Msg: Cardinal;
  975.     TopLevel: HWND;
  976.     HitTestCode: Word;
  977.     MouseMsg: Word;
  978.     Result: Longint;
  979.   end;
  980.  
  981.   TWMMouseMove = TWMMouse;
  982.  
  983.   TWMMove = record
  984.     Msg: Cardinal;
  985.     Unused: Integer;
  986.     case Integer of
  987.       0: (
  988.         XPos: Smallint;
  989.         YPos: Smallint);
  990.       1: (
  991.         Pos: TSmallPoint;
  992.         Result: Longint);
  993.   end;
  994.  
  995.   TWMNCActivate = record
  996.     Msg: Cardinal;
  997.     Active: BOOL;
  998.     Unused: Longint;
  999.     Result: Longint;
  1000.   end;
  1001.  
  1002.   TWMNCCalcSize = record
  1003.     Msg: Cardinal;
  1004.     CalcValidRects: BOOL;
  1005.     CalcSize_Params: PNCCalcSizeParams;
  1006.     Result: Longint;
  1007.   end;
  1008.  
  1009.   TWMNCCreate = record
  1010.     Msg: Cardinal;
  1011.     Unused: Integer;
  1012.     CreateStruct: PCreateStruct;
  1013.     Result: Longint;
  1014.   end;
  1015.  
  1016.   TWMNCDestroy = TWMNoParams;
  1017.  
  1018.   TWMNCHitTest = record
  1019.     Msg: Cardinal;
  1020.     Unused: Longint;
  1021.     case Integer of
  1022.       0: (
  1023.         XPos: Smallint;
  1024.         YPos: Smallint);
  1025.       1: (
  1026.         Pos: TSmallPoint;
  1027.         Result: Longint);
  1028.   end;
  1029.  
  1030.   TWMNCHitMessage = record
  1031.     Msg: Cardinal;
  1032.     HitTest: Longint;
  1033.     XCursor: Smallint;
  1034.     YCursor: Smallint;
  1035.     Result: Longint;
  1036.   end;
  1037.  
  1038.   TWMNCLButtonDblClk = TWMNCHitMessage;
  1039.   TWMNCLButtonDown   = TWMNCHitMessage;
  1040.   TWMNCLButtonUp     = TWMNCHitMessage;
  1041.   TWMNCMButtonDblClk = TWMNCHitMessage;
  1042.   TWMNCMButtonDown   = TWMNCHitMessage;
  1043.   TWMNCMButtonUp     = TWMNCHitMessage;
  1044.   TWMNCMouseMove     = TWMNCHitMessage;
  1045.  
  1046.   TWMNCPaint = record
  1047.     Msg: Cardinal;
  1048.     Rgn: HRGN;
  1049.     Unused: LongInt;
  1050.     Result: Longint;
  1051.   end;
  1052.  
  1053.   TWMNCRButtonDblClk = TWMNCHitMessage;
  1054.   TWMNCRButtonDown   = TWMNCHitMessage;
  1055.   TWMNCRButtonUp     = TWMNCHitMessage;
  1056.  
  1057.   TWMNextDlgCtl = record
  1058.     Msg: Cardinal;
  1059.     CtlFocus: Longint;
  1060.     Handle: WordBool;
  1061.     Unused: Word;
  1062.     Result: Longint;
  1063.   end;
  1064.  
  1065.   TWMNotify = record
  1066.     Msg: Cardinal;
  1067.     IDCtrl: Longint;
  1068.     NMHdr: PNMHdr;
  1069.     Result: Longint;
  1070.   end;
  1071.  
  1072.   TWMPaint = record
  1073.     Msg: Cardinal;
  1074.     DC: HDC;
  1075.     Unused: Longint;
  1076.     Result: Longint;
  1077.   end;
  1078.  
  1079.   TWMPaintClipboard = record
  1080.     Msg: Cardinal;
  1081.     Viewer: HWND;
  1082.     PaintStruct: THandle;
  1083.     Result: Longint;
  1084.   end;
  1085.  
  1086.   TWMPaintIcon = TWMNoParams;
  1087.  
  1088.   TWMPaletteChanged = record
  1089.     Msg: Cardinal;
  1090.     PalChg: HWND;
  1091.     Unused: Longint;
  1092.     Result: Longint;
  1093.   end;
  1094.  
  1095.   TWMPaletteIsChanging = record
  1096.     Msg: Cardinal;
  1097.     Realize: HWND;
  1098.     Unused: Longint;
  1099.     Result: Longint;
  1100.   end;
  1101.  
  1102.   TWMParentNotify = record
  1103.     Msg: Cardinal;
  1104.     case Event: Word of
  1105.       WM_CREATE, WM_DESTROY: (
  1106.         ChildID: Word;
  1107.         ChildWnd: HWnd);
  1108.       WM_LBUTTONDOWN, WM_MBUTTONDOWN, WM_RBUTTONDOWN: (
  1109.         Value: Word;
  1110.         XPos: Smallint;
  1111.         YPos: Smallint);
  1112.       0: (
  1113.         Value1: Word;
  1114.         Value2: Longint;
  1115.         Result: Longint);
  1116.   end;
  1117.  
  1118.   TWMPaste = TWMNoParams;
  1119.  
  1120.   TWMPower = record
  1121.     Msg: Cardinal;
  1122.     PowerEvt: Longint; { PWR_SUSPENDREQUEST, PWR_SUSPENDRESUME,
  1123.                          PWR_CRITICALRESUME }
  1124.     Unused: Longint;
  1125.     Result: Longint;
  1126.   end;
  1127.  
  1128.   TWMQueryDragIcon = TWMNoParams;
  1129.  
  1130.   TWMQueryEndSession = record
  1131.     Msg: Cardinal;
  1132.     Source: Longint;
  1133.     Unused: Longint;
  1134.     Result: Longint;
  1135.   end;
  1136.  
  1137.   TWMQueryNewPalette = TWMNoParams;
  1138.   TWMQueryOpen = TWMNoParams;
  1139.   TWMQueueSync = TWMNoParams;
  1140.  
  1141.   TWMQuit = record
  1142.     Msg: Cardinal;
  1143.     ExitCode: Longint;
  1144.     Unused: Longint;
  1145.     Result: Longint;
  1146.   end;
  1147.  
  1148.   TWMRButtonDblClk = TWMMouse;
  1149.   TWMRButtonDown = TWMMouse;
  1150.   TWMRButtonUp = TWMMouse;
  1151.  
  1152.   TWMRenderAllFormats = TWMNoParams;
  1153.  
  1154.   TWMRenderFormat = record
  1155.     Msg: Cardinal;
  1156.     Format: Longint;
  1157.     Unused: Longint;
  1158.     Result: Longint;
  1159.   end;
  1160.  
  1161.   TWMSetCursor = record
  1162.     Msg: Cardinal;
  1163.     CursorWnd: HWND;
  1164.     HitTest: Word;
  1165.     MouseMsg: Word;
  1166.     Result: Longint;
  1167.   end;
  1168.  
  1169.   TWMSetFocus = record
  1170.     Msg: Cardinal;
  1171.     FocusedWnd: HWND;
  1172.     Unused: Longint;
  1173.     Result: Longint;
  1174.   end;
  1175.  
  1176.   TWMSetFont = record
  1177.     Msg: Cardinal;
  1178.     Font: HFONT;
  1179.     Redraw: WordBool;
  1180.     Unused: Word;
  1181.     Result: Longint;
  1182.   end;
  1183.  
  1184.   TWMSetHotKey = record
  1185.     Msg: Cardinal;
  1186.     Key: Longint;
  1187.     Unused: Longint;
  1188.     Result: Longint;
  1189.   end;
  1190.  
  1191.   TWMSetIcon = record
  1192.     Msg: Cardinal;
  1193.     BigIcon: Longbool;
  1194.     Icon: HICON;
  1195.     Result: Longint;
  1196.   end;
  1197.  
  1198.   TWMSetRedraw = record
  1199.     Msg: Cardinal;
  1200.     Redraw: Longint;
  1201.     Unused: Longint;
  1202.     Result: Longint;
  1203.   end;
  1204.  
  1205.   TWMSetText = record
  1206.     Msg: Cardinal;
  1207.     Unused: Longint;
  1208.     Text: PChar;
  1209.     Result: Longint;
  1210.   end;
  1211.  
  1212.   TWMShowWindow = record
  1213.     Msg: Cardinal;
  1214.     Show: BOOL;
  1215.     Status: Longint;
  1216.     Result: Longint;
  1217.   end;
  1218.  
  1219.   TWMSize = record
  1220.     Msg: Cardinal;
  1221.     SizeType: Longint; { SIZE_MAXIMIZED, SIZE_MINIMIZED, SIZE_RESTORED,
  1222.                          SIZE_MAXHIDE, SIZE_MAXSHOW }
  1223.     Width: Word;
  1224.     Height: Word;
  1225.     Result: Longint;
  1226.   end;
  1227.  
  1228.   TWMSizeClipboard = record
  1229.     Msg: Cardinal;
  1230.     Viewer: HWND;
  1231.     RC: THandle;
  1232.     Result: Longint;
  1233.   end;
  1234.  
  1235.   TWMSpoolerStatus = record
  1236.     Msg: Cardinal;
  1237.     JobStatus: Longint;
  1238.     JobsLeft: Word;
  1239.     Unused: Word;
  1240.     Result: Longint;
  1241.   end;
  1242.  
  1243.   TWMStyleChange = record
  1244.     Msg: Cardinal;
  1245.     StyleType: Longint;
  1246.     StyleStruct: PStyleStruct;
  1247.     Result: Longint;
  1248.   end;
  1249.  
  1250.   TWMStyleChanged = TWMStyleChange;
  1251.   TWMStyleChanging = TWMStyleChange;
  1252.  
  1253.   TWMSysChar = TWMKey;
  1254.   TWMSysColorChange = TWMNoParams;
  1255.  
  1256.   TWMSysCommand = record
  1257.     Msg: Cardinal;
  1258.     case CmdType: Longint of
  1259.       SC_HOTKEY: (
  1260.         ActivateWnd: HWND);
  1261.       SC_KEYMENU: (
  1262.         Key: Word);
  1263.       SC_CLOSE, SC_HSCROLL, SC_MAXIMIZE, SC_MINIMIZE, SC_MOUSEMENU, SC_MOVE,
  1264.       SC_NEXTWINDOW, SC_PREVWINDOW, SC_RESTORE, SC_SCREENSAVE, SC_SIZE,
  1265.       SC_TASKLIST, SC_VSCROLL: (
  1266.         XPos: Smallint;
  1267.         YPos: Smallint;
  1268.         Result: Longint);
  1269.   end;
  1270.  
  1271.   TWMSysDeadChar = record
  1272.     Msg: Cardinal;
  1273.     CharCode: Word;
  1274.     Unused: Word;
  1275.     KeyData: Longint;
  1276.     Result: Longint;
  1277.   end;
  1278.  
  1279.   TWMSysKeyDown = TWMKey;
  1280.   TWMSysKeyUp = TWMKey;
  1281.  
  1282.   TWMSystemError = record
  1283.     Msg: Cardinal;
  1284.     ErrSpec: Word;
  1285.     Unused: Longint;
  1286.     Result: Longint;
  1287.   end;
  1288.  
  1289.   TWMTimeChange = TWMNoParams;
  1290.  
  1291.   TWMTimer = record
  1292.     Msg: Cardinal;
  1293.     TimerID: Longint;
  1294.     TimerProc: TFarProc;
  1295.     Result: Longint;
  1296.   end;
  1297.  
  1298.   TWMUndo = TWMNoParams;
  1299.  
  1300.   TWMVKeyToItem = TWMCharToItem;
  1301.  
  1302.   TWMVScroll = TWMScroll;
  1303.  
  1304.   TWMVScrollClipboard = record
  1305.     Msg: Cardinal;
  1306.     Viewer: HWND;
  1307.     ScollCode: Word;
  1308.     ThumbPos: Word;
  1309.     Result: Longint;
  1310.   end;
  1311.  
  1312.   TWMWindowPosChanged = TWMWindowPosMsg;
  1313.   TWMWindowPosChanging = TWMWindowPosMsg;
  1314.  
  1315.   TWMWinIniChange = record
  1316.     Msg: Cardinal;
  1317.     Unused: Integer;
  1318.     Section: PChar;
  1319.     Result: Longint;
  1320.   end;
  1321.  
  1322.   TWMHelp = record
  1323.     Msg: Cardinal;
  1324.     Unused: Integer;
  1325.     HelpInfo: PHelpInfo;
  1326.     Result: Longint;
  1327.   end;
  1328.  
  1329. implementation
  1330.  
  1331. end.
  1332.