{ %opt=-O1 } program testcase; {$MODE DELPHI} const CM_ACTIVATE = $B000; WM_LCL_SOCK_ASYNC = 1024 + $500; WM_QUERYOPEN = 19; WM_NULL = 0; WM_ENTERIDLE = 289; WM_ACTIVATE = 6; WM_DPICHANGED = 736; WM_IME_ENDCOMPOSITION = 270; WM_CANCELMODE = 31; WM_CAPTURECHANGED = 533; WM_CHAR = 258; WM_MENUCHAR = 288; WM_CLOSE = 16; WM_INITMENUPOPUP = 279; WM_MENUSELECT = 287; WM_COMMAND = 273; WM_CTLCOLORMSGBOX = 306; WM_CTLCOLORSTATIC = 312; WM_CLEAR = 771; WM_COPY = 769; WM_CUT = 768; WM_DESTROY = 2; WM_DESTROYCLIPBOARD = 775; WM_DRAWITEM = 43; WM_ENABLE = 10; WM_ERASEBKGND = 20; WM_EXITMENULOOP = 530; WM_GETDLGCODE = 135; WM_HELP = 83; WM_HOTKEY = 786; WM_HSCROLL = 276; WM_VSCROLL = 277; WM_KEYDOWN = 256; WM_KEYUP = 257; WM_KILLFOCUS = 8; WM_LBUTTONDBLCLK = 515; WM_LBUTTONDOWN = 513; WM_LBUTTONUP = 514; WM_RBUTTONDBLCLK = 518; WM_RBUTTONDOWN = 516; WM_RBUTTONUP = 517; WM_MBUTTONDBLCLK = 521; WM_MBUTTONDOWN = 519; WM_MBUTTONUP = 520; WM_XBUTTONDBLCLK = 525; WM_XBUTTONDOWN = 523; WM_XBUTTONUP = 524; WM_MOUSEHOVER = 673; WM_MOUSELEAVE = 675; WM_MOUSEMOVE = 512; WM_MOUSEWHEEL = 522; WM_DROPFILES = 563; WM_NCHITTEST = 132; WM_NCLBUTTONDOWN = 161; WM_NCMOUSEMOVE = 160; WM_NCMOUSEHOVER = 672; WM_NOTIFY = 78; WM_PAINT = 15; WM_PRINTCLIENT = 792; WM_PASTE = 770; WM_CONTEXTMENU = 123; WM_SETCURSOR = 32; WM_SETFOCUS = 7; WM_SHOWWINDOW = 24; WM_SYSCHAR = 262; WM_SYSCOMMAND = 274; WM_SYSKEYDOWN = 260; WM_SYSKEYUP = 261; WM_TIMER = 275; WM_WINDOWPOSCHANGING = 70; WM_WINDOWPOSCHANGED = 71; WM_MEASUREITEM = 44; WM_SETTINGCHANGE = 26; WM_THEMECHANGED = 794; WM_UPDATEUISTATE = 296; WM_IME_COMPOSITION = 271; WM_IME_COMPOSITIONFULL = 644; WM_IME_CONTROL = 643; WM_IME_NOTIFY = 642; WM_IME_REQUEST = 648; WM_IME_SELECT = 645; WM_IME_SETCONTEXT = 641; WM_IME_STARTCOMPOSITION = 269; WM_ACTIVATEAPP = 28; WM_DISPLAYCHANGE = 126; procedure DoError(c : Cardinal); begin writeln('Case ',c); halt(c); end; var Msg: Cardinal; begin Msg := WM_QUERYOPEN; case Msg of WM_NULL: DoError(1); WM_ENTERIDLE: DoError(2); WM_ACTIVATE: DoError(3); WM_DPICHANGED: DoError(4); WM_IME_ENDCOMPOSITION: DoError(5); WM_CANCELMODE: DoError(6); WM_CAPTURECHANGED: DoError(7); WM_CHAR: DoError(8); WM_MENUCHAR: DoError(9); WM_CLOSE: DoError(10); WM_INITMENUPOPUP: DoError(11); WM_MENUSELECT: DoError(12); WM_COMMAND: DoError(13); WM_CTLCOLORMSGBOX..WM_CTLCOLORSTATIC: DoError(14); WM_CLEAR: DoError(15); WM_COPY: DoError(16); WM_CUT: DoError(17); WM_DESTROY: DoError(18); WM_DESTROYCLIPBOARD: DoError(19); WM_DRAWITEM: DoError(20); WM_ENABLE: DoError(21); WM_ERASEBKGND: DoError(22); WM_EXITMENULOOP: DoError(23); WM_GETDLGCODE: DoError(24); WM_HELP: DoError(25); WM_HOTKEY: DoError(26); WM_HSCROLL, WM_VSCROLL: DoError(27); WM_KEYDOWN: DoError(28); WM_KEYUP: DoError(29); WM_KILLFOCUS: DoError(30); WM_LBUTTONDBLCLK: DoError(31); WM_LBUTTONDOWN: DoError(32); WM_LBUTTONUP: DoError(33); WM_RBUTTONDBLCLK: DoError(34); WM_RBUTTONDOWN: DoError(35); WM_RBUTTONUP: DoError(36); WM_MBUTTONDBLCLK: DoError(37); WM_MBUTTONDOWN: DoError(38); WM_MBUTTONUP: DoError(39); WM_XBUTTONDBLCLK: DoError(40); WM_XBUTTONDOWN: DoError(41); WM_XBUTTONUP: DoError(42); WM_MOUSEHOVER: DoError(43); WM_MOUSELEAVE: DoError(44); WM_MOUSEMOVE: DoError(45); WM_MOUSEWHEEL: DoError(46); WM_DROPFILES: DoError(47); WM_NCHITTEST: DoError(48); WM_NCLBUTTONDOWN: DoError(49); WM_NCMOUSEMOVE, WM_NCMOUSEHOVER: DoError(50); WM_NOTIFY: DoError(51); WM_PAINT: DoError(52); WM_PRINTCLIENT: DoError(53); WM_PASTE: DoError(54); WM_CONTEXTMENU: DoError(55); WM_SETCURSOR: DoError(56); CM_ACTIVATE: DoError(57); WM_SETFOCUS: DoError(58); WM_SHOWWINDOW: DoError(59); WM_SYSCHAR: DoError(60); WM_SYSCOMMAND: DoError(61); WM_SYSKEYDOWN: DoError(62); WM_SYSKEYUP: DoError(63); WM_TIMER: DoError(64); WM_WINDOWPOSCHANGING: DoError(65); WM_WINDOWPOSCHANGED: DoError(66); WM_MEASUREITEM: DoError(67); WM_SETTINGCHANGE: DoError(68); WM_THEMECHANGED: DoError(69); WM_UPDATEUISTATE: DoError(70); WM_LCL_SOCK_ASYNC: DoError(71); WM_IME_COMPOSITION, WM_IME_COMPOSITIONFULL, WM_IME_CONTROL, WM_IME_NOTIFY, WM_IME_REQUEST, WM_IME_SELECT, WM_IME_SETCONTEXT, WM_IME_STARTCOMPOSITION: DoError(72); WM_ACTIVATEAPP: DoError(73); WM_DISPLAYCHANGE: DoError(74); end; writeln('Ok'); end.