{"id":11,"date":"2007-03-02T15:19:36","date_gmt":"2007-03-02T12:19:36","guid":{"rendered":"http:\/\/pblog.ru\/?p=11"},"modified":"2008-09-10T08:28:57","modified_gmt":"2008-09-10T05:28:57","slug":"%d1%80%d0%b5%d1%81%d1%83%d1%80%d1%81%d1%8b-%d0%b7%d0%b0%d1%87%d0%b5%d0%bc-%d0%be%d0%bd%d0%b8-%d0%bd%d1%83%d0%b6%d0%bd%d1%8b","status":"publish","type":"post","link":"http:\/\/pblog.ru\/?p=11","title":{"rendered":"\u0420\u0435\u0441\u0443\u0440\u0441\u044b. \u0417\u0430\u0447\u0435\u043c \u043e\u043d\u0438 \u043d\u0443\u0436\u043d\u044b."},"content":{"rendered":"

\u0412\u0441\u0435\u043c Hi. \u0412 \u044d\u0442\u043e\u0439 \u0441\u0442\u0430\u0442\u044c\u0435 \u044f \u0445\u043e\u0447\u0443 \u0440\u0430\u0441\u0441\u043a\u0430\u0437\u0430\u0442\u044c \u043e\u0441\u043d\u043e\u0432\u044b \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0440\u0435\u0441\u0443\u0440\u0441\u0430\u043c\u0438.<\/p>\n

\u041a\u0430\u043a \u0432\u0441\u0435\u0433\u0434\u0430 \u0441\u043d\u0430\u0447\u0430\u043b\u0430 \u044f \u043f\u043e\u044f\u0441\u043d\u044e \u0434\u043b\u044f \u0447\u0435\u0433\u043e \u0436\u0435 \u043d\u0430\u043c \u043d\u0443\u0436\u043d\u0430 \u044d\u0442\u0438 \u0440\u0435\u0441\u0443\u0440\u0441\u044b:
\n\u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440 \u0434\u043b\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c \u0438\u043d\u0441\u0442\u0430\u043b\u043b\u044f\u0446\u0438\u0438 (\u043d\u0435 \u043b\u0443\u0447\u0448\u0438\u0439 \u043f\u0440\u0438\u043c\u0435\u0440 \u043d\u043e), \u0442.\u0435. \u0432 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u043c\u043e\u0436\u043d\u043e \u0437\u0430\u043f\u0438\u0445\u0430\u0442\u044c \u0435\u0449\u0451 \u043f\u0430\u0440\u0443 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c.
\n\u0414\u043b\u044f \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u0431\u043e\u043b\u044c\u0448\u043e\u0433\u043e \u0447\u0438\u0441\u043b\u0430 \u043a\u0430\u0440\u0442\u0438\u043d\u043e\u043a.
\n\u0414\u043b\u044f \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u0441\u0432\u043e\u0438\u0445 \u043a\u0443\u0440\u0441\u043e\u0440\u043e\u0432.<\/p>\n

\u0414\u043b\u044f \u043d\u0430\u0447\u0430\u043b\u0430 \u043e\u0442\u043a\u0440\u043e\u0435\u043c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u0440\u0435\u0434\u0430\u043a\u0442\u043e\u0440\u0430 \u0440\u0435\u0441\u0443\u0440\u0441\u043e\u0432 (\u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u043d\u0430\u044f \u0432 \u0441\u043e\u0441\u0442\u0430\u0432\u0435 Delphi \u044d\u0442\u043e Image Editor). \u042f \u0431\u0443\u0434\u0443 \u0440\u0430\u0441\u0441\u043c\u0430\u0442\u0440\u0438\u0432\u0430\u0442\u044c \u0438\u043c\u0435\u043d\u043d\u043e \u044d\u0442\u043e\u0442 \u0440\u0435\u0434\u0430\u043a\u0442\u043e\u0440. \u0421\u043e\u0437\u0434\u0430\u0434\u0438\u043c \u043d\u043e\u0432\u044b\u0439 \u0440\u0435\u0441\u0443\u0440\u0441 File>New\u2026>Resource File
\n\u041f\u043e\u044f\u0432\u0438\u0442\u0441\u044f \u043e\u043a\u043d\u043e, \u0432 \u043d\u0451\u043c \u043a\u043b\u0438\u043a\u043d\u0438\u0442\u0435 \u043f\u0440\u0430\u0432\u043e\u0439 \u043a\u043d\u043e\u043f\u043a\u043e\u0439 \u043c\u044b\u0448\u0438 \u0438 \u0432 \u043c\u0435\u043d\u044e \u0432\u044b\u0431\u0440\u0430\u0442\u044c New>Bitmap(\u043a\u0430\u0440\u0442\u0438\u043d\u043a\u0430) \u0438\u043b\u0438 Icon(\u0438\u043a\u043e\u043d\u043a\u0430) \u0438\u043b\u0438 Cursor(\u043a\u0443\u0440\u0441\u043e\u0440)
\n\u0412 \u044d\u0442\u043e\u0439 \u0441\u0442\u0430\u0442\u044c\u0435 \u044f \u0440\u0430\u0441\u0441\u043c\u043e\u0442\u0440\u044e \u041a\u0430\u0440\u0442\u0438\u043d\u043a\u0438 \u0432 \u0440\u0435\u0441\u0443\u0440\u0441\u0435. \u0412 \u043d\u0430\u0447\u0430\u043b\u0435 \u043f\u043e\u0441\u043b\u0435 \u043d\u0430\u0436\u0430\u0442\u0438\u044f \u043d\u0430 New>Bitmap \u043f\u043e\u044f\u0432\u0438\u0442\u044c\u0441\u044f \u0434\u0438\u0430\u043b\u043e\u0433 \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u043c\u044b \u0432\u044b\u0431\u0438\u0440\u0430\u0435\u043c \u0448\u0438\u0440\u0438\u043d\u0443, \u0432\u044b\u0441\u043e\u0442\u0443 \u0438 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0446\u0432\u0435\u0442\u043e\u0432 \u0432 \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u0435. \u0418\u043c\u044f \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u0438 \u043d\u0443\u0436\u043d\u043e \u043f\u0435\u0440\u0435\u0438\u043c\u0435\u043d\u043e\u0432\u0430\u0442\u044c \u0437\u0430\u0433\u043b\u0430\u0432\u043d\u044b\u043c\u0438 \u0431\u0443\u043a\u0432\u0430\u043c\u0438 \u042d\u0422\u041e \u0412\u0410\u0416\u041d\u041e. \u0422\u0435\u043f\u0435\u0440\u044c \u0441\u043e\u0445\u0440\u0430\u043d\u0438\u043c \u0440\u0435\u0441\u0443\u0440\u0441 (\u043d.\u0440. Resource.res) \u0432 \u043f\u0430\u043f\u043a\u0443 \u0441 \u043f\u0440\u043e\u0435\u043a\u0442\u043e\u043c.
\n
\n\u041f\u0435\u0440\u0435\u0439\u0434\u0435\u043c \u043a \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044e \u0432\u0442\u043e\u0440\u043e\u0433\u043e \u0440\u0435\u0441\u0443\u0440\u0441\u0430 \u0441 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u043e\u0439 \u0432\u043d\u0443\u0442\u0440\u0438 \u0438 \u0441\u0440\u0430\u0437\u0443 \u043d\u0430\u043f\u0438\u0448\u0435\u043c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u0434\u043b\u044f \u0434\u043e\u0441\u0442\u0430\u0432\u0430\u043d\u0438\u044f exe \u0438\u0437 \u0440\u0435\u0441\u0443\u0440\u0441\u0430.
\n1)\u041f\u0438\u0448\u0435\u043c \u0432 \u0431\u043b\u043e\u043a\u043d\u043e\u0442\u0435 RC-\u0444\u0430\u0439\u043b, \u043a\u0443\u0434\u0430 \u043f\u0440\u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0432\u0441\u0435 \u043d\u0443\u0436\u043d\u044b\u0435 \u043d\u0430\u043c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440: Demo EXEFILE C:\\Demo.exe
\n2)\u041a\u043e\u043c\u043f\u0438\u043b\u0438\u0440\u0443\u0435\u043c \u0435\u0433\u043e \u0432 \u0440\u0435\u0441\u0443\u0440\u0441 \u043f\u0440\u0438 \u043f\u043e\u043c\u043e\u0449\u0438 Brcc32.exe (Brcc32.exe \u044d\u0442\u043e\u0442 \u0444\u0430\u0439\u043b \u0442\u0430\u043c, \u0433\u0434\u0435 Delphi \u043b\u0435\u0436\u0438\u0442). \u041f\u043e\u043b\u0443\u0447\u0430\u0435\u043c RES-\u0444\u0430\u0439\u043b.
\n3)\u0414\u0430\u043b\u0435\u0435 \u0432 \u0442\u0435\u043a\u0441\u0442\u0435 \u043d\u0430\u0448\u0435\u0439 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b:<\/p>\n

Implementation<\/p>\n
{(\u0437\u043d\u0430\u043a \u0434\u043e\u043b\u043b\u0430\u0440\u0430)R *.DFM}
\n{(\u0437\u043d\u0430\u043a \u0434\u043e\u043b\u043b\u0430\u0440\u0430)R test.res} \/\/\u042d\u0442\u043e \u043d\u0430\u0448 RES-\u0444\u0430\u0439\u043b
\n{(\u0437\u043d\u0430\u043a \u0434\u043e\u043b\u043b\u0430\u0440\u0430)R Resource.res} \/\/\u042d\u0442\u043e \u0440\u0435\u0441\u0443\u0440\u0441 \u0434\u043b\u044f \u0432\u0442\u043e\u0440\u043e\u0433\u043e \u043f\u0440\u0438\u043c\u0435\u0440\u0430 \u0441 \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u0430\u043c\u0438<\/p>\n
procedure ExtractRes(ResType, ResName, ResNewName : String);
\nvar
\nRes : TResourceStream;
\nBegin
\n\/\/ ResType - \u0442\u0438\u043f \u0440\u0435\u0441\u0443\u0440\u0441\u0430 \u0432 \u043d\u0430\u0448\u0435\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u044d\u0442\u043e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u0441 \u0442\u0438\u043f\u043e\u043c EXEFILE
\n\/\/ ResName - \u0438\u043c\u044f \u0440\u0435\u0441\u0443\u0440\u0441\u0430
\n\/\/ ResNewName - \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0438\u043c\u044f \u043d\u043e\u0432\u043e\u0433\u043e \u0444\u0430\u0439\u043b\u0430
\nRes:=TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
\nRes.SavetoFile(ResNewName);
\nRes.Free;
\nend;<\/p>\n
procedure TForm1.Button1Click(Sender: TObject);
\nbegin
\n\/\/ \u0417\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u0442 \u0432 \u0442\u0435\u043a\u0443\u0449\u0443\u044e \u043f\u0430\u043f\u043a\u0443 Demo.exe
\nExtractRes('EXEFILE', 'Demo', 'Demo.exe');
\nend;<\/code><\/pre>\n
\u041f\u0435\u0440\u0432\u044b\u0439 \u043f\u0440\u0438\u043c\u0435\u0440 \u043c\u044b \u0441\u0434\u0435\u043b\u0430\u043b\u0438 \u0434\u0430\u0432\u0430\u0439\u0442\u0435 \u0440\u0430\u0441\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u0432\u0442\u043e\u0440\u043e\u0439. \u0420\u0430\u0431\u043e\u0442\u0430 \u0441 \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u0430\u043c\u0438. \u0420\u0435\u0441\u0443\u0440\u0441 \u043c\u044b \u0441\u0434\u0435\u043b\u0430\u043b\u0438 \u0438 \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0438\u043b\u0438 \u0442\u0435\u043f\u0435\u0440\u044c \u043f\u0438\u0448\u0435\u043c \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 \u0434\u043b\u044f \u043e\u0431\u043b\u0435\u0433\u0447\u0435\u043d\u0438\u044f \u0432\u044b\u0432\u043e\u0434\u0430 \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f<\/p>\n
procedure Bmp(var ImageNumber:TImage;ImageName:String);
\nvar \/\/\u0412\u0441\u044f\u043a\u0438\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435
\nMyBitmap:TBitmap;
\nMyIconsSt:String;
\nBegin
\n\/\/ ImageNumber \u2013 \u044d\u0442\u043e \u0438\u043c\u044f Image \u043a\u0443\u0434\u0430 \u0431\u0443\u0434\u0435\u0442 \u0433\u0440\u0443\u0437\u0438\u0442\u044c\u0441\u044f \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u0430
\n\/\/ ImageName \u2013 \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0438\u043c\u044f \u0441\u0430\u043c\u043e\u0439 \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u0438
\nMyBitmap:= TBitmap.Create;
\nMyIconsSt:=ImageName;
\nMyBitmap.Handle:=LoadBitmap(hInstance,PChar(MyIconsSt));
\nImageNumber.Picture.Bitmap:=MyBitmap;
\nMyBitmap.Free;
\nend;<\/p>\n
procedure TForm1.Button2Click(Sender: TObject);
\nbegin
\nBmp(Image1,'BITMAP1');
\nend;<\/code><\/pre>\n
\u041d\u0430 \u0441\u0435\u0433\u043e\u0434\u043d\u044f \u0445\u0432\u0430\u0442\u0438\u0442.  \u0412\u043e\u0442 \u0438\u0441\u0445\u043e\u0434\u043d\u0438\u043a <\/a> . To be continuation …<\/p>\n","protected":false},"excerpt":{"rendered":"
\u0412\u0441\u0435\u043c Hi. \u0412 \u044d\u0442\u043e\u0439 \u0441\u0442\u0430\u0442\u044c\u0435 \u044f \u0445\u043e\u0447\u0443 \u0440\u0430\u0441\u0441\u043a\u0430\u0437\u0430\u0442\u044c \u043e\u0441\u043d\u043e\u0432\u044b \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0440\u0435\u0441\u0443\u0440\u0441\u0430\u043c\u0438. \u041a\u0430\u043a \u0432\u0441\u0435\u0433\u0434\u0430 \u0441\u043d\u0430\u0447\u0430\u043b\u0430 \u044f \u043f\u043e\u044f\u0441\u043d\u044e \u0434\u043b\u044f \u0447\u0435\u0433\u043e \u0436\u0435 \u043d\u0430\u043c \u043d\u0443\u0436\u043d\u0430 \u044d\u0442\u0438 \u0440\u0435\u0441\u0443\u0440\u0441\u044b: \u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440 \u0434\u043b\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c \u0438\u043d\u0441\u0442\u0430\u043b\u043b\u044f\u0446\u0438\u0438 (\u043d\u0435 \u043b\u0443\u0447\u0448\u0438\u0439 \u043f\u0440\u0438\u043c\u0435\u0440 \u043d\u043e), \u0442.\u0435. \u0432 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u043c\u043e\u0436\u043d\u043e \u0437\u0430\u043f\u0438\u0445\u0430\u0442\u044c \u0435\u0449\u0451 \u043f\u0430\u0440\u0443 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c. \u0414\u043b\u044f \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u0431\u043e\u043b\u044c\u0448\u043e\u0433\u043e \u0447\u0438\u0441\u043b\u0430 \u043a\u0430\u0440\u0442\u0438\u043d\u043e\u043a. \u0414\u043b\u044f \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u0441\u0432\u043e\u0438\u0445 \u043a\u0443\u0440\u0441\u043e\u0440\u043e\u0432. \u0414\u043b\u044f \u043d\u0430\u0447\u0430\u043b\u0430 \u043e\u0442\u043a\u0440\u043e\u0435\u043c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u0440\u0435\u0434\u0430\u043a\u0442\u043e\u0440\u0430 \u0440\u0435\u0441\u0443\u0440\u0441\u043e\u0432 […]<\/p>\n","protected":false},"author":5,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[3],"tags":[358,316,103,365,359,361,363,362,364,360,99,357],"_links":{"self":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/11"}],"collection":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/users\/5"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=11"}],"version-history":[{"count":3,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/11\/revisions"}],"predecessor-version":[{"id":234,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/11\/revisions\/234"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=11"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=11"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=11"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}