{"id":799,"date":"2008-05-28T05:18:06","date_gmt":"2008-05-28T05:18:06","guid":{"rendered":"http:\/\/6teen.ru\/?p=666"},"modified":"2008-05-28T05:18:06","modified_gmt":"2008-05-28T05:18:06","slug":"2923","status":"publish","type":"post","link":"http:\/\/pblog.ru\/lab\/?p=799","title":{"rendered":"\u0420\u0430\u0431\u043e\u0442\u0430 \u0441 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f\u043c\u0438"},"content":{"rendered":"<p>\u0420\u0430\u0431\u043e\u0442\u0430 \u0441 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f\u043c\u0438<br \/>\n<!--more--><\/p>\n<pre class=\"alt2\" style=\"margin:0px; padding:6px; border:1px inset; width:580px; height:320px; overflow:auto\"><div>\u0420\u0430\u0431\u043e\u0442\u0430 \u0441 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f\u043c\u0438\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\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,\n\/\/ \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\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\n\/\/ \"\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;\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<\/div><\/pre>\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u0420\u0430\u0431\u043e\u0442\u0430 \u0441 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f\u043c\u0438<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[16,456],"tags":[956],"_links":{"self":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/799"}],"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=799"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/799\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=799"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=799"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=799"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}