{"id":456,"date":"2008-05-05T10:14:21","date_gmt":"2008-05-05T10:14:21","guid":{"rendered":"http:\/\/6teen.ru\/?p=711"},"modified":"2008-05-05T10:14:21","modified_gmt":"2008-05-05T10:14:21","slug":"824","status":"publish","type":"post","link":"http:\/\/pblog.ru\/lab\/?p=456","title":{"rendered":"\u0421\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u0433\u043b\u0430\u0432\u043d\u043e\u0433\u043e \u043c\u0435\u043d\u044e \u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0430\u043c\u0438 WinAPI"},"content":{"rendered":"<p>\u0421\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u0433\u043b\u0430\u0432\u043d\u043e\u0433\u043e \u043c\u0435\u043d\u044e \u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0430\u043c\u0438 WinAPI<br \/>\n<!--more--><\/p>\n<pre class=\"alt2\" style=\"margin:0px; padding:6px; border:1px inset; width:580px; height:320px; overflow:auto\"><div>\u0421\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u0433\u043b\u0430\u0432\u043d\u043e\u0433\u043e \u043c\u0435\u043d\u044e \u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0430\u043c\u0438 WinAPI\n\n\u0421\u0435\u0433\u043e\u0434\u043d\u044f \u043c\u044b \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0432 \u043d\u0430\u0448\u0435 \u043c\u0438\u043d\u0438\u043c\u0430\u043b\u044c\u043d\u043e\u0435 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u0433\u043b\u0430\u0432\u043d\u043e\u0435 \u043c\u0435\u043d\u044e. \u041d\u043e \u043f\u0440\u0435\u0436\u0434\u0435 \u0440\u0430\u0441\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 api \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u043d\u0438\u043c.\n\ncreatemenu\nfunction createmenu: hmenu; \u0412 \u0441\u043b\u0443\u0447\u0430\u0435 \u0443\u0441\u043f\u0435\u0448\u043d\u043e\u0433\u043e \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f, \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u0434\u0435\u0441\u043a\u0440\u0438\u043f\u0442\u043e\u0440 \u0441\u043e\u0437\u0434\u0430\u043d\u043d\u043e\u0433\u043e \u043c\u0435\u043d\u044e, \u0438\u043d\u0430\u0447\u0435 \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 0.\n\ncreatepopupmenu\nfunction createpopupmenu: hmenu; \u041a\u0430\u043a \u0438 \u0432 \u0441\u043b\u0443\u0447\u0430\u0435 \u0441 createmenu, \u043f\u043e\u0441\u043b\u0435 \u0443\u0441\u043f\u0435\u0448\u043d\u043e\u0433\u043e \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f, \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u0434\u0435\u0441\u043a\u0440\u0438\u043f\u0442\u043e\u0440 \u0441\u043e\u0437\u0434\u0430\u043d\u043d\u043e\u0433\u043e \u043c\u0435\u043d\u044e, \u0438\u043d\u0430\u0447\u0435 \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 0.\n\nappendmenu\nfunction appendmenu( hmenu: hmenu; uflags, uidnewitem: uint; lpnewitem: pchar ): bool; \u0424\u0443\u043d\u043a\u0446\u0438\u044f appendmenu \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u0442 \u043d\u043e\u0432\u044b\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 (\u043f\u0443\u043d\u043a\u0442) \u043a \u043a\u043e\u043d\u0446\u0443 \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0438 \u043c\u0435\u043d\u044e, \u0440\u0430\u0441\u043a\u0440\u044b\u0432\u0430\u044e\u0449\u0435\u0433\u043e\u0441\u044f \u043c\u0435\u043d\u044e \u0438\u043b\u0438 \u043f\u043e\u0434\u043c\u0435\u043d\u044e. \u042d\u0442\u0443 \u0444\u0443\u043d\u043a\u0446\u0438\u044e \u043c\u043e\u0436\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c, \u0447\u0442\u043e\u0431\u044b \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u043d\u0438\u0435, \u043f\u043e\u044f\u0432\u043b\u0435\u043d\u0438\u0435, \u0438 \u043f\u043e\u0432\u0435\u0434\u0435\u043d\u0438\u0435 \u043f\u0443\u043d\u043a\u0442\u0430 \u043c\u0435\u043d\u044e. hmenu \u0418\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u0441\u0442\u0440\u043e\u043a\u0438 \u043c\u0435\u043d\u044e, \u0440\u0430\u0441\u043a\u0440\u044b\u0432\u0430\u044e\u0449\u0435\u0435\u0441\u044f \u043c\u0435\u043d\u044e \u0438\u043b\u0438 \u043f\u043e\u0434\u043c\u0435\u043d\u044e, \u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u0431\u0443\u0434\u0435\u0442 \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u043e. uflags \u041e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442 \u0444\u043b\u0430\u0436\u043a\u0438, \u0443\u043f\u0440\u0430\u0432\u043b\u044f\u044e\u0449\u0438\u0435 \u043f\u043e\u044f\u0432\u043b\u0435\u043d\u0438\u0435\u043c \u0438 \u043f\u043e\u0432\u0435\u0434\u0435\u043d\u0438\u0435\u043c \u043d\u043e\u0432\u043e\u0433\u043e \u043f\u0443\u043d\u043a\u0442\u0430 \u043c\u0435\u043d\u044e. \u042d\u0442\u043e\u0442 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u043a\u043e\u043c\u0431\u0438\u043d\u0430\u0446\u0438\u044f \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439. uidnewitem \u041e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442 \u0438\u043b\u0438 \u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043d\u043e\u0432\u043e\u0433\u043e \u043f\u0443\u043d\u043a\u0442\u0430 \u043c\u0435\u043d\u044e \u0438\u043b\u0438, \u0435\u0441\u043b\u0438 uflags \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d \u0432 mf_popup, \u0434\u0435\u0441\u043a\u0440\u0438\u043f\u0442\u043e\u0440 \u0440\u0430\u0441\u043a\u0440\u044b\u0432\u0430\u044e\u0449\u0435\u0433\u043e\u0441\u044f \u043c\u0435\u043d\u044e \u0438\u043b\u0438 \u043f\u043e\u0434\u043c\u0435\u043d\u044e. lpnewitem \u041e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442 \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u043d\u0438\u0435 \u043d\u043e\u0432\u043e\u0433\u043e \u043f\u0443\u043d\u043a\u0442\u0430 \u043c\u0435\u043d\u044e.\n\ninsertmenu\nfunction appendmenu( hmenu: hmenu; uposition, uflags, uidnewitem: uint; lpnewitem: pchar ): bool; \u0424\u0443\u043d\u043a\u0446\u0438\u044f insertmenu \u0432\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442 \u043d\u043e\u0432\u044b\u0439 \u043f\u0443\u043d\u043a\u0442 \u0432 \u043c\u0435\u043d\u044e, \u043f\u0435\u0440\u0435\u043c\u0435\u0449\u0430\u044f \u0434\u0440\u0443\u0433\u0438\u0435 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u044b \u043c\u0435\u043d\u044e \u0432\u043d\u0438\u0437. \u041f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u044d\u0442\u043e\u0439 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0442\u0435 \u0436\u0435, \u0447\u0442\u043e \u0438 \u0443 appendmenu, \u0437\u0430 \u043e\u0434\u043d\u0438\u043c \u0438\u0441\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u0435\u043c. uposition \u041e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442 \u043c\u0435\u0441\u0442\u043e, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u0434\u043e\u043b\u0436\u0435\u043d \u0431\u044b\u0442\u044c \u0432\u0441\u0442\u0430\u0432\u043b\u0435\u043d \u043d\u043e\u0432\u044b\u0439 \u043f\u0443\u043d\u043a\u0442 \u043c\u0435\u043d\u044e.\n\nsetmenu\nfunction setmenu( hwnd: hwnd; hmenu: hmenu ): bool; \u0424\u0443\u043d\u043a\u0446\u0438\u044f setmenu \u0441\u0432\u044f\u0437\u044b\u0432\u0430\u0435\u043c \u043d\u043e\u0432\u043e\u0435 \u043c\u0435\u043d\u044e \u0441 \u043e\u043a\u043d\u043e\u043c. hwnd \u0418\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043e\u043a\u043d\u0430, \u043a\u043e\u0442\u043e\u0440\u043e\u043c\u0443 \u0434\u043e\u043b\u0436\u043d\u043e \u0431\u044b\u0442\u044c \u043d\u0430\u0437\u043d\u0430\u0447\u0435\u043d\u043e \u043d\u043e\u0432\u043e\u0435 \u043c\u0435\u043d\u044e. hmenu \u0418\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043c\u0435\u043d\u044e, \u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u0434\u043e\u043b\u0436\u043d\u043e \u0431\u044b\u0442\u044c \u043d\u0430\u0437\u043d\u0430\u0447\u0435\u043d\u043e \u043e\u043a\u043d\u0443. \u0415\u0441\u043b\u0438 \u044d\u0442\u043e\u0442 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u043d\u0443\u043b\u0435\u0432\u043e\u0439, \u0442\u0435\u043a\u0443\u0449\u0435\u0435 \u043c\u0435\u043d\u044e \u043e\u043a\u043d\u0430 \u0443\u0434\u0430\u043b\u044f\u0435\u0442\u0441\u044f.\n\ndrawmenubar\nfunction drawmenubar( hwnd: hwnd ): bool; \u0424\u0443\u043d\u043a\u0446\u0438\u044f drawmenubar \u043f\u0435\u0440\u0435\u0440\u0438\u0441\u043e\u0432\u044b\u0432\u0430\u0435\u0442 \u0441\u0442\u0440\u043e\u043a\u0443 \u043c\u0435\u043d\u044e \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u043e\u0433\u043e \u043e\u043a\u043d\u0430. hwnd \u0418\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043e\u043a\u043d\u0430, \u0447\u044c\u044f \u0441\u0442\u0440\u043e\u043a\u0430 \u043c\u0435\u043d\u044e \u043d\u0443\u0436\u0434\u0430\u0435\u0442\u0441\u044f \u0432 \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u0438.\n\nenablemenuitem\nfunction enablemenuitem( hmenu: hmenu; uidenableitem, uenable: uint ): bool; \u0424\u0443\u043d\u043a\u0446\u0438\u044f enablemenuitem \u0432\u043a\u043b\u044e\u0447\u0430\u0435\u0442\/\u043e\u0442\u043a\u043b\u044e\u0447\u0430\u0435\u0442 \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u044b\u0439 \u043f\u0443\u043d\u043a\u0442 \u043c\u0435\u043d\u044e. hmenu \u0418\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043c\u0435\u043d\u044e. uidenableitem \u041e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442 \u043f\u0443\u043d\u043a\u0442 \u043c\u0435\u043d\u044e, \u0441\u043e\u0441\u0442\u043e\u044f\u043d\u0438\u0435 \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u043d\u0443\u0436\u043d\u043e \u0438\u0437\u043c\u0435\u043d\u0438\u0442\u044c. uenable \u041e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442 \u0444\u043b\u0430\u0436\u043a\u0438, \u0443\u043f\u0440\u0430\u0432\u043b\u044f\u044e\u0449\u0438\u0435 \u0441\u043e\u0441\u0442\u043e\u044f\u043d\u0438\u0435\u043c \u043f\u0443\u043d\u043a\u0442\u0430 \u043c\u0435\u043d\u044e.\n\ncheckmenuitem\nfunction checkmenuitem( hmenu: hmenu; uidenableitem, uenable: uint ): bool; \u0424\u0443\u043d\u043a\u0446\u0438\u044f checkmenuitem \u043f\u043e\u043c\u0435\u0447\u0430\u0435\u0442 \u043f\u0443\u043d\u043a\u0442 \u043c\u0435\u043d\u044e \u0438\u043b\u0438 \u0441\u043d\u0438\u043c\u0430\u0435\u0442 \u043f\u043e\u043c\u0435\u0442\u043a\u0443 (\u043f\u043e\u043c\u0435\u0442\u043a\u0430 \u0432 \u0432\u0438\u0434\u0435 \u0433\u0430\u043b\u043e\u0447\u043a\u0438). hmenu \u0418\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u043c\u0435\u043d\u044e. uidcheckitem \u041e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442 \u043f\u0443\u043d\u043a\u0442 \u043c\u0435\u043d\u044e, \u0447\u0435\u0439 \u0430\u0442\u0440\u0438\u0431\u0443\u0442 \u043f\u043e\u043c\u0435\u0442\u043a\u0438 \u0434\u043e\u043b\u0436\u0435\u043d \u0431\u044b\u0442\u044c \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d \u0432 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0438\u0438 \u0441\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435\u043c \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 ucheck. ucheck \u041e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442 \u0444\u043b\u0430\u0436\u043a\u0438, \u0443\u043f\u0440\u0430\u0432\u043b\u044f\u044e\u0449\u0438\u0435 \u0441\u043e\u0441\u0442\u043e\u044f\u043d\u0438\u0435\u043c \u043f\u0443\u043d\u043a\u0442\u0430 \u043c\u0435\u043d\u044e.\n\n\u0411\u043e\u043b\u0435\u0435 \u043f\u043e\u043b\u043d\u0443\u044e \u0438 \u043f\u043e\u0434\u0440\u043e\u0431\u043d\u0443\u044e \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u0441\u043c\u043e\u0442\u0440\u0438\u0442\u0435 \u0432 \u0445\u044d\u043b\u043f\u0435. \u0414\u0435\u043b\u0430\u044f \u044d\u0442\u0443 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443, \u044f \u043d\u0430\u0448\u0435\u043b \u043f\u0430\u0440\u0443 \u0441\u043f\u043e\u0441\u043e\u0431\u043e\u0432 \u0441\u043e\u0437\u0434\u0430\u0442\u044c \u043c\u0435\u043d\u044e (\u043e\u043d\u0438 \u043d\u0435 \u043e\u0447\u0435\u043d\u044c \u0441\u0438\u043b\u044c\u043d\u043e \u043e\u0442\u043b\u0438\u0447\u0430\u044e\u0442\u0441\u044f \u0434\u0440\u0443\u0433 \u043e\u0442 \u0434\u0440\u0443\u0433\u0430, \u043d\u043e \u043e\u0431\u0430 \u0438\u043c\u0435\u044e\u0442 \u043f\u0440\u0430\u0432\u043e \u043d\u0430 \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u043e\u0432\u0430\u043d\u0438\u0435). \u041d\u0430 \u043f\u0435\u0440\u0432\u043e\u043c \u0441\u043f\u043e\u0441\u043e\u0431\u0435 \u044f \u043e\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u044e\u0441\u044c \u043f\u043e\u043f\u043e\u0434\u0440\u043e\u0431\u043d\u0435\u0435, \u0430, \u0433\u043e\u0432\u043e\u0440\u044f \u043e \u0432\u0442\u043e\u0440\u043e\u043c, \u043f\u0440\u043e\u0441\u0442\u043e \u0441\u043a\u0430\u0436\u0443, \u0447\u0435\u043c \u043e\u043d \u043e\u0442\u043b\u0438\u0447\u0430\u0435\u0442\u0441\u044f \u043e\u0442 \u043f\u0435\u0440\u0432\u043e\u0433\u043e.\n\n\u0413\u043b\u0430\u0432\u043d\u043e\u0435 \u043c\u0435\u043d\u044e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b, \u044d\u0442\u043e \u0441\u0442\u0440\u043e\u043a\u0430, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0440\u0430\u0441\u043f\u043e\u043b\u0430\u0433\u0430\u0435\u0442\u0441\u044f \u0432 \u0432\u0435\u0440\u0445\u043d\u0435\u0439 \u0447\u0430\u0441\u0442\u0438 \u0444\u043e\u0440\u043c\u044b. \u041e\u043d\u0430 \u0441\u043e\u0441\u0442\u043e\u0438\u0442 \u0438\u0437 \u043f\u0443\u043d\u043a\u0442\u043e\u0432, \u043d\u0430\u0436\u0430\u0442\u0438\u0435 \u043d\u0430 \u043b\u044e\u0431\u043e\u0439 \u0438\u0437 \u043d\u0438\u0445 \u043f\u0440\u0438\u0432\u0435\u0434\u0435\u0442 \u043a \u0440\u0430\u0441\u043a\u0440\u044b\u0442\u0438\u044e \u043f\u043e\u0434\u043c\u0435\u043d\u044e, \u043f\u0440\u0438\u043d\u0430\u0434\u043b\u0435\u0436\u0430\u0449\u0435\u0433\u043e \u0434\u0430\u043d\u043d\u043e\u043c\u0443 \u043f\u0443\u043d\u043a\u0442\u0443. \u042d\u0442\u043e \u0432\u0441\u043f\u043b\u044b\u0432\u0430\u044e\u0449\u0435\u0435 \u043c\u0435\u043d\u044e \u0432 windows \u043d\u0430\u0437\u044b\u0432\u0430\u0435\u0442\u0441\u044f popupmenu. \u041e\u0431\u0440\u0430\u0442\u0438\u0442\u0435 \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435, \u043f\u043e\u043d\u044f\u0442\u0438\u0435 popupmenu \u0432 delphi \u0438 windows \u0440\u0430\u0437\u043b\u0438\u0447\u0430\u044e\u0442\u0441\u044f. \u0412 windows popupmenu - \u044d\u0442\u043e \u043f\u043e\u0434\u043c\u0435\u043d\u044e, \u043f\u0440\u0438\u043d\u0430\u0434\u043b\u0435\u0436\u0430\u0449\u0435\u0435 \u0434\u0440\u0443\u0433\u043e\u043c\u0443 \u043f\u0443\u043d\u043a\u0442\u0443 \u043c\u0435\u043d\u044e (\u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043e\u0442\u043c\u0435\u0447\u0430\u0435\u0442\u0441\u044f \u0442\u0440\u0435\u0443\u0433\u043e\u043b\u044c\u043d\u0438\u043a\u043e\u043c \u0441\u043f\u0440\u0430\u0432\u0430 \u043e\u0442 \u0442\u0435\u043a\u0441\u0442\u0430 \u043f\u0443\u043d\u043a\u0442\u0430) \u0438\u043b\u0438 \u043e\u0434\u043d\u043e\u043c\u0443 \u0438\u0437 \u043f\u0443\u043d\u043a\u0442\u043e\u0432 \u0433\u043b\u0430\u0432\u043d\u043e\u0433\u043e \u043c\u0435\u043d\u044e. \u0412 delphi popupmenu - \u044d\u0442\u043e \u043c\u0435\u043d\u044e, \u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u043c\u043e\u0436\u0435\u0442 \"\u0432\u0441\u043f\u043b\u044b\u0432\u0430\u0442\u044c\" \u0432 \u043b\u044e\u0431\u043e\u0439 \u0442\u043e\u0447\u043a\u0435 \u0444\u043e\u0440\u043c\u044b. \u041e\u0441\u043e\u0437\u043d\u0430\u0432 \u0432\u044b\u0448\u0435\u0441\u043a\u0430\u0437\u0430\u043d\u043d\u043e\u0435, \u043f\u0440\u0438\u0441\u0442\u0443\u043f\u0430\u0435\u043c \u043a \u0440\u0430\u0431\u043e\u0442\u0435.\n\n\u041e\u0442\u043a\u0440\u043e\u0435\u043c \u0448\u0430\u0431\u043b\u043e\u043d, \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u043d\u044b\u0439 \u0432 \u043f\u0440\u043e\u0448\u043b\u044b\u0439 \u0440\u0430\u0437, \u0438 \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u043c \u0441\u043f\u0438\u0441\u043e\u043a \u043a\u043e\u043d\u0441\u0442\u0430\u043d\u0442 \u0438 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0445\n\nconst\nwndclass = ?twinapiwnd?;\nwndcaption = ?\u0413\u043b\u0430\u0432\u043d\u043e\u0435 \u043c\u0435\u043d\u044e \u0444\u043e\u0440\u043c\u044b \u043d\u0430 win api?;\nmfile = 100;\nmedit = 200;\nmcheck = 300;\nsexit = 101;\nscopy = 201;\nscut = 202;\nspaste = 203;\nsselect = 301;\nsnextmenu = 302;\nssecondlevel = 311;\nseparator = 1;\n\nvar\nwc: twndclassex;\nwnd: hwnd;\nmsg: tmsg;\nmainmenu: hmenu;\nsubmenufile: hmenu;\nsubmenuedit: hmenu;\nsubmenucheck: hmenu;\nsubmenusecondlevel: hmenu;\ncheck: boolean = false;\n\n\u0421\u043d\u0430\u0447\u0430\u043b\u0430 \u0440\u0430\u0437\u0431\u0435\u0440\u0435\u043c\u0441\u044f \u0441 \u043a\u043e\u043d\u0441\u0442\u0430\u043d\u0442\u0430\u043c\u0438. \u041a\u0430\u0436\u0434\u044b\u0439 \u043f\u0443\u043d\u043a\u0442 \u043c\u0435\u043d\u044e \u0434\u043e\u043b\u0436\u0435\u043d \u0438\u043c\u0435\u0442\u044c \u0441\u0432\u043e\u0439 \u0443\u043d\u0438\u043a\u0430\u043b\u044c\u043d\u044b\u0439 \u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0446\u0438\u043e\u043d\u043d\u044b\u0439 \u043d\u043e\u043c\u0435\u0440. \u0422\u0430\u043a \u043a\u0430\u043a \u0438\u043c\u0435\u043d\u043d\u043e \u043f\u043e \u044d\u0442\u0438\u043c \u043d\u043e\u043c\u0435\u0440\u0430\u043c \u043c\u044b \u0438 \u0431\u0443\u0434\u0435\u043c \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u0441 \u043c\u0435\u043d\u044e, \u0443\u0434\u043e\u0431\u043d\u0435\u0435 \u0432\u0441\u0435\u0433\u043e \u043e\u0444\u043e\u0440\u043c\u0438\u0442\u044c \u0438\u0445 \u043a\u0430\u043a \u043a\u043e\u043d\u0441\u0442\u0430\u043d\u0442\u044b. \u0418\u0434\u0435\u044f \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0430\u044f. \u0412 \u0433\u043b\u0430\u0432\u043d\u043e\u043c \u043c\u0435\u043d\u044e \u0431\u0443\u0434\u0435\u0442 3 \u043f\u0443\u043d\u043a\u0442\u0430: menu, edit \u0438 check. \u041a\u043e\u043d\u0441\u0442\u0430\u043d\u0442\u044b \u0434\u043b\u044f \u043d\u0435\u0433\u043e \u043d\u0430\u0447\u0438\u043d\u0430\u044e\u0442\u0441\u044f \u0441 \u0431\u0443\u043a\u0432\u044b m \u0438 \u0438\u043c\u0435\u044e\u0442 \u043d\u043e\u043c\u0435\u0440\u0430 100, 200 \u0438 300 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0435\u043d\u043d\u043e. \u041a\u0430\u0436\u0434\u043e\u043c\u0443 \u0438\u0437 \u044d\u0442\u0438\u0445 \u043f\u0443\u043d\u043a\u0442\u043e\u0432 \u0431\u0443\u0434\u0435\u0442 \u0441\u043e\u043f\u043e\u0441\u0442\u0430\u0432\u043b\u0435\u043d\u043e \u0441\u0432\u043e\u0435 \u043f\u043e\u0434\u043c\u0435\u043d\u044e. \u041a\u043e\u043d\u0441\u0442\u0430\u043d\u0442\u044b \u0434\u043b\u044f \u043d\u0438\u0445 \u043d\u0430\u0447\u0438\u043d\u0430\u044e\u0442\u0441\u044f \u0441 \u0431\u0443\u043a\u0432\u044b s \u0438 \u043d\u043e\u043c\u0435\u0440\u0443\u044e\u0442\u0441\u044f \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c: \u0442\u0435, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043e\u0442\u043d\u043e\u0441\u044f\u0442\u0441\u044f \u043a \u043f\u0435\u0440\u0432\u043e\u043c\u0443 \u043f\u0443\u043d\u043a\u0442\u0443, \u043d\u0430\u0447\u0438\u043d\u0430\u044e\u0442\u0441\u044f \u0441\u043e 100+1, \u0442\u0435, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043e\u0442\u043d\u043e\u0441\u044f\u0442\u0441\u044f \u043a\u043e \u0432\u0442\u043e\u0440\u043e\u043c\u0443 \u043f\u0443\u043d\u043a\u0442\u0443, \u043d\u0430\u0447\u0438\u043d\u0430\u044e\u0442\u0441\u044f \u0441 200+1, \u043d\u0443 \u0438 \u043f\u043e \u0430\u043d\u0430\u043b\u043e\u0433\u0438\u0438, \u0442\u0435, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043e\u0442\u043d\u043e\u0441\u044f\u0442\u0441\u044f \u043a \u0442\u0440\u0435\u0442\u044c\u0435\u043c\u0443 \u043f\u0443\u043d\u043a\u0442\u0443, \u043d\u0430\u0447\u0438\u043d\u0430\u044e\u0442\u0441\u044f \u0441 300+1. \u0412 \u0442\u0440\u0435\u0442\u044c\u0435\u043c \u043f\u0443\u043d\u043a\u0442\u0435 \u0431\u0443\u0434\u0435\u0442 \u043f\u043e\u0434\u043c\u0435\u043d\u044e \u0432\u0442\u043e\u0440\u043e\u0433\u043e \u0443\u0440\u043e\u0432\u043d\u044f, \u043a\u043e\u043d\u0441\u0442\u0430\u043d\u0442\u0430 \u0434\u043b\u044f \u043d\u0435\u0433\u043e \u0440\u0430\u0432\u043d\u0430 300+10+1. \u041e\u0442\u0434\u0435\u043b\u044c\u043d\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0438\u043c\u0435\u0435\u0442 \u043a\u043e\u043d\u0441\u0442\u0430\u043d\u0442\u0430 separator, \u044d\u0442\u043e \u043f\u0440\u043e\u0441\u0442\u043e \u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044c \u043c\u0435\u0436\u0434\u0443 \u043f\u0443\u043d\u043a\u0442\u0430\u043c\u0438 \u043f\u043e\u0434\u043c\u0435\u043d\u044e.\n\n\u041f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043a \u0440\u0430\u0437\u0434\u0435\u043b\u0443 var. \u0417\u0434\u0435\u0441\u044c \u043f\u043e\u044f\u0432\u0438\u043b\u043e\u0441\u044c 5 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0445 \u0442\u0438\u043f\u0430 hmenu, \u043e\u043d\u0438 \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u0442 hendle \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0435\u0433\u043e \u043c\u0435\u043d\u044e (\u043a\u0430\u043a\u043e\u0433\u043e, \u043f\u043e\u043d\u044f\u0442\u043d\u043e \u0438\u0437 \u0438\u0445 \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u044f). \u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f check \u043f\u043e\u043a\u0430\u0437\u044b\u0432\u0430\u0435\u0442, \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d \u0438\u043b\u0438 \u0441\u0431\u0440\u043e\u0448\u0435\u043d \u043f\u0443\u043d\u043a\u0442 \u043c\u0435\u043d\u044e (\u0447\u0438\u0442\u0430\u0439\u0442\u0435 \u0434\u0430\u043b\u044c\u0448\u0435, \u0438 \u0432\u0441\u0435 \u043f\u043e\u0439\u043c\u0435\u0442\u0435).\n\n\u041f\u0440\u0438 \u0434\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u0438\u0438 \u043d\u043e\u0432\u043e\u0433\u043e \u043f\u0443\u043d\u043a\u0442\u0430 \u043f\u0440\u0438\u0445\u043e\u0434\u0438\u0442\u0441\u044f \u0432\u044b\u043f\u043e\u043b\u043d\u0438\u0442\u044c \u0440\u044f\u0434 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0439, \u0432 \u0442\u043e\u043c \u0447\u0438\u0441\u043b\u0435 \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u044e \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u044b menuiteminfo. \u0422\u0430\u043a \u043a\u0430\u043a \u044d\u0442\u0438 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u044f \u043d\u0443\u0436\u043d\u043e \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u0438\u0442\u044c \u043f\u0440\u0438 \u0434\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u0438\u0438 \u043a\u0430\u0436\u0434\u043e\u0433\u043e \u043f\u0443\u043d\u043a\u0442\u0430, \u0447\u0442\u043e\u0431\u044b \u0438\u0437\u0431\u0430\u0432\u0438\u0442\u044c\u0441\u044f \u043e\u0442 \u0438\u0437\u0431\u044b\u0442\u043e\u0447\u043d\u043e\u0441\u0442\u0438 \u043a\u043e\u0434\u0430, \u043e\u0444\u043e\u0440\u043c\u0438\u043c \u044d\u0442\u0438 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u044f \u0432 \u0432\u0438\u0434\u0435 \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u043e\u0439 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b.\n\nfunction createmenuitem( hmenu, submenu: hmenu; cap: pchar;\n_uid, _wid: uint; sep: boolean ): boolean;\nvar\nmi: menuiteminfo;\nbegin\nwith mi do\nbegin\ncbsize := sizeof( mi );\nfmask := miim_state or miim_type or miim_submenu or miim_id;\nif not sep then\nftype := mft_string\nelse\nftype := mft_separator;\nfstate := mfs_enabled;\nwid := _wid;\nhsubmenu := submenu;\ndwitemdata := 0;\ndwtypedata := cap;\ncch := sizeof( cap );\nend;\nresult := insertmenuitem( hmenu, _uid, false, mi );\nend;\n\n\u041f\u043e\u044f\u0441\u043d\u044e \u0432\u0445\u043e\u0434\u043d\u044b\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u0444\u0443\u043d\u043a\u0446\u0438\u0438. hmenu - \u043c\u0435\u043d\u044e, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043d\u043e\u0432\u044b\u0439 \u043f\u0443\u043d\u043a\u0442; submenu - \u0441\u0432\u044f\u0437\u0430\u043d\u043d\u043e\u0435 \u0441 \u044d\u0442\u0438\u043c \u043f\u0443\u043d\u043a\u0442\u043e\u043c \u043f\u043e\u0434\u043c\u0435\u043d\u044e (\u0435\u0441\u043b\u0438 \u043e\u043d\u043e \u0435\u0441\u0442\u044c); cap - \u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043e\u043a \u043d\u043e\u0432\u043e\u0433\u043e \u043f\u0443\u043d\u043a\u0442\u0430; _uid - \u0432\u0441\u0435\u0433\u0434\u0430 0 (\u044d\u0442\u043e\u0442 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u0432 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 insertmenuitem); _wid - \u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440, \u0441\u0432\u044f\u0437\u0430\u043d\u043d\u044b\u0439 \u0441 \u0434\u0430\u043d\u043d\u044b\u043c \u043f\u0443\u043d\u043a\u0442\u043e\u043c; sep - \u043f\u0440\u0438\u0437\u043d\u0430\u043a, \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043b\u0438 \u043d\u043e\u0432\u044b\u0439 \u043f\u0443\u043d\u043a\u0442 \u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u0435\u043c \u0438\u043b\u0438 \u043d\u0435\u0442.\n\n\u041d\u0430\u0448\u0435 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u0434\u043e\u043b\u0436\u043d\u043e \u0440\u0435\u0430\u0433\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u043d\u0430 \u0432\u044b\u0431\u043e\u0440 \u0442\u043e\u0433\u043e \u0438\u043b\u0438 \u0438\u043d\u043e\u0433\u043e \u043f\u0443\u043d\u043a\u0442\u0430 \u043c\u0435\u043d\u044e. \u0414\u043e\u043f\u043e\u043b\u043d\u0438\u043c \u043e\u043a\u043e\u043d\u043d\u0443\u044e \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c:\n\nfunction windowproc( wnd: hwnd; msg: uint; wparam: wparam; lparam: lparam ): lresult; stdcall;\nbegin\ncase msg of\nwm_destroy: begin\npostquitmessage( 0 );\nresult := 0;\nexit;\nend;\nwm_command: begin\ncase loword( wparam ) of\nsexit: postmessage( wnd, wm_quit, 0, 0 );\nscopy: messagebox( wnd, ?\u041f\u0443\u043d\u043a\u0442: copy?, ?\u041c\u0435\u043d\u044e: edit?, 0 );\nscut: messagebox( wnd, ?\u041f\u0443\u043d\u043a\u0442: cut?, ?\u041c\u0435\u043d\u044e: edit?, 0 );\nspaste: messagebox( wnd, ?\u041f\u0443\u043d\u043a\u0442: paste?, ?\u041c\u0435\u043d\u044e: edit?, 0 );\nsselect: begin\nif check then\ncheckmenuitem( submenucheck, sselect, mf_unchecked )\nelse\ncheckmenuitem( submenucheck, sselect, mf_checked );\ncheck := not check;\nend;\nssecondlevel: messagebeep( mb_iconhand );\nend;\nend;\nelse\nresult := defwindowproc( wnd, msg, wparam, lparam );\nend;\nend;\n\n\u041f\u0440\u0438 \u0432\u044b\u0431\u043e\u0440\u0435 \u043f\u0443\u043d\u043a\u0442\u0430 exit (\u043a\u043e\u043d\u0441\u0442\u0430\u043d\u0442\u0430 sexit) \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u0431\u0443\u0434\u0435\u0442 \u0437\u0430\u043a\u0440\u044b\u0442\u0430. \u0412\u044b\u0431\u043e\u0440 \u043f\u0443\u043d\u043a\u0442\u043e\u0432 copy, cut, paste (\u043a\u043e\u043d\u0441\u0442\u0430\u043d\u0442\u044b scopy, scut \u0438 spaste \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0435\u043d\u043d\u043e) \u043f\u0440\u0438\u0432\u0435\u0434\u0435\u0442 \u043a \u043f\u043e\u044f\u0432\u043b\u0435\u043d\u0438\u044e \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f, \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0435\u0433\u043e \u0432\u044b\u0431\u0440\u0430\u043d\u043d\u043e\u043c\u0443 \u043f\u0443\u043d\u043a\u0442\u0443. \u041f\u0443\u043d\u043a\u0442 select (\u043a\u043e\u043d\u0441\u0442\u0430\u043d\u0442\u0430 sselect) \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u0430\u043d\u0430\u043b\u043e\u0433\u0438\u0447\u043d\u043e tcheckbox, \u0442\u043e \u0435\u0441\u0442\u044c \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d \u0438\u043b\u0438 \u0441\u0431\u0440\u043e\u0448\u0435\u043d. \u041f\u0440\u0438 \u0432\u044b\u0431\u043e\u0440\u0435 \u043f\u0443\u043d\u043a\u0442\u0430 beep (\u043a\u043e\u043d\u0441\u0442\u0430\u043d\u0442\u0430 ssecondlevel) \u043c\u044b \u0443\u0441\u043b\u044b\u0448\u0438\u043c \u0437\u0432\u0443\u043a\u043e\u0432\u043e\u0439 \u0441\u0438\u0433\u043d\u0430\u043b.\n\n\u0422\u0435\u043f\u0435\u0440\u044c \u0434\u043b\u044f \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u043c\u0435\u043d\u044e \u0432\u0441\u0435 \u0433\u043e\u0442\u043e\u0432\u043e. \u041f\u0440\u0438\u0441\u0442\u0443\u043f\u0430\u0435\u043c.\n\nbegin\n\/\/ \u0421\u043e\u0437\u0434\u0430\u0435\u043c \u043c\u0435\u043d\u044e\nmainmenu := createmenu;\n\/\/ \u0417\u0430\u043f\u043e\u043b\u043d\u044f\u0435\u043c \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0443 twndclassex\nwith wc do\nbegin\ncbsize := sizeof( wc );\nstyle := cs_hredraw or cs_vredraw;\nlpfnwndproc := @windowproc;\ncbclsextra := 0;\ncbwndextra := 0;\nhinstance := hinstance;\nhicon := loadicon( 0, idi_application );\nhcursor := loadcursor( 0, idc_arrow );\nhbrbackground := color_window;\nlpszmenuname := @mainmenu;\nlpszclassname := wndclass;\nend;\n\/\/ \u0420\u0435\u0433\u0438\u0441\u0442\u0440\u0438\u0440\u0443\u0435\u043c \u043a\u043b\u0430\u0441\u0441 \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435\nregisterclassex( wc );\n\/\/ \u0421\u043e\u0437\u0434\u0430\u0435\u043c \u043f\u043e\u0434\u043c\u0435\u043d\u044e\nsubmenufile := createpopupmenu;\nsubmenuedit := createpopupmenu;\nsubmenucheck := createpopupmenu;\nsubmenusecondlevel := createpopupmenu;\n\/\/ \u0421\u043e\u0437\u0434\u0430\u0435\u043c \u043e\u043a\u043d\u043e\nwnd := createwindowex( 0, wndclass, wndcaption, ws_overlappedwindow,\n10, 10, 300, 100, 0, mainmenu, hinstance, nil );\n\/\/ \u0421\u043e\u0437\u0434\u0430\u0435\u043c \u043f\u0443\u043d\u043a\u0442\u044b \u0433\u043b\u0430\u0432\u043d\u043e\u0433\u043e \u043c\u0435\u043d\u044e\ncreatemenuitem( mainmenu, submenufile, ?file?, 0, mfile, false );\ncreatemenuitem( mainmenu, submenuedit, ?edit?, 0, mfile, false );\ncreatemenuitem( mainmenu, submenucheck, ?check?, 0, mfile, false );\n\/\/ \u041f\u043e\u0434\u043c\u0435\u043d\u044e \u0434\u043b\u044f \u043f\u0443\u043d\u043a\u0442\u0430 file\ncreatemenuitem( submenufile, 0, ?exit?, 0, sexit, false );\n\/\/ \u041f\u043e\u0434\u043c\u0435\u043d\u044e \u0434\u043b\u044f \u043f\u0443\u043d\u043a\u0442\u0430 edit\ncreatemenuitem( submenuedit, 0, ?copy?, 0, scopy, false );\ncreatemenuitem( submenuedit, 0, ?cut?, 0, scut, false );\ncreatemenuitem( submenuedit, 0, ??, 0, separator, true );\ncreatemenuitem( submenuedit, 0, ?paste?, 0, spaste, false );\n\/\/ \u041f\u043e\u0434\u043c\u0435\u043d\u044e \u0434\u043b\u044f \u043f\u0443\u043d\u043a\u0442\u0430 check->nextmenu\ncreatemenuitem( submenusecondlevel, 0, ?beep?, 0, ssecondlevel, false );\n\/\/ \u041f\u043e\u0434\u043c\u0435\u043d\u044e \u0434\u043b\u044f \u043f\u0443\u043d\u043a\u0442\u0430 check\ncreatemenuitem( submenucheck, 0, ?select?, 0, sselect, false );\ncreatemenuitem( submenucheck, submenusecondlevel, ?nextmenu?, 0, snextmenu, false );\n\/\/ \u041f\u0435\u0440\u0435\u0440\u0438\u0441\u043e\u0432\u044b\u0432\u0430\u0435\u043c \u043c\u0435\u043d\u044e\ndrawmenubar( wnd );\n\/\/ \u041f\u043e\u043a\u0430\u0437\u044b\u0432\u0430\u0435\u043c \u043e\u043a\u043d\u043e\nshowwindow( wnd, sw_shownormal );\n\n\/\/ \u0426\u0438\u043a\u043b \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0438 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0439\nwhile getmessage( msg, 0, 0, 0 ) do\nbegin\ntranslatemessage( msg );\ndispatchmessage( msg );\nend;\nhalt( msg.wparam );\nend.\n\n\u0420\u0430\u0437\u0431\u0438\u0440\u0430\u0435\u043c\u0441\u044f. \u041f\u0435\u0440\u0432\u044b\u043c \u0434\u0435\u043b\u043e\u043c \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u0433\u043b\u0430\u0432\u043d\u043e\u0435 \u043c\u0435\u043d\u044e. \u0423\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u044c \u043d\u0430 \u043d\u0435\u0433\u043e \u043f\u0440\u0438\u0441\u0432\u0430\u0438\u0432\u0430\u0435\u043c \u043f\u043e\u043b\u044e lpszmenuname \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u044b wc (\u0440\u0430\u043d\u044c\u0448\u0435 \u043e\u043d\u043e \u0431\u044b\u043b\u043e \u0440\u0430\u0432\u043d\u043e nil). \u041f\u043e\u0441\u043b\u0435 \u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0430\u0446\u0438\u0438 \u043a\u043b\u0430\u0441\u0441\u0430 \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043f\u043e\u0434\u043c\u0435\u043d\u044e. \u041f\u0440\u0438 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0438 \u043e\u043a\u043d\u0430, \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 hmenu \u0444\u0443\u043d\u043a\u0446\u0438\u0438 createwindowex \u0440\u0430\u0432\u0435\u043d mainmenu (handle \u0441\u043e\u0437\u0434\u0430\u043d\u043d\u043e\u0433\u043e \u043c\u0435\u043d\u044e, \u0430 \u043d\u0435 0, \u043a\u0430\u043a \u0431\u044b\u043b\u043e \u0432 \u0448\u0430\u0431\u043b\u043e\u043d\u0435). \u041f\u043e\u0441\u043b\u0435 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u0432\u0441\u0435\u0445 \u043f\u0443\u043d\u043a\u0442\u043e\u0432, \u043f\u0435\u0440\u0435\u0440\u0438\u0441\u043e\u0432\u044b\u0432\u0430\u0435\u043c \u043c\u0435\u043d\u044e \u043f\u0440\u0438 \u043f\u043e\u043c\u043e\u0449\u0438 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 drawmenubar.\n\n\u0422\u0435\u043f\u0435\u0440\u044c \u0432\u0442\u043e\u0440\u043e\u0439 \u0441\u043f\u043e\u0441\u043e\u0431 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u043c\u0435\u043d\u044e. \u0417\u0434\u0435\u0441\u044c \u044f \u043f\u0440\u0438\u0432\u0435\u0434\u0443 \u0435\u0433\u043e \u0432 \u0441\u043e\u043a\u0440\u0430\u0449\u0435\u043d\u0438\u0438, \u0438 \u043f\u043e\u044f\u0441\u043d\u044e \u043f\u0440\u043e\u0438\u0437\u0432\u0435\u0434\u0435\u043d\u043d\u044b\u0435 \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044f (\u043f\u043e\u043b\u043d\u044b\u0439 \u0442\u0435\u043a\u0441\u0442 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u0438\u043c\u0435\u0435\u0442\u0441\u044f \u0432 \u0430\u0440\u0445\u0438\u0432\u0435 \u0441 \u043f\u0440\u0438\u043c\u0435\u0440\u0430\u043c\u0438 \u0432 \u043a\u043e\u043d\u0446\u0435 \u0441\u0442\u0430\u0442\u044c\u0438).\n\nbegin\n\/\/ \u0417\u0430\u043f\u043e\u043b\u043d\u044f\u0435\u043c \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0443 twndclassex\nwith wc do\nbegin\n...\nlpszmenuname := nil;\n...\nend;\n...\n\/\/ \u0421\u043e\u0437\u0434\u0430\u0435\u043c \u043c\u0435\u043d\u044e\nmainmenu := createmenu;\n...\nwnd := createwindowex( 0, wndclass, wndcaption, ws_overlappedwindow,\n10, 10, 300, 100, 0, 0, hinstance, nil );\n...\n\/\/ \u0423\u0441\u0442\u043e\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u043c\u0435\u043d\u044e\nsetmenu( wnd, mainmenu );\n...\nend.\n\n\u041f\u043e\u043b\u0435 lpszmenuname \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u044b wc \u043e\u0441\u0442\u0430\u0435\u0442\u0441\u044f \u0440\u0430\u0432\u043d\u044b\u043c nil. \u0413\u043b\u0430\u0432\u043d\u043e\u0435 \u043c\u0435\u043d\u044e \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043f\u043e\u0441\u043b\u0435 \u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0430\u0446\u0438\u0438 \u043a\u043b\u0430\u0441\u0441\u0430 \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435. \u041f\u0440\u0438 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0438 \u043e\u043a\u043d\u0430, \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 hmenu \u0444\u0443\u043d\u043a\u0446\u0438\u0438 createwindowex \u043c\u043e\u0436\u043d\u043e \u043e\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u0440\u0430\u0432\u043d\u044b\u043c 0, \u0442.\u043a. \u0437\u0434\u0435\u0441\u044c \u043c\u044b \u043d\u0435 \u043f\u0435\u0440\u0435\u0440\u0438\u0441\u043e\u0432\u044b\u0432\u0430\u0435\u043c \u043c\u0435\u043d\u044e, \u0430 \u043d\u0430\u0437\u043d\u0430\u0447\u0430\u0435\u043c \u0435\u0433\u043e \u0444\u043e\u0440\u043c\u0435, \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u044e setmenu.\n\n\u0412\u0441\u0435. \u0422\u0435\u043f\u0435\u0440\u044c \u0443 \u043d\u0430\u0448\u0435\u0439 \u0444\u043e\u0440\u043c\u044b \u0435\u0441\u0442\u044c \u043c\u0435\u043d\u044e. \u042d\u0442\u043e \u043e\u043a\u0430\u0437\u0430\u043b\u043e\u0441\u044c \u0441\u043e\u0432\u0441\u0435\u043c \u043d\u0435 \u0441\u043b\u043e\u0436\u043d\u043e. \u0414\u043e \u043d\u043e\u0432\u044b\u0445 \u0432\u0441\u0442\u0440\u0435\u0447, \u0443\u0434\u0430\u0447\u0438 \u0432 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0438.\n\n\u0418\u0441\u0442\u043e\u0447\u043d\u0438\u043a: http:\/\/decoding.narod.ru\/api\/menu\/menu.html\n<\/div><\/pre>\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u0421\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u0433\u043b\u0430\u0432\u043d\u043e\u0433\u043e \u043c\u0435\u043d\u044e \u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0430\u043c\u0438 WinAPI<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[431,454],"tags":[602,1271,835,322],"_links":{"self":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/456"}],"collection":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=456"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/456\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=456"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=456"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=456"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}