{"id":241,"date":"2008-05-06T18:07:08","date_gmt":"2008-05-06T18:07:08","guid":{"rendered":"http:\/\/6teen.ru\/?p=74"},"modified":"2008-05-06T18:07:08","modified_gmt":"2008-05-06T18:07:08","slug":"2509","status":"publish","type":"post","link":"http:\/\/pblog.ru\/lab\/?p=241","title":{"rendered":"\u0412\u0441\u0451 \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f\u043c\u0438 \u0432 Windows \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e Delphi"},"content":{"rendered":"<p>\u0412\u0441\u0451 \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f\u043c\u0438 \u0432 Windows \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e Delphi<br \/>\n<!--more--><\/p>\n<pre class=\"alt2\" style=\"margin:0px; padding:6px; border:1px inset; width:580px; height:320px; overflow:auto\"><div>\u0412\u0441\u0451 \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f\u043c\u0438 \u0432 Windows \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e Delphi\n\n\u041d\u0435\u0434\u0430\u0432\u043d\u043e \u044f \u0437\u0430\u043a\u043e\u043d\u0447\u0438\u043b \u0434\u0435\u043b\u0430\u0442\u044c \u0442\u0435\u043a\u0441\u0442\u043e\u0432\u044b\u0439 \u0440\u0435\u0434\u0430\u043a\u0442\u043e\u0440 (\u043a\u043e\u043c\u0443 \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u043e, \u043e\u0431\u0440\u0430\u0449\u0430\u0439\u0442\u0435\u0441\u044c \u0441\u044e\u0434\u0430 corel86@mail.ru). \u0410 \u043a\u043e\u0433\u0434\u0430 \u0437\u0430\u043a\u043e\u043d\u0447\u0438\u043b, \u0442\u043e \u043f\u043e\u0434\u0443\u043c\u0430\u043b, \u043d\u0435\u043f\u043b\u043e\u0445\u043e \u0431\u044b\u043b\u043e \u0431\u044b \u0432\u0441\u0442\u0440\u043e\u0438\u0442\u044c \u0432 maks editor (\u0432 \u0434\u0430\u043b\u044c\u043d\u0435\u0439\u0448\u0435\u043c \u0437\u0430 \u044d\u0442\u0438\u043c \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0435\u043c \u0431\u0443\u0434\u0435\u0442 \u043f\u043e\u0434\u0440\u0430\u0437\u0443\u043c\u0435\u0432\u0430\u0442\u044c\u0441\u044f \u043c\u043e\u0439 \u0442\u0435\u043a\u0441\u0442\u043e\u0432\u044b\u0439 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u043e\u0440) \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0430\u0441\u0441\u043e\u0446\u0438\u0430\u0446\u0438\u0438 \u0441 \u0440\u0430\u0437\u043b\u0438\u0447\u043d\u044b\u043c\u0438 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f\u043c\u0438 windows, \u0437\u0430\u043e\u0434\u043d\u043e \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u0442\u0430\u043a, \u0447\u0442\u043e\u0431\u044b \u043c\u043e\u0436\u043d\u043e \u0431\u044b\u043b\u043e \u0441\u0430\u043c\u043e\u043c\u0443 \u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f \u0438 \u043f\u0440\u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0442\u044c \u043f\u0443\u043d\u043a\u0442\u044b \u0432 \u043a\u043e\u043d\u0442\u0435\u043a\u0441\u0442\u043d\u043e\u043c \u043c\u0435\u043d\u044e windows, \u043e\u0442\u0432\u0435\u0447\u0430\u044e\u0449\u0438\u0435 \u0437\u0430 \u0437\u0430\u043f\u0443\u0441\u043a \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u043e\u0432 (\u0442\u0438\u043f\u0430 \"\u043e\u0442\u043a\u0440\u044b\u0442\u044c \u0432...\") \u043c\u043e\u0438\u043c \u0442\u0435\u043a\u0441\u0442\u043e\u0432\u044b\u043c \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u043e\u0440\u043e\u043c!!!\n\u041a\u0442\u043e \u0440\u0430\u0437\u043e\u0431\u0440\u0430\u043b\u0441\u044f \u0432 \u0442\u043e\u043c, \u0447\u0442\u043e \u044f \u0441\u043a\u0430\u0437\u0430\u043b, \u043c\u043e\u0436\u0435\u0442 \u043f\u0440\u043e\u043f\u0443\u0441\u043a\u0430\u0442\u044c \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0435 3 \u043f\u0430\u0440\u0430\u0433\u0440\u0430\u0444\u0430 \u0438 \u0447\u0438\u0442\u0430\u0442\u044c \u0434\u0430\u043b\u044c\u0448\u0435, \u043a\u0442\u043e \u043d\u0435\u0442 - \u0441\u0435\u0439\u0447\u0430\u0441 \u043e\u0431\u044a\u044f\u0441\u043d\u044e \u0441\u0443\u0442\u044c \u0432\u044b\u0448\u0435\u0441\u043a\u0430\u0437\u0430\u043d\u043d\u044b\u0445 \u0441\u043b\u043e\u0432... \u041f\u043e\u043c\u043d\u0438\u0442\u0435, \u043a\u043e\u0433\u0434\u0430 \u0432\u044b \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0435 \u0442\u0435\u043a\u0441\u0442\u043e\u0432\u044b\u0439 \u0444\u0430\u0439\u043b (\u043d\u0435\u0432\u0430\u0436\u043d\u043e \u043a\u0430\u043a\u0438\u043c \u0441\u043f\u043e\u0441\u043e\u0431\u043e\u043c), \u0442\u043e \u043f\u0435\u0440\u0435\u0434 \u0432\u0430\u043c\u0438 \u0440\u0430\u0441\u043a\u0440\u044b\u0432\u0430\u0435\u0442\u0441\u044f \u0431\u043b\u043e\u043a\u043d\u043e\u0442 (\u0440\u0430\u0441\u043a\u0440\u044b\u0432\u0430\u0442\u044c\u0441\u044f \u043c\u043e\u0436\u0435\u0442 \u0438 \u0447\u0442\u043e-\u043b\u0438\u0431\u043e \u0434\u0440\u0443\u0433\u043e\u0435), \u0438 \u0437\u043d\u0430\u0447\u043e\u043a \u0432\u0430\u0448\u0435\u0433\u043e \u0444\u0430\u0439\u043b\u0430 \u0437\u0430\u043c\u0435\u043d\u044f\u0435\u0442\u0441\u044f \u0437\u043d\u0430\u0447\u043a\u043e\u043c \u0431\u043b\u043e\u043a\u043d\u043e\u0442\u0430 (\u0438\u043b\u0438 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b, \u043e\u0442\u0432\u0435\u0447\u0430\u044e\u0449\u0435\u0439 \u0437\u0430 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0443 \u0444\u0430\u0439\u043b\u043e\u0432 \u0441 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435\u043c .txt). \u0422\u0430\u043a \u0432\u043e\u0442, \u0437\u0430 \u043a\u0430\u0436\u0434\u043e\u0435 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435 \u0432 windows \u043e\u0442\u0432\u0435\u0447\u0430\u0435\u0442 \u043e\u0434\u043d\u0430 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430, \u043d\u0430\u0437\u044b\u0432\u0430\u0435\u043c\u0430\u044f \"\u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u043e\u0439 \u043f\u043e \u0443\u043c\u043e\u043b\u0447\u0430\u043d\u0438\u044e\". \u042d\u0442\u0443 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u043a\u043e\u043d\u0435\u0447\u043d\u043e \u043c\u043e\u0436\u043d\u043e \u043b\u0435\u0433\u043a\u043e \u0438\u0437\u043c\u0435\u043d\u0438\u0442\u044c \u0434\u043b\u044f \u043b\u044e\u0431\u043e\u0433\u043e \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f: \u0432\u044b\u0431\u0438\u0440\u0430\u0435\u0442\u0435 \u043f\u0443\u043d\u043a\u0442 \"\u043e\u0442\u043a\u0440\u044b\u0442\u044c \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e\", \u043d\u0430\u0445\u043e\u0434\u0438\u0442\u0435 \u043d\u0443\u0436\u043d\u0443\u044e \u043f\u0440\u043e\u0433\u0443 \u0438 \u0441\u0442\u0430\u0432\u044c\u0442\u0435 \u0433\u0430\u043b\u043e\u0447\u043a\u0443 - \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0435\u0451 \u0434\u043b\u044f \u0432\u0441\u0435\u0445 \u0444\u0430\u0439\u043b\u043e\u0432 \u0442\u0430\u043a\u043e\u0433\u043e \u0442\u0438\u043f\u0430.\n\n\u0421 \u0430\u0441\u0441\u043e\u0446\u0438\u0430\u0446\u0438\u0435\u0439 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0439 \u0432\u0440\u043e\u0434\u0435 \u0431\u044b \u0440\u0430\u0437\u043e\u0431\u0440\u0430\u043b\u0438\u0441\u044c - \u0435\u0434\u0435\u043c \u0434\u0430\u043b\u044c\u0448\u0435. \u0427\u0442\u043e \u0437\u043d\u0430\u0447\u0438\u0442 - \u0441\u0430\u043c\u043e\u043c\u0443 \u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f? \u0410 \u044d\u0442\u043e \u0437\u043d\u0430\u0447\u0438\u0442, \u0432\u044b \u0434\u043e\u043b\u0436\u043d\u044b \u0441\u043a\u0430\u0437\u0430\u0442\u044c windows: \"\u0412\u043e\u0442 \u0442\u0435\u0431\u0435 \u043d\u043e\u0432\u043e\u0435 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435, \u0437\u0430\u0441\u043e\u0441\u0438, \u043f\u043e\u0434\u0440\u0443\u0433\u0430!\" \u0438 \u043f\u0440\u043e\u043f\u0438\u0441\u0430\u0442\u044c \u043f\u0440\u043e\u0433\u0443, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0431\u0443\u0434\u0435\u0442 \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u0441 \u044d\u0442\u0438\u043c \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435\u043c - \u0431\u0443\u0434\u0435\u0442 \"\u043f\u0440\u043e\u0433\u043e\u0439 \u043f\u043e \u0443\u043c\u043e\u043b\u0447\u0430\u043d\u0438\u044e\". \u0422\u043e \u0435\u0441\u0442\u044c: \u0437\u0430\u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0438\u0440\u0443\u0435\u0442\u0435 \u0432\u044b \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435 .maks, \u0438 \u0442\u0435\u043f\u0435\u0440\u044c \u043f\u0440\u0438 \u043a\u0430\u0436\u0434\u043e\u043c \u043e\u0442\u043a\u0440\u044b\u0442\u0438\u044f \u0444\u0430\u0439\u043b\u0430 \u0442\u0438\u043f\u0430 *.maks, \u0431\u0443\u0434\u0435\u0442 \u043e\u0442\u043a\u0440\u044b\u0432\u0430\u0442\u044c\u0441\u044f \u0432\u0430\u0448\u0430 \u043f\u0440\u043e\u0433\u0430 (\u043a\u043e\u0442\u043e\u0440\u0443\u044e \u0432\u044b, \u043d\u0430\u0432\u0435\u0440\u043d\u043e\u0435, \u0441\u0430\u043c\u0438 \u0441\u043e\u0437\u0434\u0430\u043b\u0438) \u0438 \u043f\u043e\u044f\u0432\u043b\u044f\u0442\u044c\u0441\u044f \u0437\u043d\u0430\u0447\u043e\u043a, \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0439 \u0437\u043d\u0430\u0447\u043a\u0443 \u043f\u0440\u043e\u0433\u0438.\n\n\u0421 \u044d\u0442\u0438\u043c \u0442\u043e\u0436\u0435 \u0432\u0440\u043e\u0434\u0435 \u0431\u044b \u0432\u0441\u0451 \u044f\u0441\u043d\u043e - \u043f\u0440\u0435\u043c \u0432\u043f\u0435\u0440\u0435\u0434...\u041f\u0440\u043e\u043f\u0438\u0441\u043a\u0430 \u043f\u0443\u043d\u043a\u0442\u0430 \u043a\u043e\u043d\u0442\u0435\u043a\u0441\u0442\u043d\u043e\u0433\u043e \u043c\u0435\u043d\u044e. \u041d\u0443 \u0442\u0443\u0442 \u0432\u0441\u0451 \u043b\u0435\u0433\u043a\u043e - \u0432 \u0433\u043b\u0430\u0432\u043d\u043e\u043c \u043a\u043e\u043d\u0442\u0435\u043a\u0441\u0442\u0435 windows \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u0432\u0430\u0448 \u043f\u0443\u043d\u043a\u0442, \u043f\u0440\u0438 \u043d\u0430\u0436\u0430\u0442\u0438\u0438 \u043f\u043e \u043a\u043e\u0442\u043e\u0440\u043e\u043c\u0443 \u043e\u0442\u043a\u0440\u044b\u0432\u0430\u0435\u0442\u0441\u044f \u0432\u0430\u0448\u0435 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u0441 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u043c\u044b\u043c \u0442\u043e\u0433\u043e \u0444\u0430\u0439\u043b\u0430, \u043e\u0442\u043d\u043e\u0441\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u043d\u0430\u0445\u043e\u0434\u0438\u043b\u043e\u0441\u044c \u043c\u0435\u043d\u044e. \u041f\u0440\u043e\u0433\u0443 \u0442\u043e\u0436\u0435 \u043c\u043e\u0436\u043d\u043e \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u043b\u044e\u0431\u043e\u0439.\n\n\u0422\u0430\u043a \u0432\u043e\u0442, \u0432\u0441\u0435 \u044d\u0442\u0438 \u0432\u0435\u0449\u0438 \u043c\u043e\u0433\u0443\u0442 \u043f\u043e\u043d\u0430\u0434\u043e\u0431\u0438\u0442\u044c\u0441\u044f \u0432\u0430\u043c, \u0435\u0441\u043b\u0438 \u0432\u044b, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0435 \u0442\u0435\u043a\u0441\u0442\u043e\u0432\u044b\u0439 \u0440\u0435\u0434\u0430\u043a\u0442\u043e\u0440. \u041f\u0440\u0438\u0447\u0435\u043c, \u043d\u0435 \u043e\u0431\u044f\u0437\u0430\u0442\u0435\u043b\u044c\u043d\u043e \u0441\u0442\u0430\u0440\u0430\u0442\u044c\u0441\u044f \u043d\u0430\u0434 \u043a\u043e\u0434\u0438\u043d\u0433\u043e\u043c \u0440\u0435\u0434\u0430\u043a\u0442\u043e\u0440\u0430 - \u043c\u043e\u0436\u043d\u043e \u043f\u0440\u043e\u0441\u0442\u043e \u043f\u043e\u043b\u043e\u0436\u0438\u0442\u044c \u043a\u0430\u043a\u043e\u0439-\u043d\u0438\u0431\u0443\u0434\u044c richedit \u043d\u0430 \u0444\u043e\u0440\u043c\u0443 \u0438 \u0432\u0441\u0435... \u043f\u0440\u043e\u043f\u0438\u0441\u0430\u0442\u044c \u043f\u0443\u043d\u043a\u0442 \u0432 \u043a\u043e\u043d\u0442\u0435\u043a\u0441\u0442\u043d\u043e\u043c \u043c\u0435\u043d\u044e \u0412\u0438\u043d\u0434\u043e\u0443\u0437 \u0442\u0438\u043f\u0430 \"\u041e\u0442\u043a\u0440\u044b\u0442\u044c \u0441 myeditor\". \u0418 \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u0432\u043e\u0442 \u044d\u0442\u043e \u0432 \u0441\u043e\u0431\u044b\u0442\u0438\u0435 onshow \u0444\u043e\u0440\u043c\u044b:\n\nif (paramcount > 0) and fileexists(paramstr(1)) then\nrichedit.loadfromfile(paramstr(1)); \/\/ \u0435\u0441\u043b\u0438 \u043c\u044b \u0441\u0440\u0430\u0437\u0443 \u043e\u0442\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u0444\u0430\u0439\u043b \u0438\u0437 windows, \u0442\u043e \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c \u0435\u0433\u043e \u0432 \u044d\u0434\u0438\u0442\u043e\u0440\n\n\n\u0422\u0435\u043f\u0435\u0440\u044c \u0432\u044b \u043c\u043e\u0436\u0435\u0442\u0435 \u043b\u0435\u0433\u043a\u043e \u0438 \u0431\u044b\u0441\u0442\u0440\u043e \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u0441 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430\u043c\u0438 \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0432\u0430\u0448\u0435\u0433\u043e \u044d\u0434\u0438\u0442\u043e\u0440\u0430 \u0431\u0435\u0437 \u043f\u0440\u0435\u0434\u0432\u0430\u0440\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0433\u043e \u0438\u043d\u0441\u0442\u0430\u043b\u043b\u0438\u0440\u043e\u0432\u0430\u043d\u044f \u0435\u0433\u043e \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0443!!! \u0412\u0438\u043d\u0434\u043e\u0443\u0437 \u0441\u0430\u043c\u0430 \u043e\u043f\u043e\u0437\u043d\u0430\u0435\u0442 \u043f\u043e\u043b\u0435 \u0434\u043b\u044f \u0440\u0435\u0434\u0430\u043a\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u0438 \u0431\u0443\u0434\u0435\u0442 \u0437\u0430\u043d\u043e\u0441\u0438\u0442\u044c \u0442\u0443\u0434\u0430 \u0434\u0430\u043d\u043d\u044b\u0435 \u043f\u043e\u0441\u043b\u0435 \u043e\u0442\u043a\u0440\u044b\u0442\u0438\u044f!\n\n\u0418 \u0437\u0430\u043f\u043e\u043c\u043d\u0438\u0442\u0435, \u0432\u0441\u0435, \u0447\u0442\u043e \u044f \u0432\u0430\u043c \u0441\u0435\u0439\u0447\u0430\u0441 \u043f\u043e\u043a\u0430\u0436\u0443, \u0442\u0440\u0435\u0431\u0443\u0435\u0442 \u0437\u043d\u0430\u043d\u0438\u0439 \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0440\u0435\u0435\u0441\u0442\u0440\u043e\u043c - \u043d\u043e \u044d\u0442\u043e \u0432 \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u0435 \u043d\u0435 \u0433\u043b\u0430\u0432\u043d\u043e\u0435. \u041f\u0440\u043e\u0441\u0442\u043e \u044f \u0432\u0441\u0435 \u0434\u0435\u043b\u0430\u043b \u043f\u043e\u0434 windows xp, \u0430 \u0440\u0435\u0435\u0441\u0442\u0440 xp \u0438 \u0440\u0435\u0435\u0441\u0442\u0440 \"\u041b\u0435\u043d\u043e\u043b\u043b\u0438\u0443\u043c\u0430\" - \u044d\u0442\u043e \u0440\u0430\u0437\u043d\u044b\u0435 \u0432\u0435\u0449\u0438. \u041f\u043e\u044d\u0442\u043e\u043c\u0443 \u044f \u043d\u0435 \u0434\u0430\u044e \u043d\u0438\u043a\u0430\u043a\u043e\u0439 \u0433\u0430\u0440\u0430\u043d\u0442\u0438\u0438, \u0447\u0442\u043e \u0443 \u0432\u0430\u0441 \u0432\u0441\u0435 \u0431\u0443\u0434\u0435\u0442 \u043d\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u043e \u0432 \u0434\u0440\u0443\u0433\u043e\u0439 \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u043e\u043d\u043a\u0435 (\u044f \u0434\u0430\u0436\u0435 \u0441 \u0443\u0432\u0435\u0440\u0435\u043d\u043d\u043e\u0441\u0442\u044c\u044e \u0433\u043e\u0432\u043e\u0440\u044e, \u0447\u0442\u043e \u043a\u0440\u043e\u043c\u0435 xp, \u0443 \u0432\u0430\u0441 \u0430\u0441\u0441\u043e\u0446\u0438\u0430\u0446\u0438\u044f \u0438 \u043f\u0440\u043e\u0447\u0430\u044f \u0431\u0435\u043b\u0438\u0431\u0435\u0440\u0434\u0430 \u0432\u043e\u043e\u0431\u0449\u0435\u0439 \u043d\u0435 \u043f\u043e\u0439\u0434\u0435\u0442 \u0432 \u0434\u0440\u0443\u0433\u043e\u0439 \u0441\u0438\u0441\u0442\u0435\u043c\u0435:~(. \u0422\u0430\u043a \u0447\u0442\u043e \u0435\u0441\u043b\u0438 \u0432\u044b \u0447\u0438\u0442\u0430\u0435\u0442\u0435 \u044d\u0442\u043e \u043f\u043e\u0441\u043e\u0431\u0438\u0435, \u0443\u044e\u0442\u043d\u043e \u0440\u0430\u0441\u043f\u043e\u043b\u043e\u0436\u0438\u0432\u0448\u0438\u0441\u044c \u0432 win 3.1, \u0442\u043e \u043c\u043e\u0436\u0435\u0442\u0435 \u0437\u0430\u0432\u044f\u0437\u044b\u0432\u0430\u0442\u044c \u0447\u0442\u0435\u043d\u0438\u0435 (\u0447\u0442\u043e \u044f \u0432\u0430\u043c, \u043a\u043e\u043d\u0435\u0447\u043d\u043e \u043d\u0435 \u0440\u0435\u043a\u043e\u043c\u0435\u043d\u0434\u0443\u044e, \u0442\u0430\u043a \u043a\u0430\u043a \u043c\u0430\u0442\u0435\u0440\u0438\u0430\u043b \u043f\u043e\u043b\u0435\u0437\u0435\u043d \u0434\u043b\u044f \u0443\u043f\u0440\u043e\u0447\u043d\u0435\u043d\u0438\u044f \u0437\u043d\u0430\u043d\u0438\u0439 \u043e \u0441\u0442\u0440\u043e\u0435\u043d\u0438\u0438 \u0438 \u0440\u0430\u0431\u043e\u0442\u0435 \u0440\u0435\u0435\u0441\u0442\u0440\u0430). \u0418 \u043d\u0435 \u0434\u0443\u043c\u0430\u0439\u0442\u0435, \u0447\u0442\u043e \u044f \u0432 \u044d\u0442\u043e\u0439 \u043c\u0430\u043b\u0435\u043d\u044c\u043a\u043e\u0439 \u0441\u0442\u0430\u0442\u0435\u0439\u043a\u0435 \u0440\u0430\u0441\u0441\u043a\u0430\u0436\u0443 \u043e \u0442\u043e\u043c, \u043a\u0430\u043a \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u0442\u0435\u043a\u0441\u0442\u043e\u0432\u044b\u0439 \u0440\u0435\u0434\u0430\u043a\u0442\u043e\u0440, \u044f \u043f\u0440\u043e\u0441\u0442\u043e \u043f\u043e\u043a\u0430\u0436\u0443 \u0432\u0430\u043c \u043f\u043e 1 \u043f\u0440\u0438\u043c\u0435\u0440\u0443 \u043d\u0430 \u043a\u0430\u0436\u0434\u044b\u0439 \u0438\u0437 \u044d\u0442\u0438\u0445 \u043f\u0443\u043d\u043a\u0442\u043e\u0432:\n\n\u041a\u0430\u043a \u0430\u0441\u0441\u043e\u0446\u0438\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u043d\u043e\u0435 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435 \u0441 \u043f\u0440\u043e\u0433\u043e\u0439\n\u0417\u0430\u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0441\u0432\u043e\u0435 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435\n\u0414\u043e\u0431\u0430\u0432\u0438\u0442\u044c \u043f\u0443\u043d\u043a\u0442 \u0432 \u043a\u043e\u043d\u0442\u0435\u043a\u0441\u0442\u0435\n\u0418 \u0432\u0441\u0435 \u044d\u0442\u043e \u0441\u043e\u0442\u0432\u043e\u0440\u0438\u0442\u044c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043d\u043e \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u043d\u0430\u0448\u0435\u0439 \u043b\u044e\u0431\u0438\u043c\u043e\u0439 delphi.\n\n\u041e\u0431\u044a\u044f\u0441\u043d\u044f\u0442\u044c \u044f \u0431\u0443\u0434\u0443, \u0438\u0441\u0445\u043e\u0434\u044f \u0438\u0437 \u0443\u0441\u0442\u0440\u043e\u0439\u0441\u0442\u0432\u0430 delphi 7, \u043d\u043e \u0432 \u0434\u0440\u0443\u0433\u0438\u0445 \u0441\u0440\u0435\u0434\u0430\u0445 \u044d\u0442\u043e\u0442 \u043f\u0440\u043e\u0446\u0435\u0441\u0441 \u0441\u043e\u0432\u0441\u0435\u043c \u043d\u0435 \u0431\u0443\u0434\u0435\u0442 \u043e\u0442\u043b\u0438\u0447\u0430\u0442\u044c\u0441\u044f, \u0442\u0430\u043a \u043a\u0430\u043a \u043c\u043e\u0434\u0443\u043b\u044c registry \u0434\u0435\u0439\u0441\u0442\u0432\u0443\u0435\u0442 \u0432\u0435\u0437\u0434\u0435.\n\n\u041d\u0430\u0447\u0438\u043d\u0430\u0435\u043c \u043a\u043e\u0434\u0438\u043d\u0433 (\u0438\u043b\u0438 \u043d\u0435\u043c\u043d\u043e\u0433\u043e \u043f\u0440\u043e \u0440\u0435\u0435\u0441\u0442\u0440)\n\n\u0418\u0442\u0430\u043a \u043d\u0430\u0447\u043d\u0435\u043c. \u0417\u0430\u043f\u0443\u0441\u043a\u0430\u0435\u043c delphi, \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435, \u0443 \u043d\u0430\u0441 \u043f\u043e\u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0444\u043e\u0440\u043c\u0430. \u041d\u0430 \u043d\u0435\u0451 \u043c\u044b \u043b\u043e\u0436\u0438\u043c richedit \u0438 \u0438\u0437\u043c\u0435\u043d\u044f\u0435\u043c \u0435\u0433\u043e \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e align \u043d\u0430 alclient. \u0422\u0435\u043c \u0441\u0430\u043c\u044b\u043c \u043c\u044b \u0440\u0430\u0441\u0442\u044f\u043d\u0443\u043b\u0438 \u0435\u0433\u043e \u043f\u043e \u0432\u0441\u0435\u0439 \u0444\u043e\u0440\u043c\u0435. \u0422\u0430\u043a\u0436\u0435 \u043b\u0443\u0447\u0448\u0435 \u0441\u0442\u0435\u0440\u0435\u0442\u044c \u043d\u0430\u0434\u043f\u0438\u0441\u044c \"richedit1\" \u0432 \u0435\u0433\u043e \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0435 lines. \u0422\u0435\u043f\u0435\u0440\u044c \u0441\u043e\u0437\u0434\u0430\u0439\u0442\u0435 \u0435\u0449\u0435 1 \u0444\u043e\u0440\u043c\u0443: \u043d\u0430\u0436\u043c\u0438\u0442\u0435 file->new->form. \u041d\u043e \u044d\u0442\u0430 \u0444\u043e\u0440\u043c\u0430 (\u0431\u0443\u0434\u0443 \u043d\u0430\u0437\u044b\u0432\u0430\u0442\u044c \u0435\u0451 form2) \u0443 \u043d\u0430\u0441 \u043f\u043e\u043a\u0430 \u0447\u0442\u043e \u043d\u0435 \u043a\u0430\u043a \u043d\u0435 \u0441\u0432\u044f\u0437\u0430\u043d\u0430 \u0441 \u0433\u043b\u0430\u0432\u043d\u043e\u0439 \u0444\u043e\u0440\u043c\u043e\u0439 (form1). \u0414\u043b\u044f \u0442\u043e\u0433\u043e, \u0447\u0442\u043e \u0438\u0445 \u0445\u043e\u0442\u044c \u043a\u0430\u043a-\u0442\u043e \u0441\u0432\u044f\u0437\u0430\u0442\u044c, \u043e\u0442\u043a\u0440\u043e\u0439\u0442\u0435 \u043e\u043a\u043d\u043e \u0440\u0435\u0434\u0430\u043a\u0442\u043e\u0440\u0430 \u043a\u043e\u0434\u0430 \u0443 form1 \u0438 \u0434\u043e\u0431\u0430\u0432\u044c\u0442\u0435 \u043c\u043e\u0434\u0443\u043b\u044c \u0441 \u0432\u0430\u0448\u0435\u0439 \u0432\u0442\u043e\u0440\u043e\u0439 \u0444\u043e\u0440\u043c\u043e\u0439: \u043f\u0438\u0448\u0435\u0442\u0435 \u0441\u043b\u043e\u0432\u043e unit \u0438 \u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u0444\u043e\u0440\u043c\u044b (\u0432 \u0434\u0430\u043d\u043d\u043e\u0439 \u0441\u043b\u0443\u0447\u0430\u0435 2).\n\nuses unit2; \/\/\u043e\u0431\u044f\u0437\u0430\u0442\u0435\u043b\u044c\u043d\u043e!!!\n\n\u0421\u043e\u0435\u0434\u0438\u043d\u0438\u043b\u0438, \u043d\u0443 \u0432\u0441\u0435 \u0440\u0430\u0432\u043d\u043e, form2 \u043d\u0438\u0433\u0434\u0435 \u043d\u0435 \u0431\u0443\u0434\u0435\u0442 \u0443 \u043d\u0430\u0441 \u0432\u0438\u0434\u043d\u0430 \u043f\u0440\u0438 \u0437\u0430\u043f\u0443\u0441\u043a\u0435 \u043f\u0440\u043e\u0433\u0438. \u0414\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u0435\u0451 \u043d\u0430\u0434\u043e \u0432\u044b\u0437\u0432\u0430\u0442\u044c. \u041a\u0430\u043a \u0432\u044b \u0431\u0443\u0434\u0435\u0442\u0435 \u0435\u0451 \u0432\u044b\u0437\u044b\u0432\u0430\u0442\u044c, \u0440\u0435\u0448\u0430\u0442\u044c \u0432\u0430\u043c. \u041c\u043e\u0436\u043d\u043e \u0441\u043e\u0437\u0434\u0430\u0442\u044c \u0433\u043b\u0430\u0432\u043d\u043e\u0435 \u043c\u0435\u043d\u044e \u0441\u0432\u0435\u0440\u0445\u0443 \u0438 \u043e\u0442\u0442\u0443\u0434\u0430, \u043d\u043e \u044f \u043d\u0435 \u0431\u0443\u0434\u0443 \u043e\u0431\u044a\u044f\u0441\u043d\u044f\u0442\u044c, \u043a\u0430\u043a \u044d\u0442\u043e \u0434\u0435\u043b\u0430\u0442\u044c. \u042f \u043f\u0440\u043e\u0441\u0442\u043e \u0432\u0437\u044f\u043b \u0438 \u043f\u043e\u043c\u0435\u0441\u0442\u0438\u043b \u043e\u0431\u044b\u0447\u043d\u0443\u044e \u043a\u043d\u043e\u043f\u043a\u0443 \u043d\u0430 richedit1 - \u043d\u0435 \u0441\u043b\u0438\u0448\u043a\u043e\u043c \u043f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u043e, \u043d\u043e \u043d\u0430 \u0432\u0438\u0434\u0443. \u0422\u0435\u043f\u0435\u0440\u044c \u043e\u0431\u0440\u0430\u0431\u0430\u0442\u044b\u0432\u0430\u0435\u043c \u0441\u043e\u0431\u044b\u0442\u0438\u0435 onclick \u043a\u043d\u043e\u043f\u043a\u0438 button1 (\u0434\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u0449\u0435\u043b\u043a\u0430\u0435\u043c \u043f\u043e \u043d\u0435\u0439 2 \u0440\u0430\u0437\u0430).\n\nprocedure tform1.button1click(sender: tobject);\nbegin\n\/\/ \u0432\u044b\u0437\u044b\u0432\u0430\u0435\u043c \u0444\u043e\u0440\u043c\u0443 \u0442\u0430\u043a, \u0447\u0442\u043e\u0431\u044b \u043e\u043d\u0430 \u043e\u0441\u0442\u0430\u0432\u0430\u043b\u0430\u0441\u044c \u0432 \u0444\u043e\u043a\u0443\u0441\u0435, \u043f\u043e\u043a\u0430 \u043c\u044b \u0435\u0435 \u043d\u0435 \u0432\u044b\u0440\u0443\u0431\u0438\u043c\nform2.showmodal;\nend;\n\n\u0412\u0441\u0435, \u0442\u0435\u043f\u0435\u0440\u044c \u043d\u0430 form2 \u043b\u043e\u0436\u0438\u043c \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442: 2 edit'a, 2 checkbox'a, 3 button'a.\n\n\u041f\u0435\u0440\u0432\u044b\u0439 edit \u0431\u0443\u0434\u0435\u0442 \u0441\u043b\u0443\u0436\u0438\u0442\u044c \u0443 \u043d\u0430\u0441 \u043f\u043e\u043b\u0435\u043c \u0432\u0432\u043e\u0434\u0430 \u0434\u043b\u044f \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f, \u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u043c\u044b \u0445\u043e\u0442\u0438\u043c \u0437\u0430\u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0438\u0440\u043e\u0432\u0430\u0442\u044c, \u0442\u0430\u043a \u0447\u0442\u043e \u0438\u0437\u043c\u0435\u043d\u0438\u043c \u0435\u0433\u043e \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e name \u043d\u0430 extension. \u0410 \u043f\u0435\u0440\u0432\u0430\u044f \u043a\u043d\u043e\u043f\u043a\u0430 \u0431\u0443\u0434\u0435\u0442 \u0443 \u043d\u0430\u0441 \u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u044d\u0442\u043e \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435 - \u043d\u0430\u0437\u043e\u0432\u0435\u043c \u0435\u0451 createext, \u0432\u0442\u043e\u0440\u0430\u044f \u043a\u043d\u043e\u043f\u043a\u0430 \u0431\u0443\u0434\u0435\u0442 \u044d\u0442\u043e \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435 \u0434\u0438\u0437\u0438\u043d\u0442\u0435\u0433\u0440\u0438\u0440\u043e\u0432\u0430\u0442\u044c (\u043a\u0430\u043a\u043e\u0435 \u0441\u043b\u043e\u0432\u043e \u0443\u043c\u043d\u043e\u0435 \u044f \u043f\u0440\u0438\u0434\u0443\u043c\u0430\u043b:) - \u043d\u0430\u0437\u043e\u0432\u0435\u043c \u0435\u0451 deleteext.\u041f\u0435\u0440\u0432\u044b\u0439 checkbox \u0431\u0443\u0434\u0435\u0442 \u0441\u043b\u0443\u0436\u0438\u0442\u044c \u0443 \u043d\u0430\u0441 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435\u043c .txt (\u044f \u043f\u043e\u043a\u0430\u0436\u0443 \u0432\u0430\u043c \u043f\u0440\u0438\u043c\u0435\u0440 \u0442\u043e\u043b\u044c\u043a\u043e \u0441 \u043e\u0434\u043d\u0438\u043c \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435\u043c, \u0442\u0430\u043a \u043a\u0430\u043a \u0440\u0430\u0431\u043e\u0442\u0430 \u0441 \u043e\u0441\u0442\u0430\u043b\u044c\u043d\u044b\u043c\u0438 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f\u043c\u0438 \u0438\u0434\u0435\u043d\u0442\u0438\u0447\u043d\u0430), \u0442.\u0435. \u0435\u0441\u043b\u0438 \u0447\u0435\u043a\u0431\u043e\u043a\u0441 \u0432\u043a\u043b\u044e\u0447\u0435\u043d - \u0441\u0442\u043e\u0438\u0442 \u043a\u0440\u0435\u0441\u0442\u0438\u043a, \u0442\u043e \u0430\u0441\u0441\u043e\u0446\u0438\u0438\u0440\u0443\u0435\u043c \u043d\u0430\u0448\u0443 \u043f\u0440\u043e\u0433\u0443 \u0441 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435\u043c *.txt, \u0435\u0441\u043b\u0438 \u0432\u044b\u043a\u043b\u044e\u0447\u0435\u043d - \u043a\u0440\u0435\u0441\u0442\u0438\u043a\u0430 \u043d\u0435\u0442, \u0442\u043e \u043e\u0442\u043c\u0435\u043d\u044f\u0435\u043c \u0438\u043d\u0442\u0435\u0433\u0440\u0430\u0446\u0438\u044e, \u043f\u0440\u043e\u043f\u0438\u0441\u0430\u0432 \u0431\u043b\u043e\u043a\u043d\u043e\u0442 \"\u043f\u0440\u043e\u0433\u043e\u0439 \u043f\u043e \u0443\u043c\u043e\u043b\u0447\u0430\u043d\u0438\u044e\" (\u043a\u0430\u043a \u0432 \u043d\u0430\u0447\u0430\u043b\u0435 \u0431\u044b\u043b\u043e:). \u0422\u0430\u043a \u0447\u0442\u043e \u0438\u0437\u043c\u0435\u043d\u044f\u0435\u043c \u0435\u0433\u043e \u0438\u043c\u044f \u043d\u0430 txt. \u0412\u0442\u043e\u0440\u043e\u0439 checkbox \u0431\u0443\u0434\u0435\u0442 \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u0441\u043e\u0432\u043c\u0435\u0441\u0442\u043d\u043e \u0441 edit2: \u0432 edit2 \u043c\u044b \u0431\u0443\u0434\u0435\u043c \u0432\u0432\u043e\u0434\u0438\u0442\u044c \u043f\u0443\u043d\u043a\u0442 \u0432 \u043a\u043e\u043d\u0442\u0435\u043a\u0441\u0442\u043d\u043e\u043c \u043c\u0435\u043d\u044e, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043d\u0430\u043c \u043d\u0430\u0434\u043e \u0437\u0430\u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0438\u0440\u043e\u0432\u0430\u0442\u044c, \u0430 \u0444\u043b\u0430\u0436\u043e\u043a \u0431\u0443\u0434\u0435\u0442 \u0443\u043a\u0430\u0437\u044b\u0432\u0430\u0442\u044c \u043d\u0430\u043c, \u0441\u043e\u0437\u0434\u0430\u0432\u0430\u0442\u044c \u044d\u0442\u043e\u0442 \u043f\u0443\u043d\u043a\u0442 \u0438\u043b\u0438 \u0443\u0434\u0430\u043b\u044f\u0442\u044c (\u0432\u043a\u043b\u044e\u0447\u0435\u043d - \u0441\u043e\u0437\u0434\u0430\u0435\u043c, \u0432\u044b\u043a\u043b\u044e\u0447\u0435\u043d - \u0443\u0434\u0430\u043b\u044f\u0435\u043c:). \u0418\u0437\u043c\u0435\u043d\u044f\u0435\u043c \u0438\u043c\u044f \u0432\u0442\u043e\u0440\u043e\u0433\u043e \u0444\u043b\u0430\u0436\u043a\u0430 \u043d\u0430 context, \u0430 \u0438\u043c\u044f \u0432\u0442\u043e\u0440\u043e\u0433\u043e edit\n'a \u043d\u0430 contextstr. \u0418\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044f \u0438\u043c\u0435\u043d \u044f \u0441\u0434\u0435\u043b\u0430\u043b \u0442\u043e\u043b\u044c\u043a\u043e \u0434\u043b\u044f \u0443\u0434\u043e\u0431\u0441\u0442\u0432\u0430 (\u0447\u0442\u043e\u0431\u044b \u043d\u0435 \u0437\u0430\u043f\u0443\u0442\u0430\u0442\u044c\u0441\u044f:). \u0418 \u043d\u0430\u043a\u043e\u043d\u0435\u0446 \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u044f\u044f \u043a\u043d\u043e\u043f\u043a\u0430 \u043f\u043e\u0434 \u0438\u043c\u0435\u043d\u0435\u043c gues \u0431\u0443\u0434\u0435\u0442 \u0434\u0435\u043b\u0430\u0442\u044c... \u043f\u043e\u0442\u043e\u043c \u0443\u0437\u043d\u0430\u0435\u0442\u0435 \u0447\u0442\u043e:)\n\n\u0418\u0442\u0430\u043a \u043d\u0430\u0447\u043d\u0435\u043c \u043a\u043e\u0434\u0438\u0442\u044c, \u043d\u043e \u0441\u043d\u0430\u0447\u0430\u043b\u0430 \u044f \u0434\u0430\u043c \u0432\u0430\u043c \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u0443\u044e \u0438\u043d\u0444\u0443 \u043f\u0440\u043e \u0440\u0435\u0435\u0441\u0442\u0440:\n\n\u041a\u0430\u043a \u0432\u044b, \u043d\u0430\u0432\u0435\u0440\u043d\u043e\u0435, \u0437\u043d\u0430\u0435\u0442\u0435, \u0440\u0435\u0435\u0441\u0442\u0440 - \u044d\u0442\u043e \u0431\u043e\u043b\u044c\u0448\u0430\u044f \u0431\u0430\u0437\u0430 \u0434\u0430\u043d\u043d\u044b\u0445 \u0432\u0430\u0448\u0435\u0439 \u0441\u0438\u0441\u0442\u0435\u043c\u044b, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u043e\u0447\u0435\u043d\u044c \u043b\u0435\u0433\u043a\u043e \u043d\u0430\u043f\u043e\u0440\u0442\u0430\u0447\u0438\u0442\u044c, \u0430 \u0438\u0441\u043f\u0440\u0430\u0432\u0438\u0442\u044c \u0441\u043e\u0434\u0435\u044f\u043d\u043d\u043e\u0435 \u043f\u043e\u0440\u043e\u0439 \u043f\u0440\u043e\u0441\u0442\u043e \u043d\u0435\u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e (\u0432\u043e\u043e\u0431\u0449\u0435, \u044f \u0432\u0430\u043c \u0441\u0440\u0430\u0437\u0443 \u0441\u043e\u0432\u0435\u0442\u0443\u044e \u043e\u0442\u043a\u0440\u044b\u0442\u044c \u0440\u0435\u0435\u0441\u0442\u0440 \u0438 \u0434\u0435\u0440\u0436\u0430\u0442\u044c \u0435\u0433\u043e \u043e\u0442\u043a\u0440\u044b\u0442\u044b\u043c \u0434\u043e \u043a\u043e\u043d\u0446\u0430 \u043a\u043e\u0434\u0438\u043d\u0433\u0430). \u0422\u0430\u043a \u0432\u043e\u0442 \u0432 \u0440\u0435\u0435\u0441\u0442\u0440\u0435 6 \u0433\u043b\u0430\u0432\u043d\u044b\u0445 \u0440\u0430\u0437\u0434\u0435\u043b\u043e\u0432, \u0430 \u043c\u044b \u0431\u0443\u0434\u0435\u043c \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u0441 \u0440\u0430\u0437\u0434\u0435\u043b\u043e\u043c hkey_classes_root - \u0432 \u043d\u0435\u043c \u0445\u0440\u0430\u043d\u044f\u0442\u0441\u044f \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0438, \u043e\u0442\u0432\u0435\u0447\u0430\u044e\u0449\u0438\u0435 \u0437\u0430 \u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0430\u0446\u0438\u044e \u0440\u0430\u0437\u043b\u0438\u0447\u043d\u044b\u0445 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0439, \u043a\u043e\u043d\u0442\u0435\u043a\u0441\u0442\u043d\u044b\u0445 \u043c\u0435\u043d\u044e, \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0439 \u0441\u0438\u0441\u0442\u0435\u043c\u043d\u044b\u0445 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c (\u043a\u043e\u0440\u0437\u0438\u043d\u044b, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440) \u0438 \u0435\u0449\u0435 \u043a\u0443\u0447\u0430 \u0432\u0441\u0435\u0433\u043e \u043f\u0440\u043e\u0447\u0435\u0433\u043e. \u041e\u0442\u043a\u0440\u044b\u0432 \u0440\u0430\u0437\u0434\u0435\u043b hkey_classes_root, \u043c\u044b \u043f\u0435\u0440\u0432\u044b\u043c \u0434\u0435\u043b\u043e \u0432\u0438\u0434\u0438\u043c \u0441\u043f\u0438\u0441\u043e\u043a \u0438\u0437 18 \u0437\u0430\u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0445 \u0442\u0435\u043a\u0441\u0442\u043e\u0432\u044b\u0445 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0439, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043d\u0430\u0447\u0438\u043d\u0430\u044e\u0442\u0441\u044f \u0441\u043e \u0437\u043d\u0430\u043a\u0430 ! (!txt, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440). \u0421\u043f\u0443\u0441\u0442\u0438\u0432\u0448\u0438\u0441\u044c \u0447\u0443\u0442\u044c \u043f\u043e\u043d\u0438\u0436\u0435 \u043c\u044b, \u043c\u043e\u0436\u0435\u0442 \u043d\u0430\u0439\u0442\u0438 \u044d\u043a\u0432\u0438\u0432\u0430\u043b\u0435\u043d\u0442\u044b \u044d\u0442\u0438\u0445 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0439 \u0442\u0438\u043f\u0430 .txt (\u043f\u0435\u0440\u0435\u0434 \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0435\u043c \u0441\u0442\u043e\u0438\u0442 \u0442\u043e\u0447\u043a\u0430). \u0412 \u044d\u0442\u0438\u0445 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f\u0445 \u043c\u044b \u0441\u0441\u044b\u043b\u0430\u0435\u043c\u044f \u043d\u0430 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f \u0442\u0438\u043f\u0430 !txt, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043d\u0430\u0445\u043e\u0434\u044f\u0442\u0441\u044f \u0432 \u0441\u0430\u043c\u043e\u043c \u043d\u0430\u0447\u0430\u043b\u0435 \u0438 \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u0442 \u043e\u0441\u043d\u043e\u0432\u043d\u0443\u044e \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u043e \"\u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0435 \u043f\u043e \u0443\u043c\u043e\u043b\u0447\u0430\u043d\u0438\u044e\" \u0438 \u0438\u043a\u043e\u043d\u043a\u0435 \u044d\u0442\u043e\u0439 \u043f\u0440\u043e\u0433\u0438. \u0422\u0430\u043a \u0432\u043e\u0442, \u043e\u0442\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u0440\u0430\u0437\u0434\u0435\u043b !txt, \u0441 \u043a\u043e\u0442\u043e\u0440\u044b\u043c \u043c\u044b \u0431\u0443\u0434\u0435\u043c \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c, \u0438 \u0447\u0442\u043e \u0436\u0435 \u043c\u044b \u0432\u0438\u0434\u0438\u043c: \u0440\u0430\u0437\u0434\u0435\u043b defaulti\ncon, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442\u0441\u044f \u0441\u0442\u0440\u043e\u043a\u043e\u0432\u043e\u0439 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0441 \u0430\u0434\u0440\u0435\u0441\u043e\u043c \u0438\u043a\u043e\u043d\u043a\u0438 \u043f\u0440\u043e\u0433\u0438 + , 0 \u0438 \u0440\u0430\u0437\u0434\u0435\u043b \u0442\u0438\u043f\u0430 shell->open->command. \u0412 \u0440\u0430\u0437\u0434\u0435\u043b\u0435 command \u0442\u043e\u0436\u0435 \u0441\u0442\u0440\u043e\u043a\u043e\u0432\u043e\u0439 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0441\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435\u043c \u0430\u0434\u0440\u0435\u0441\u0430 \"\u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u043f\u043e \u0443\u043c\u043e\u043b\u0447\u0430\u043d\u0438\u044e\", \u043f\u043e\u0441\u043b\u0435 \u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u0441\u0442\u043e\u0438\u0442 \"%1\". \u0417\u043d\u0430\u0447\u0438\u0442 \u043d\u0430\u043c \u043d\u0443\u0436\u043d\u043e \u0442\u043e\u043b\u044c\u043a\u043e \u0438\u0437\u043c\u0435\u043d\u0438\u0442\u044c \u0430\u0434\u0440\u0435\u0441 \u043f\u0440\u043e\u0433\u0438 \u0438 \u0438\u043a\u043e\u043d\u043a\u0438 \u0438 \u0433\u043e\u0442\u043e\u0432\u043e \u0434\u0435\u043b\u043e. \u0412 \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u0435 \u0434\u0430, \u043d\u043e \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0438\u0442\u0435 \u0432 \u0440\u0430\u0437\u0434\u0435\u043b .txt - \u0432 \u043d\u0435\u043c \u0445\u0440\u0430\u043d\u0438\u0442\u0441\u044f \u0441\u0442\u0440\u043e\u043a\u043e\u0432\u043e\u0439 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0441\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435\u043c, \u0441\u0441\u044b\u043b\u0430\u044e\u0449\u0438\u043c\u044f \u043d\u0430 \u0440\u0430\u0437\u0434\u0435\u043b !txt, \u0442.\u0435. \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 !txt.\n\n\u0417\u043d\u0430\u0447\u0438\u0442 \u043d\u0430\u043c \u043d\u0443\u0436\u043d\u043e, \u0447\u0442\u043e\u0431\u044b \u044d\u0442\u043e\u0442 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0442\u043e\u0436\u0435 \u043f\u0440\u0438\u0441\u0443\u0442\u0441\u0442\u0432\u043e\u0432\u0430\u043b - \u0432\u0434\u0440\u0443\u0433 \u043a\u0442\u043e-\u043d\u0438\u0431\u0443\u0434\u044c \u043d\u0435\u0447\u0430\u044f\u043d\u043d\u043e \u0435\u0433\u043e \u0443\u0434\u0430\u043b\u0438\u0442...\n\n\u0414\u0435\u0439\u0441\u0442\u0432\u0438\u0435 1: \u0410\u0441\u0441\u043e\u0446\u0438\u0430\u0446\u0438\u044f \u0441 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435\u043c .txt\n\n\u041a\u043e\u0440\u043e\u0447\u0435 \u043f\u0440\u0438\u0441\u0442\u0443\u043f\u0430\u0435\u043c \u043a \u0440\u0435\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u0438 \u0444\u0443\u043d\u043a\u0446\u0438\u0438, \u0430\u0441\u0441\u043e\u0446\u0438\u0438\u0440\u0443\u044e\u0449\u0435\u0439 \u043d\u0430\u0448\u0443 \u043f\u0440\u043e\u0433\u0443 \u0438 \u0435\u0451 \u0438\u043a\u043e\u043d\u043a\u0443 \u0441 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435\u043c .txt. \u0414\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u043c\u044b \u0441\u043e\u0437\u0434\u0430\u0434\u0438\u043c \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 \u043f\u043e\u0434 \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0435\u043c fileass,\u0430 \u0442\u0430\u043a\u0436\u0435 \u0437\u0430\u043d\u0435\u0441\u0435\u043c \u043c\u043e\u0434\u0443\u043b\u044c registry, \u043e\u0442\u0432\u0435\u0447\u0430\u044e\u0449\u0438\u0439 \u0437\u0430 \u0440\u0430\u0431\u043e\u0442\u0443 \u0441 \u0440\u0435\u0435\u0441\u0442\u0440\u043e\u043c.\n\nuses registry;\/\/ \u044d\u0442\u043e \u043e\u0431\u044f\u0437\u0430\u0442\u0435\u043b\u044c\u043d\u043e\nprivate \/\/ \u0437\u0430\u043d\u043e\u0441\u0438\u043c \u0435\u0435 \u0432\u043e\u0442 \u0441\u044e\u0434\u0430\nprocedure fileass; \/\/ \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0437\u0430\u043d\u043e\u0441\u0438\u0442 \u0432\u0441\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u0430\u0441\u0441\u043e\u0446\u0438\u0430\u0446\u0438\u0438 \u0441 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435\u043c .txt \u0432 \u0440\u0435\u0435\u0441\u0442\u0440 \u0438\u043b\u0438 \u0443\u0434\u0430\u043b\u044f\u0435\u0442 \u0438\u0445\n\n\n\u041e\u043d\u0430 \u0431\u0443\u0434\u0435\u0442 \u043e\u0442\u0432\u0435\u0447\u0430\u0442\u044c \u0437\u0430 \u0438\u043d\u0442\u0435\u0433\u0440\u0430\u0446\u0438\u044e \u0438\u043b\u0438 \u0434\u0438\u0437\u0438\u043d\u0442\u0435\u0433\u0440\u0430\u0446\u0438\u044e \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f .txt. \u041d\u0443 \u0432\u043f\u0440\u043e\u0447\u0435\u043c, \u0432\u0441\u0435 \u043f\u043e\u043d\u044f\u0442\u043d\u043e \u0438\u0437 \u043b\u0438\u0441\u0442\u0438\u043d\u0433\u0430 \u0441 \u043f\u043e\u0434\u0440\u043e\u0431\u043d\u044b\u043c\u0438 \u043a\u043e\u043c\u043c\u0435\u043d\u0442\u0430\u0440\u0438\u044f\u043c\u0438:\n\nprocedure tform9.fileass;\nvar reg:tregistry; \/\/ \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f, \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u0443\u044e\u0449\u0430\u044f \u0440\u0435\u0435\u0441\u0442\u0440\nbegin\nif txt.checked then \/\/ \u0435\u0441\u043b\u0438 \u0444\u043b\u0430\u0444\u043e\u043a \u0432\u043a\u043b\u044e\u0447\u0435\u043d, \u0442\u043e\nbegin\n\/\/ \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u0443\u0435\u043c \u0440\u0435\u0435\u0441\u0442\u0440\nreg := tregistry.create;\n\/\/ \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u0433\u043b\u0430\u0432\u043d\u044b\u0439 \u0440\u0430\u0437\u0434\u0435\u043b\nreg.rootkey := hkey_classes_root;\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u043a\u043b\u044e\u0447 \".txt\", \u0435\u0441\u043b\u0438 \u0435\u0433\u043e \u043d\u0435\u0442\nreg.openkey('.txt',true);\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0441\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435\u043c \"!txt\", \u0435\u0441\u043b\u0438 \u0435\u0433\u043e \u043d\u0435\u0442\nreg.writestring('', '!txt');\n\/\/ \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u044d\u0442\u043e\u0442 \u043a\u043b\u044e\u0447\nreg.closekey;\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u043a\u043b\u044e\u0447 \"!txtdefaulticon\"\nreg.openkey('!txtdefaulticon',true);\n\/\/ \u0437\u0430\u043d\u043e\u0441\u0438\u0442\u0441\u044f \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \"\u0438\u043c\u044f \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f, 0\" - \u043f\u0438\u043a\u0442\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u043d\u0430\u0448\u0435\u0439 \u043f\u0440\u043e\u0433\u0438\nreg.writestring('', paramstr(0) + ', 0');\n\/\/ \u0432\u044b\u0445\u043e\u0434\u0438\u043c \u0438\u0437 \u043a\u043b\u044e\u0447\u0430\nreg.closekey;\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u043a\u043b\u044e\u0447 \"!txtshellopencommand\"\nreg.openkey('!txtshellopencommand', true);\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0441\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435\u043c \"\u0438\u043c\u044f \u0444\u0430\u0439\u043b\u0430 \"%1\"\" - \u0430\u0434\u0440\u0435\u0441 \u043d\u0430\u0448\u0435\u0439 \u043f\u0440\u043e\u0433\u0438\nreg.writestring('', paramstr(0) + ' \"%1\"');\n\/\/ \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u043a\u043b\u044e\u0447\nreg.closekey;\n\/\/ \u043e\u0441\u0432\u043e\u0431\u043e\u0436\u0434\u0430\u0435\u043c \u0440\u0435\u0435\u0441\u0442\u0440, \u043d\u043e \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0438 \u0441\u043e\u0445\u0440\u0430\u043d\u044f\u0435\u043c\nreg.free;\nend;\n\nif not txt.checked then \/\/ \u0435\u0441\u043b\u0438 \u0444\u043b\u0430\u0436\u043e\u043a \u043e\u0442\u043a\u043b\u044e\u0447\u0435\u043d,\u0442\u043e\nbegin\n\/\/ \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u0443\u0435\u043c \u0440\u0435\u0435\u0441\u0442\u0440\nreg := tregistry.create;\n\/\/ \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u0433\u043b\u0430\u0432\u043d\u044b\u0439 \u0440\u0430\u0437\u0434\u0435\u043b\nreg.rootkey := hkey_classes_root;\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u043a\u043b\u044e\u0447 \".txt\"\nreg.openkey('.txt',true);\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0441\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435\u043c \"!txt\"\nreg.writestring('', '!txt');\n\/\/ \u0432\u044b\u0445\u043e\u0434\u0438\u043c\nreg.closekey;\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u043a\u043b\u044e\u0447 \"!txtdefaulticon\"\nreg.openkey('!txtdefaulticon',true);\n\/\/ \u0437\u0430\u043d\u043e\u0441\u0438\u0442\u0441\u044f \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \"\u0438\u043c\u044f \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f, 0\" - \u043f\u0438\u043a\u0442\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u0431\u043b\u043e\u043a\u043d\u043e\u0442\u0430\nreg.writestring('', 'notepad.exe' + ', 0');\n\/\/ \u0432\u044b\u0445\u043e\u0434\u0438\u043c\nreg.closekey;\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u043a\u043b\u044e\u0447 \"!txtshellopencommand\"\nreg.openkey('!txtshellopencommand', true);\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0441\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435\u043c \"\u0438\u043c\u044f \u0444\u0430\u0439\u043b\u0430 %1\" - \u0430\u0434\u0440\u0435\u0441 \u0431\u043b\u043e\u043a\u043d\u043e\u0442\u0430\nreg.writestring('', 'notepad.exe' + ' \"%1\"');\n\/\/ \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u043a\u043b\u044e\u0447\nreg.closekey;\n\/\/ \u043e\u0441\u0432\u043e\u0431\u043e\u0436\u0434\u0430\u0435\u043c \u0440\u0435\u0435\u0441\u0442\u0440, \u043d\u043e \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0438 \u0441\u043e\u0445\u0440\u0430\u043d\u044f\u0435\u043c\nreg.free;\nend;\nend;\n\n\u0412 \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u0435 \u0432\u0441\u0435... 1-\u044f (\u0438 \u0441\u0430\u043c\u0430\u044f \u0433\u043b\u0430\u0432\u043d\u0430\u044f) \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0433\u043e\u0442\u043e\u0432\u0430. \u0422\u043e\u043b\u044c\u043a\u043e \u0432 \u0430\u0434\u0440\u0435\u0441\u0435 \u0438\u043a\u043e\u043d\u043a\u0438 \u044f \u0443\u043a\u0430\u0437\u0430\u043b \u0430\u0434\u0440\u0435\u0441 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b (paramstr(0)), \u043f\u043e\u0442\u043e\u043c\u0443 \u0447\u0442\u043e \u044f \u0443\u0436\u0435 \u043f\u043e\u0434\u0433\u043e\u0442\u043e\u0432\u0438\u043b \u043d\u043e\u0432\u0443\u044e \u0438\u043a\u043e\u043d\u043a\u0443, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u043e\u0431\u043e\u0437\u043d\u0430\u0447\u0430\u0435\u0442 \u043c\u043e\u0439 \u0442\u0435\u043a\u0441\u0442\u043e\u0432\u044b\u0439 \u044d\u0434\u0438\u0442\u043e\u0440. \u0415\u0441\u043b\u0438 \u0432\u044b \u043d\u0438\u0447\u0435\u0433\u043e \u043d\u0435 \u0441\u0434\u0435\u043b\u0430\u0435\u0442\u0435. \u041f\u043e\u0434 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435\u043c .txt \u0431\u0443\u0434\u0435\u0442 \u043f\u043e\u0434\u0440\u0430\u0437\u0443\u043c\u0435\u0432\u0430\u0442\u044c\u0441\u044f \u0432\u0430\u0448\u0430 \u043f\u0440\u043e\u0433\u0430 \u0441 \u0438\u043a\u043e\u043d\u043a\u043e\u0439 delphi. \u0422\u0430\u043a \u0447\u0442\u043e \u0443\u043a\u0430\u0436\u0438\u0442\u0435 \u043f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u044b\u0439 \u043f\u0443\u0442\u044c \u0432 \u043a\u043b\u044e\u0447\u0435 defaulticon.\n\n\u0414\u0435\u0439\u0441\u0442\u0432\u0438\u0435 2: \u0420\u0435\u0433\u0438\u0441\u0442\u0440\u0430\u0446\u0438\u044f \u0441\u0432\u043e\u0435\u0433\u043e \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f\n\n\u0422\u0435\u043f\u0435\u0440\u044c \u0441\u0434\u0435\u043b\u0430\u0435\u043c \u0441\u0430\u043c\u0438 \u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0430\u0446\u0438\u044e \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0439 (\u0437\u0430 \u044d\u0442\u043e, \u043a\u0430\u043a \u043c\u044b \u043f\u043e\u043c\u043d\u0438\u043c, \u0443 \u043d\u0430\u0441 \u043e\u0442\u0432\u0435\u0447\u0430\u044e\u0442 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442\u044b extension, createext,deleteext). \u0414\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u043c\u044b \u0441\u043e\u0437\u0434\u0430\u0434\u0438\u043c \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 newext. \u0410 \u0437\u0430 \u0434\u0438\u0437\u0438\u043d\u0442\u0435\u0433\u0440\u0430\u0446\u0438\u044e \u0443 \u043d\u0430\u0441 \u0431\u0443\u0434\u0435\u0442 \u043e\u0442\u0432\u0435\u0447\u0430\u0442\u044c \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 delext. \u041a\u0430\u043a \u0432\u0441\u0435\u0433\u0434\u0430 \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u0438\u0445 \u0432 \u0440\u0430\u0437\u0434\u0435\u043b private \u0438 \u043f\u043e\u0442\u043e\u043c \u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c.\n\nprivate\nprocedure fileass;\nprocedure newext; \/\/ \u0438\u043d\u0442\u0435\u0433\u0440\u0438\u0440\u0443\u0435\u0442 \u043d\u0430\u0448\u0435 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435\nprocedure delext; \/\/ \u0434\u0438\u0437\u0438\u043d\u0442\u0435\u0433\u0440\u0438\u0440\u0443\u0435\u0442 \u043d\u0430\u0448\u0435 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435\n\nprocedure tform2.newext;\nvar reg:tregistry; \/\/ \u043d\u0430\u0448\u0430 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0440\u0435\u0435\u0441\u0442\u0440\u043e\u043c\nbegin\n\/\/ \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u0443\u0435\u043c \u0435\u0451\nreg:=tregistry.create;\n\/\/ \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u043d\u0430\u0447\u0430\u043b\u044c\u043d\u044b\u0439 \u0440\u0430\u0437\u0434\u0435\u043b\nreg.rootkey:=hkey_classes_root;\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043a\u043b\u044e\u0447 \u0442\u0438\u043f\u0430 \".\u043d\u0430\u0448\u0435 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435\"\nreg.openkey('.'+extension.text,true);\n\/\/ \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0432 \u043d\u0435\u043c \u0441\u0441\u044b\u043b\u043a\u0443 \u043d\u0430 \u043a\u043b\u044e\u0447 \u0442\u0438\u043f\u0430 \"!.\u043d\u0430\u0448\u0435 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435\"\nreg.writestring('','!'+extension.text);\n\/\/ \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u043a\u043b\u044e\u0447\nreg.closekey;\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043a\u043b\u044e\u0447 \u0442\u0438\u043f\u0430 \"!.\u043d\u0430\u0448\u0435 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435defaulticon\"\nreg.openkey('!'+extension.text+'defaulticon',true);\n\/\/ \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0442\u0443\u0434\u0430 \u0438\u043a\u043e\u043d\u043a\u0443 \u043d\u0430\u0448\u0435\u0439 \u043f\u0440\u043e\u0433\u0438\nreg.writestring('',paramstr(0)+', 0');\n\/\/ \u0432\u044b\u0445\u043e\u0434\u0438\u043c\nreg.closekey;\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043a\u043b\u044e\u0447 \u0442\u0438\u043f\u0430 \"!.\u043d\u0430\u0448\u0435 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435shellopencommand\"\nreg.openkey('!'+extension.text+'shellopencommand',true);\n\/\/ \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0432 \u043d\u0435\u0433\u043e \u0430\u0434\u0440\u0435\u0441 \u043f\u0440\u043e\u0433\u0438\nreg.writestring('',paramstr(0)+' \"1\"');\n\/\/ \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u043a\u043b\u044e\u0447\nreg.closekey;\n\/\/ \u0443\u0431\u0438\u0440\u0430\u0435\u043c\u0441\u044f, \u043d\u043e \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0438 \u0441\u043e\u0445\u0440\u0430\u043d\u044f\u0435\u043c\nreg.free;\nend;\n\n\u0412\u0442\u043e\u0440\u0430\u044f \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u043a\u0430:\n\nprocedure tform2.delext;\nvar reg:tregistry; \/\/ \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u0443\u0435\u043c \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0440\u0435\u0435\u0441\u0442\u0440\u043e\u043c\nbegin\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043a\u043b\u0430\u0441\u0441 \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0440\u0435\u0435\u0441\u0442\u0440\u043e\u043c\nreg:=tregistry.create;\n\/\/ \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u043d\u0430\u0447\u0430\u043b\u044c\u043d\u044b\u0439 \u0440\u0430\u0437\u0434\u0435\u043b\nreg.rootkey:=hkey_classes_root;\n\/\/ \u0443\u0434\u0430\u043b\u044f\u0435\u043c \u043a\u043b\u044e\u0447 \u0442\u0438\u043f\u0430 \".\u043d\u0430\u0448\u0435 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435\"\nreg.deletekey('.'+extension.text);\n\/\/ \u0443\u0434\u0430\u043b\u044f\u0435\u043c \u043a\u043b\u044e\u0447 \u0442\u0438\u043f\u0430 \"!\u043d\u0430\u0448\u0435 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435\"\nreg.deletekey('!'+extension.text);\n\/\/ \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c\u0441\u044f\nreg.closekey;\n\/\/ \u0432\u044b\u0440\u0443\u0431\u0430\u0435\u043c \u0432\u0441\u0435, \u043d\u043e \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0438 \u0441\u043e\u0445\u0440\u0430\u043d\u044f\u0435\u043c\nreg.free;\nend;\n\n\u0414\u0435\u0439\u0441\u0442\u0432\u0438\u0435 3: \u0414\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u0438\u0435 \u043f\u0443\u043d\u043a\u0442\u0430 \u0432 \u043a\u043e\u043d\u0442\u0435\u043a\u0441\u0442\u043d\u043e\u0435 \u043c\u0435\u043d\u044e windows\n\n\u0412\u043e\u0442 \u0438 \u0432\u0442\u043e\u0440\u0430\u044f \u0447\u0430\u0441\u0442\u044c \u043d\u0430\u0448\u0435\u0433\u043e \u0434\u043e\u0431\u0440\u043e\u0433\u043e \u0434\u0435\u043b\u0430 \u0433\u043e\u0442\u043e\u0432\u0430. \u041e\u0441\u0442\u0430\u043b\u0430\u0441\u044c \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u044f\u044f, \u043e\u0442\u0432\u0435\u0447\u0430\u044e\u0449\u0430\u044f \u0437\u0430 \u0434\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u0438\u0435, \u0443\u0434\u0430\u043b\u0435\u043d\u0438\u044f \u043f\u0443\u043d\u043a\u0442\u0430 \u043a\u043e\u043d\u0442\u0435\u043a\u0441\u0442\u043d\u043e\u0433\u043e \u043c\u0435\u043d\u044e. \u0417\u0430 \u044d\u0442\u043e \u0443 \u043d\u0430\u0441 (\u0430 \u043d\u0443 \u043a\u0430 \u0432\u0441\u043f\u043e\u043c\u043d\u0438\u043b\u0438:) \u043e\u0442\u0432\u0435\u0447\u0430\u044e\u0442 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442\u044b context \u0438 contextstr. \u041d\u0443 \u044f \u043a\u0430\u043a \u0432\u0441\u0435\u0433\u0434\u0430 \u0441\u043e\u0437\u0434\u0430\u043b \u043d\u043e\u0432\u0443\u044e \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 checkcontext \u0438 \u043d\u0430\u043f\u0438\u0441\u0430\u043b \u0432 \u043d\u0435\u0439...\n\nprivate\nprocedure fileass;\nprocedure newext;\nprocedure delext;\nprocedure checkcontext; \/\/ \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u0442, \u043d\u0430\u0436\u0430\u0442 \u043b\u0438 \u0444\u043b\u0430\u0436\u043e\u043a, \u0432 \u0441\u043b\u0443\u0447\u0430\u0435 \u0443\u0441\u043f\u0435\u0445\u0430 \u0441\u043e\u0437\u0434\u0430\u0435\u0442 \u043f\u0443\u043d\u043a\u0442 \u043a\u043e\u043d\u0442\u0435\u043a\u0441\u0442\u0430, \u0432 \u0441\u043b\u0443\u0447\u0430\u0435 \u043d\u0435\u0443\u0441\u043f\u0435\u0445\u0430 \u0443\u0434\u0430\u043b\u044f\u0435\u0442 \u0435\u0433\u043e\n\n\nprocedure tform2.checkcontext;\nvar reg:tregistry; \/\/ \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u0443\u0435\u043c \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0440\u0435\u0435\u0441\u0442\u0440\u043e\u043c\nbegin\n\/\/ \u0435\u0441\u043b\u0438 \u0444\u043b\u0430\u0436\u043e\u043a \u0432\u043a\u043b\u044e\u0447\u0435\u043d, \u0442\u043e\nif context.checked then\nbegin\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043a\u043b\u0430\u0441\u0441 \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0440\u0435\u0435\u0441\u0442\u0440\u043e\u043c\nreg:=tregistry.create;\n\/\/ \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u043d\u0430\u0447\u0430\u043b\u044c\u043d\u044b\u0439 \u0440\u0430\u0437\u0434\u0435\u043b\nreg.rootkey:=hkey_classes_root;\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043a\u043b\u044e\u0447 \u0442\u0438\u043f\u0430 \"*shell\u043b\u044e\u0431\u043e\u0435 \u0432\u0430\u0448\u0435 \u0441\u043b\u043e\u0432\u043e\"\nreg.openkey('*shellopenwithmakseditor',true);\n\/\/ \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0432 \u043d\u0435\u0433\u043e \u0441\u0442\u0440\u043e\u043a\u043e\u0432\u043e\u0439 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0442\u0438\u043f\u0430 \"\u043b\u044e\u0431\u043e\u0435 \u0432\u0430\u0448\u0435 \u0441\u043b\u043e\u0432\u043e\"\nreg.writestring('','openwithmakseditor');\n\/\/ \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0432 \u043d\u0435\u0433\u043e \u0441\u0442\u0440\u043e\u043a\u043e\u0432\u043e\u0439 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0442\u0438\u043f\u0430 \"\u043f\u0443\u043d\u043a\u0442 \u043a\u043e\u043d\u0442\u0435\u043a\u0441\u0442\u0430\"\nreg.writestring('',contextstr.text);\n\/\/ \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u043a\u043b\u044e\u0447\nreg.closekey;\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043a\u043b\u044e\u0447 \u0442\u0438\u043f\u0430 \"*shellopenwithmakseditorcommand\"\nreg.openkey('*shellopenwithmakseditorcommand',true);\n\/\/ \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0432 \u043d\u0435\u0433\u043e \u0441\u0442\u0440\u043e\u043a\u043e\u0432\u043e\u0439 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0442\u0438\u043f\u0430 \"command\"\nreg.writestring('','command');\n\/\/ \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0432 \u043d\u0435\u0433\u043e \u0442\u0430\u043a\u0436\u0435 \u0441\u0442\u0440\u043e\u043a\u043e\u0432\u043e\u0439 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0442\u0438\u043f\u0430\"\u0430\u0434\u0440\u0435\u0441 \u043f\u0440\u043e\u0433\u0438+\" %1\"\"\nreg.writestring('',paramstr(0)+' \"1%\"');\n\/\/ \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u043a\u043b\u044e\u0447\nreg.closekey;\n\/\/ \u0432\u044b\u0440\u0443\u0431\u0430\u0435\u043c \u0432\u0435\u0441\u044c \u043a\u043e\u043d\u0442\u0435\u043a\u0441\u0442\u043d\u044b\u0439 \u043f\u043b\u0430\u0433\u0438\u043d \u043d\u0430\u0445\u0440\u0435\u043d, \u0430 \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0438 \u043e\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u043c\nreg.free;\nend else\nif not context.checked then \/\/ \u0438\u043d\u0430\u0447\u0435, \u0435\u0441\u043b\u0438 \u0444\u043b\u0430\u0436\u043e\u043a \u043e\u0442\u043a\u043b\u044e\u0447\u0435\u043d\nbegin\n\/\/ \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u0443\u0435\u043c \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0440\u0435\u0435\u0441\u0442\u0440\u043e\u043c\nreg:=tregistry.create;\n\/\/ \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u043d\u0430\u0447\u0430\u043b\u044c\u043d\u0430\u0439 \u0440\u0430\u0437\u0434\u0435\u043b\nreg.rootkey:=hkey_classes_root;\n\/\/ \u0443\u0434\u0430\u043b\u0435\u043d\u0438\u0435 \u043a\u043b\u044e\u0447\u0430 \u0442\u0438\u043f\u0430 \"*shell\u043b\u044e\u0431\u043e\u0435 \u0441\u043b\u043e\u0432\u043e\"\nreg.deletekey('*shellopenwithmakseditor');\n\/\/ \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u0440\u0435\u0435\u0441\u0442\u0440\nreg.closekey;\n\/\/ \u0443\u0445\u043e\u0434\u0438\u043c\nreg.free;\nend;\nend;\n\n\u0412\u043e\u0442 \u0438 \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u044f\u044f \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u043a\u0430 \u0433\u043e\u0442\u043e\u0432\u0430, \u043a\u0430\u043a \u0432\u0438\u0434\u043d\u043e, \u0437\u0434\u0435\u0441\u044c \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u0442\u0441\u044f, \u0432\u043a\u043b\u044e\u0447\u0435\u043d \u043b\u0438 \u0444\u043b\u0430\u0436\u043e\u043a: \u0435\u0441\u043b\u0438 \u0432\u043a\u043b\u044e\u0447\u0435\u043d, \u0442\u043e \u043f\u0443\u043d\u043a\u0442, \u0432\u0432\u0435\u0434\u0435\u043d\u043d\u044b\u0439 \u0432 context, \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f, \u0435\u0441\u043b\u0438 \u0432\u044b\u043a\u043b\u044e\u0447\u0435\u043d, \u0442\u043e \u043f\u0443\u043d\u043a\u0442, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0431\u044b\u043b \u043f\u0440\u0435\u0434\u0432\u0430\u0440\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u0441\u043e\u0437\u0434\u0430\u043d - \u0443\u0434\u0430\u043b\u044f\u0435\u0442\u0441\u044f. \u041d\u043e \u043c\u044b \u0435\u0449\u0435 \u0437\u0430\u0431\u044b\u043b\u0438 \u0441\u0430\u043c\u043e\u0435 \u0433\u043b\u0430\u0432\u043d\u043e\u0435: \u0432\u0435\u0434\u044c \u0443 \u043d\u0430\u0441 \u0435\u0441\u0442\u044c \u0442\u043e\u043b\u044c\u043a\u043e \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b: \u0430 \u0432\u0435\u0434\u044c \u0438\u0445 \u0435\u0449\u0435 \u043d\u0430\u0434\u043e \u043f\u043e\u0434\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u043a\u0443\u0434\u0430-\u043d\u0438\u0431\u0443\u0434\u044c, \u0447\u0442\u043e\u0431\u044b \u043e\u043d\u0438 \u0440\u0430\u0431\u043e\u0442\u0430\u043b\u0438. \u041a\u043e\u0440\u043e\u0447\u0435, \u043f\u043e\u0434\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u043c \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443, \u043e\u0442\u0432\u0435\u0447\u0430\u044e\u0449\u0443\u044e \u0437\u0430 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u043d\u043e\u0432\u043e\u0433\u043e \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f (newext) \u0432 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442 createext (\u043a\u043d\u043e\u043f\u043a\u0430), \u0444\u0443\u043d\u043a\u0446\u0438\u044e, \u043e\u0442\u0432\u0435\u0447\u0430\u044e\u0449\u0443\u044e \u0437\u0430 \u0443\u0434\u0430\u043b\u0435\u043d\u0438\u0435 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f (delext) \u0432 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442 deleteext (\u043a\u043d\u043e\u043f\u043a\u0430). \u0410 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443, \u0430\u0441\u0441\u043e\u0446\u0438\u0438\u0440\u0443\u044e\u0449\u0443\u044e \u0432\u0430\u0448\u0443 \u043f\u0440\u043e\u0433\u0443 \u0441 .txt (fileass) \u0438 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f, \u0443\u0434\u0430\u043b\u0435\u043d\u0438\u044f \u043f\u0443\u043d\u043a\u0442\u0430 \u043a\u043e\u043d\u0442\u0435\u043a\u0441\u0442\u0430 (checkcontext) \u0432 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442 gues (\u043a\u043d\u043e\u043f\u043a\u0430) - \u0432\u043e\u0442 \u043e\u043d\u0430 \u0438 \u043f\u0440\u0438\u0433\u043e\u0434\u0438\u043b\u0430\u0441\u044c, \u043e\u043d\u0430 \u0431\u0443\u0434\u0435\u0442 \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0442\u044c \u0444\u043e\u0440\u043c\u0443, \u043f\u0440\u0435\u0434\u0432\u0430\u0440\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u0441\u0434\u0435\u043b\u0430\u0432 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044f, \u043f\u0440\u043e\u0434\u0435\u043a\u043b\u0430\u0440\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0435 \u0432\u044b\u0448\u0435! \u041d\u0443 \u043a\u043e\u043d\u0435\u043d\u043e \u0432\u0441\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u043d\u0430\u0434\u043e \u043f\u0440\u043e\u043f\u0438\u0441\u0430\u0442\u044c \u0432 \u0441\u043e\u0431\u044b\u0442\u0438\u0438 onclick \u043a\u043d\u043e\u043f\u043e\u043a:\n\n\/\/ \u0440\u0435\u0430\u043a\u0446\u0438\u044f \u043a\u043d\u043e\u043f\u043a\u0438 \u043d\u0430 \u043a\u043b\u0438\u043a \u043c\u044b\u0448\u044c\u044e - \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f\nprocedure tform2.createextclick(sender: tobject);\nbegin\nnewext;\nend;\n\n\/\/ \u0440\u0435\u0430\u043a\u0446\u0438\u044f \u043a\u043d\u043e\u043f\u043a\u0438 \u043d\u0430 \u043a\u043b\u0438\u043a \u043c\u044b\u0448\u044c\u044e - \u0443\u0434\u0430\u043b\u0435\u043d\u0438\u0435 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f\nprocedure tform2.deleteextclick(sender: tobject);\nbegin\ndelext;\nend;\n\n\/\/ \u0440\u0435\u0430\u043a\u0446\u0438\u044f \u043a\u043d\u043e\u043f\u043a\u0438 \u043d\u0430 \u043a\u043b\u0438\u043a \u043c\u044b\u0448\u044c\u044e - \u0430\u0441\u0441\u043e\u0446\u0438\u0430\u0446\u0438\u044f \u0441 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435\u043c .txt \u0438 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0435\/\u0443\u0434\u0430\u043b\u0435\u043d\u0438\u0435 \u043f\u0443\u043d\u043a\u0442\u0430 \u0432 \u043a\u043e\u043d\u0442\u0435\u043a\u0441\u0442\u0435\nprocedure tform2.guesclick(sender: tobject);\nbegin\nfileass;\ncheckcontext;\nclose;\nend;\n\n\u041d\u0443 \u0432\u043e\u0442 \u0432 \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u0435 \u0438 \u0432\u0441\u0435... \u043a\u043e\u043d\u0435\u0447\u043d\u043e \u043c\u043e\u0436\u043d\u043e \u0431\u044b\u043b\u043e \u043f\u0440\u043e\u0441\u0442\u043e \u0437\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u043a\u043e\u0434\u044b 4 \u0432\u044b\u0448\u0435\u0441\u043a\u0430\u0437\u0430\u043d\u043d\u044b\u0445 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440 \u0432 \u0441\u043e\u0431\u044b\u0442\u0438\u044f onclick \u043a\u043d\u043e\u043f\u043e\u043a, \u043d\u043e \u044d\u0442\u043e \u043d\u0435 \u0435\u0441\u0442\u044c \u0441\u0430\u043c\u044b\u0439 \u0443\u0434\u043e\u0431\u043d\u044b\u0439 \u0441\u043f\u043e\u0441\u043e\u0431...\n\n\u0418 \u0432 \u0437\u0430\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u0435 \u043f\u0440\u0438\u0432\u0435\u0434\u0443 \u0432\u0435\u0441\u044c \u043a\u043e\u0434 \u043f\u0440\u043e\u0433\u0438:\n\ninterface\n\nuses\nwindows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls,registry;\n\ntype\ntform2 = class(tform)\nextension: tedit;\ngues: tbutton;\ntxt: tcheckbox;\ncontext: tcheckbox;\ncontextstr: tedit;\ncreateext: tbutton;\ndeleteext: tbutton;\nprocedure guesclick(sender: tobject);\nprocedure createextclick(sender: tobject);\nprocedure deleteextclick(sender: tobject);\nprivate\nprocedure fileass;\nprocedure newext;\nprocedure delext;\nprocedure checkcontext;\npublic\n{ public declarations }\nend;\n\nvar\nform2: tform2;\n\nimplementation\n\n{$r *.dfm}\n\nprocedure tform2.fileass;\nvar reg:tregistry;\nbegin\nreg:=tregistry.create;\nif txt.checked then\nbegin\nreg := tregistry.create;\nreg.rootkey := hkey_classes_root;\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u043a\u043b\u044e\u0447 \".my\"\nreg.openkey('.txt',true);\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0441\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435\u043c \"myfile\"\nreg.writestring('', '!txt');\nreg.closekey;\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u043a\u043b\u044e\u0447 \"myfiledefaulticon\"\nreg.openkey('!txtdefaulticon',true);\n\/\/ \u0437\u0430\u043d\u043e\u0441\u0438\u0442\u0441\u044f \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \"\u0438\u043c\u044f \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f, 0\" - \u043f\u0438\u043a\u0442\u043e\u0433\u0440\u0430\u043c\u043c\u0430\nreg.writestring('', application.exename + ', 0');\nreg.closekey;\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u043a\u043b\u044e\u0447 \"myfileshellopencommand\"\nreg.openkey('!txtshellopencommand', true);\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0441\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435\u043c \"\u0438\u043c\u044f \u0444\u0430\u0439\u043b\u0430 %1\"\nreg.writestring('', paramstr(0) + ' \"%1\"');\nreg.closekey;\nreg.free;\nend;\n\nif not txt.checked then\nbegin\nreg := tregistry.create;\nreg.rootkey := hkey_classes_root;\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u043a\u043b\u044e\u0447 \".my\"\nreg.openkey('.txt',true);\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0441\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435\u043c \"myfile\"\nreg.writestring('', '!txt');\nreg.closekey;\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u043a\u043b\u044e\u0447 \"myfiledefaulticon\"\nreg.openkey('!txtdefaulticon',true);\n\/\/ \u0437\u0430\u043d\u043e\u0441\u0438\u0442\u0441\u044f \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \"\u0438\u043c\u044f \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f, 0\" - \u043f\u0438\u043a\u0442\u043e\u0433\u0440\u0430\u043c\u043c\u0430\nreg.writestring('', 'notepad.exe' + ', 0');\nreg.closekey;\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u043a\u043b\u044e\u0447 \"myfileshellopencommand\"\nreg.openkey('!txtshellopencommand', true);\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0441\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435\u043c \"\u0438\u043c\u044f \u0444\u0430\u0439\u043b\u0430 %1\"\nreg.writestring('', 'notepad.exe' + ' \"%1\"');\nreg.closekey;\nreg.free;\nend;\nend;\n\nprocedure tform2.newext;\nvar reg:tregistry; \/\/ \u043d\u0430\u0448\u0430 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0440\u0435\u0435\u0441\u0442\u0440\u043e\u043c\nbegin\n\/\/ \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u0443\u0435\u043c \u0435\u0451\nreg:=tregistry.create;\n\/\/ \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u043d\u0430\u0447\u0430\u043b\u044c\u043d\u044b\u0439 \u0440\u0430\u0437\u0434\u0435\u043b\nreg.rootkey:=hkey_classes_root;\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043a\u043b\u044e\u0447 \u0442\u0438\u043f\u0430 \".\u043d\u0430\u0448\u0435 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435\"\nreg.openkey('.'+extension.text,true);\n\/\/ \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0432 \u043d\u0435\u043c \u0441\u0441\u044b\u043b\u043a\u0443 \u043d\u0430 \u043a\u043b\u044e\u0447 \u0442\u0438\u043f\u0430 \"!.\u043d\u0430\u0448\u0435 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435\"\nreg.writestring('','!'+extension.text);\n\/\/ \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u043a\u043b\u044e\u0447\nreg.closekey;\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043a\u043b\u044e\u0447 \u0442\u0438\u043f\u0430 \"!.\u043d\u0430\u0448\u0435 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435defaulticon\"\nreg.openkey('!'+extension.text+'defaulticon',true);\n\/\/ \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0442\u0443\u0434\u0430 \u0438\u043a\u043e\u043d\u043a\u0443 \u043d\u0430\u0448\u0435\u0439 \u043f\u0440\u043e\u0433\u0438\nreg.writestring('',paramstr(0)+', 0');\n\/\/ \u0432\u044b\u0445\u043e\u0434\u0438\u043c\nreg.closekey;\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043a\u043b\u044e\u0447 \u0442\u0438\u043f\u0430 \"!.\u043d\u0430\u0448\u0435 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435shellopencommand\"\nreg.openkey('!'+extension.text+'shellopencommand',true);\n\/\/ \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0432 \u043d\u0435\u0433\u043e \u0430\u0434\u0440\u0435\u0441 \u043f\u0440\u043e\u0433\u0438\nreg.writestring('',paramstr(0)+' \"1\"');\n\/\/ \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u043a\u043b\u044e\u0447\nreg.closekey;\n\/\/ \u0443\u0431\u0438\u0440\u0430\u0435\u043c\u0441\u044f, \u043d\u043e \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0438 \u0441\u043e\u0445\u0440\u0430\u043d\u044f\u0435\u043c\nreg.free;\nend;\n\nprocedure tform2.delext;\nvar reg:tregistry; \/\/ \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u0443\u0435\u043c \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0440\u0435\u0435\u0441\u0442\u0440\u043e\u043c\nbegin\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043a\u043b\u0430\u0441\u0441 \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0440\u0435\u0435\u0441\u0442\u0440\u043e\u043c\nreg:=tregistry.create;\n\/\/ \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u043d\u0430\u0447\u0430\u043b\u044c\u043d\u044b\u0439 \u0440\u0430\u0437\u0434\u0435\u043b\nreg.rootkey:=hkey_classes_root\n\/\/ \u0443\u0434\u0430\u043b\u044f\u0435\u043c \u043a\u043b\u044e\u0447 \u0442\u0438\u043f\u0430 \".\u043d\u0430\u0448\u0435 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435\"\nreg.deletekey('.'+extension.text);\n\/\/ \u0443\u0434\u0430\u043b\u044f\u0435\u043c \u043a\u043b\u044e\u0447 \u0442\u0438\u043f\u0430 \"!\u043d\u0430\u0448\u0435 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435\"\nreg.deletekey('!'+extension.text);\n\/\/ \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c\u0441\u044f\nreg.closekey;\n\/\/ \u0432\u044b\u0440\u0443\u0431\u0430\u0435\u043c \u0432\u0441\u0435, \u043d\u043e \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0438 \u0441\u043e\u0445\u0440\u0430\u043d\u044f\u0435\u043c\nreg.free;\nend;\n\nprocedure tform2.checkcontext;\nvar reg:tregistry; \/\/ \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u0443\u0435\u043c \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0440\u0435\u0435\u0441\u0442\u0440\u043e\u043c\nbegin\n\/\/ \u0435\u0441\u043b\u0438 \u0444\u043b\u0430\u0436\u043e\u043a \u0432\u043a\u043b\u044e\u0447\u0435\u043d, \u0442\u043e\nif context.checked then\nbegin\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043a\u043b\u0430\u0441\u0441 \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0440\u0435\u0435\u0441\u0442\u0440\u043e\u043c\nreg:=tregistry.create;\n\/\/ \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u043d\u0430\u0447\u0430\u043b\u044c\u043d\u044b\u0439 \u0440\u0430\u0437\u0434\u0435\u043b\nreg.rootkey:=hkey_classes_root;\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043a\u043b\u044e\u0447 \u0442\u0438\u043f\u0430 \"*shell\u043b\u044e\u0431\u043e\u0435 \u0432\u0430\u0448\u0435 \u0441\u043b\u043e\u0432\u043e\"\nreg.openkey('*shellopenwithmakseditor',true);\n\/\/ \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0432 \u043d\u0435\u0433\u043e \u0441\u0442\u0440\u043e\u043a\u043e\u0432\u043e\u0439 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0442\u0438\u043f\u0430 \"\u043b\u044e\u0431\u043e\u0435 \u0432\u0430\u0448\u0435 \u0441\u043b\u043e\u0432\u043e\"\nreg.writestring('','openwithmakseditor');\n\/\/ \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0432 \u043d\u0435\u0433\u043e \u0441\u0442\u0440\u043e\u043a\u043e\u0432\u043e\u0439 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0442\u0438\u043f\u0430 \"\u043f\u0443\u043d\u043a\u0442 \u043a\u043e\u043d\u0442\u0435\u043a\u0441\u0442\u0430\"\nreg.writestring('',contextstr.text);\n\/\/ \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u043a\u043b\u044e\u0447\nreg.closekey;\n\/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043a\u043b\u044e\u0447 \u0442\u0438\u043f\u0430 \"*shellopenwithmakseditorcommand\"\nreg.openkey('*shellopenwithmakseditorcommand',true);\n\/\/ \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0432 \u043d\u0435\u0433\u043e \u0441\u0442\u0440\u043e\u043a\u043e\u0432\u043e\u0439 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0442\u0438\u043f\u0430 \"command\"\nreg.writestring('','command');\n\/\/ \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0432 \u043d\u0435\u0433\u043e \u0442\u0430\u043a\u0436\u0435 \u0441\u0442\u0440\u043e\u043a\u043e\u0432\u043e\u0439 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0442\u0438\u043f\u0430\"\u0430\u0434\u0440\u0435\u0441 \u043f\u0440\u043e\u0433\u0438\"%1\"\"\nreg.writestring('',paramstr(0)+' \"1%\"');\n\/\/ \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u043a\u043b\u044e\u0447\nreg.closekey;\n\/\/ \u0432\u044b\u0440\u0443\u0431\u0430\u0435\u043c \u0432\u0435\u0441\u044c \u043a\u043e\u043d\u0442\u0435\u043a\u0441\u0442\u043d\u044b\u0439 \u043f\u043b\u0430\u0433\u0438\u043d \u043d\u0430\u0445\u0440\u0435\u043d, \u0430 \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0438 \u043e\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u043c\nreg.free;\nend else\nif not context.checked then \/\/ \u0438\u043d\u0430\u0447\u0435, \u0435\u0441\u043b\u0438 \u0444\u043b\u0430\u0436\u043e\u043a \u043e\u0442\u043a\u043b\u044e\u0447\u0435\u043d\nbegin\n\/\/ \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u0443\u0435\u043c \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0440\u0435\u0435\u0441\u0442\u0440\u043e\u043c\nreg:=tregistry.create;\n\/\/ \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u043d\u0430\u0447\u0430\u043b\u044c\u043d\u0430\u0439 \u0440\u0430\u0437\u0434\u0435\u043b\nreg.rootkey:=hkey_classes_root;\n\/\/ \u0443\u0434\u0430\u043b\u0435\u043d\u0438\u0435 \u043a\u043b\u044e\u0447\u0430 \u0442\u0438\u043f\u0430 \"*shell\u043b\u044e\u0431\u043e\u0435 \u0441\u043b\u043e\u0432\u043e\"\nreg.deletekey('*shellopenwithmakseditor');\n\/\/ \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u0440\u0435\u0435\u0441\u0442\u0440\nreg.closekey;\n\/\/ \u0443\u0445\u043e\u0434\u0438\u043c\nreg.free;\nend;\nend;\n\nprocedure tform2.guesclick(sender: tobject);\nbegin\nfileass;\ncheckcontext;\nend;\n\nprocedure tform2.createextclick(sender: tobject);\nbegin\nnewext;\nend;\n\nprocedure tform2.deleteextclick(sender: tobject);\nbegin\ndelext;\nend;\n\nend.\n\n\u041d\u0435\u0431\u043e\u043b\u044c\u0448\u043e\u0435 \u0437\u0430\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u0435, \u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u043d\u0430\u0434\u043e \u043f\u0440\u043e\u0447\u0438\u0442\u0430\u0442\u044c\n\n\u042f \u0440\u0430\u0441\u0441\u043a\u0430\u0437\u0430\u043b \u0432\u0430\u043c \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u043f\u043e\u043b\u0435\u0437\u043d\u044b\u0445 \u0444\u0443\u043d\u043a\u0446\u0438\u0439, \u043d\u043e \u043d\u0435 \u0443\u0447\u0438\u0442\u044b\u0432\u0430\u043b \u0442\u0435 \u0433\u043b\u044e\u043a\u0438, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0432\u044b \u0441\u0440\u0430\u0437\u0443 \u0437\u0430\u043c\u0435\u0442\u0438\u0442\u0435 - \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u044f \u043d\u0435 \u043f\u0440\u043e\u043f\u0438\u0441\u044b\u0432\u0430\u043b \u0441\u043e\u0431\u044b\u0442\u0438\u0435 oncreate \u0438 onclose \u0444\u043e\u0440\u043c\u044b (\u043d\u0443 \u043d\u0430\u0434\u043e \u0436\u0435 \u0441\u043e\u0445\u0440\u0430\u043d\u044f\u0442\u044c \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0438, \u043e\u0442\u0432\u0435\u0447\u0430\u044e\u0449\u0438\u0435 \u0437\u0430 \u0430\u043a\u0442\u0438\u0432\u043d\u043e\u0441\u0442\u044c \u0444\u043b\u0430\u0436\u043a\u043e\u0432 \u0432 \u0418\u043d\u0438\u0444\u0430\u0439\u043b\u0430\u0445, \u0447\u0442\u043e\u0431\u044b \u043d\u0435 \u0431\u044b\u043b\u043e \u043d\u0438\u043a\u0430\u043a\u0438\u0445 \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u0435:). \u042d\u0442\u043e \u0432\u0441\u0435 \u044f \u043e\u0441\u0442\u0430\u0432\u043b\u044f\u044e \u0432\u0430\u043c... \u043d\u0430 \u0443\u0436\u0438\u043d...\n\n\u0415\u0441\u043b\u0438 \u0443 \u0432\u0430\u0441 \u0447\u0442\u043e-\u0442\u043e \u043d\u0435 \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u0441\u044f - \u043f\u0438\u0448\u0438\u0442\u0435 \u0441\u044e\u0434\u0430, \u0432\u0441\u0435\u0433\u0434\u0430 \u0440\u0430\u0434 \u043f\u043e\u043c\u043e\u0447\u044c \u0445\u043e\u0440\u043e\u0448\u0438\u043c \u0447\u0435\u043b\u0430\u043c.\n\n\u0421 \u0443\u0432\u0430\u0436\u0435\u043d\u0438\u0435\u043c, makswell corel86@mail.ru\n\u0418\u0441\u0442\u043e\u0447\u043d\u0438\u043a: http:\/\/www.codingclub.net.ru\n<\/div><\/pre>\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u0412\u0441\u0451 \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f\u043c\u0438 \u0432 Windows \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e Delphi<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[448,458],"tags":[1889,603,650,956],"_links":{"self":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/241"}],"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=241"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/241\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=241"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=241"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=241"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}