{"id":90,"date":"2007-09-19T13:14:54","date_gmt":"2007-09-19T10:14:54","guid":{"rendered":"http:\/\/pblog.ru\/?p=90"},"modified":"2008-08-11T18:23:41","modified_gmt":"2008-08-11T15:23:41","slug":"masm32-%d0%b8-delphi-%d0%b1%d0%b8%d1%82%d0%b2%d0%b0-%d0%b7%d0%b0-%d1%80%d0%b0%d0%b7%d0%bc%d0%b5%d1%80","status":"publish","type":"post","link":"http:\/\/pblog.ru\/?p=90","title":{"rendered":"MASM32 \u0438 DELPHI — \u0431\u0438\u0442\u0432\u0430 \u0437\u0430 \u0440\u0430\u0437\u043c\u0435\u0440…"},"content":{"rendered":"

\u0427\u0430\u0441\u0442\u043e \u0433\u043e\u0432\u043e\u0440\u044f\u0442 \u043e \u043f\u043e\u0442\u0440\u0435\u0431\u043d\u043e\u0441\u0442\u044f\u0445 \u0432 \u043e\u043f\u0442\u0438\u043c\u0438\u0437\u0430\u0446\u0438\u0438 \u043f\u0440\u043e\u0435\u043a\u0442\u0430 \u0441 \u0446\u0435\u043b\u044c\u044e \u0443\u043c\u0435\u043d\u044c\u0448\u0435\u043d\u0438\u044f \u0440\u0430\u0437\u043c\u0435\u0440\u0430 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b… Delphi \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0430\u0443\u0442\u0441\u0430\u0439\u0434\u0435\u0440\u043e\u043c \u043f\u043e \u044d\u0442\u043e\u043c\u0443 \u043f\u043e\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u044e \u0441\u0440\u0435\u0434\u0438 \u043e\u0441\u043d\u043e\u0432\u043d\u044b\u0445 \u044f\u0437\u044b\u043a\u043e\u0432 \u0434\u043b\u044f \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u043a\u0438 \u0441\u0438\u0441\u0442\u0435\u043c\u043d\u044b\u0445 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0439… \u0414\u0435\u0439\u0441\u0442\u0432\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u0443 \u043b\u0430\u043c\u0435\u0440\u043e\u0432 \u0435\u0441\u0442\u044c \u043e\u0447\u0435\u043d\u044c \u0441\u0438\u043b\u044c\u043d\u044b\u0439 (\u043a\u0430\u043a \u0438\u043c \u043a\u0430\u0436\u0435\u0442\u0441\u044f) \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442 — \u0414\u0435\u043b\u0444\u0438 \u0441\u043e\u0437\u0434\u0430\u0451\u0442 \u043f\u0443\u0441\u0442\u043e\u0439 \u043f\u0440\u043e\u0435\u043a\u0442 \u0432\u0435\u0441\u043e\u043c \u043f\u043e\u0447\u0442\u0438 400 \u043a\u0431)).. \u041d\u0430\u043f\u0440\u043e\u0442\u0438\u0432 \u0430\u0441\u0435\u043c\u0431\u043b\u0435\u0440 \u0441\u0447\u0438\u0442\u0430\u0435\u0442\u0441\u044f \u043f\u0435\u0440\u0435\u0434\u043e\u0432\u0438\u043a\u043e\u043c \u043d\u0430\u043f\u0440\u0430\u0432\u043b\u0435\u043d\u0438\u044f \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u043a\u043e\u043c\u043f\u0430\u043a\u0442\u043d\u044b\u0445 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0439 \u0438 \u043f\u043e \u043c\u043d\u0435\u043d\u0438\u044e \u043b\u0430\u043c\u0435\u0440\u043e\u0432 \u0440\u0430\u0437\u043d\u0438\u0446\u0430 \u0432 \u0440\u0430\u0437\u043c\u0435\u0440\u0430\u0445 \u043e\u0433\u0440\u043e\u043c\u043d\u0430 \u043f\u043e \u0441\u0440\u0430\u0432\u043d\u0435\u043d\u0438\u044e \u0441 \u0434\u0435\u043b\u0444\u0438… \u0414\u0430 \u044d\u0442\u043e \u0442\u0430\u043a.. \u043d\u043e \u0432\u0441\u0451 \u0436\u0435 \u0434\u0430\u0432\u0430\u0439\u0442\u0435 \u043f\u043e\u043f\u0440\u043e\u0431\u0443\u0435\u043c \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u0445\u0435\u043b\u043b\u043e\u0443 \u0432\u043e\u0440\u043b\u0434… \u0432\u044b\u0432\u043e\u0434\u044f\u0449\u0443\u044e \u043f\u0440\u043e\u0441\u0442\u043e \u043e\u043a\u043e\u0448\u043a\u043e \u0441 \u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043a\u043e\u043c Hallo \u0438 \u0441\u0442\u0440\u043e\u043a\u043e\u0439 Hallo World!!! \u043d\u0430\u043f\u0438\u0448\u0438\u043c \u043c\u044b \u044d\u0442\u0438 \u043f\u0440\u043e\u0433\u0438 \u043d\u0430 Delphi \u0438 Asm… \u0438 \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u043a\u0430\u043a\u0430\u044f \u0431\u0443\u0434\u0435\u0442 \u0440\u0430\u0437\u043d\u0438\u0446\u0430 \u0432 \u0440\u0430\u0437\u043c\u0435\u0440\u0435…<\/p>\n

<\/p>\n

Asm:<\/p>\n

.386
\n.model flat, stdcall
\noption casemap:none
\ninclude \\masm32\\include\\windows.inc
\ninclude \\masm32\\include\\kernel32.inc
\ninclude \\masm32\\include\\user32.inc
\nincludelib \\masm32\\lib\\user32.lib
\nincludelib \\masm32\\lib\\kernel32.lib<\/p>\n

.data
\nMsgCaption db \"Hallo World!!!\",0
\nMsgBoxText db \"Hallo\",0<\/p>\n

.code
\nstart:
\n\tinvoke MessageBox, NULL,addr MsgBoxText, addr MsgCaption, MB_OK
\n\tinvoke ExitProcess,NULL
\nend start<\/code><\/p>\n

\u041a\u043e\u043c\u043f\u0438\u043b\u044f\u0446\u0438\u044f:
\n\u0438\u0437 MASM32 + \u0443\u043a\u043e\u0440\u043e\u0447\u0435\u043d\u043d\u044b\u0439 \u0441\u0442\u0430\u0431 \u0432\u0435\u0441\u043e\u043c 64 \u0431\u0430\u0439\u0442\u0430..
\n\u0421\u043e\u0445\u0440\u0430\u043d\u044f\u0435\u043c \u043a\u043e\u0434 \u0438 \u043a\u0438\u0434\u0430\u0435\u043c \u0435\u0433\u043e \u0432 \u0444\u0430\u0439\u043b: asm.asm…
\n\u0421\u043e\u0437\u0434\u0430\u0451\u043c \u0412\u0410\u0422-\u043d\u0438\u043a \u0441 \u0442\u0435\u043a\u0441\u0442\u043e\u043c:<\/p>\n

@ml \/c \/coff \/nologo asm.asm
\n@Link \/ALIGN:4 \/FORCE:UNRESOLVED \/SUBSYSTEM:WINDOWS \/MERGE:.data=.text \/MERGE:.rdata=.text \/stub:stub.bin asm.obj<\/code><\/p>\n

\u0418\u043c\u0435\u0435\u043c \u0435\u0445\u0435-\u0448\u043d\u0438\u043a \u0432\u0435\u0441\u043e\u043c 624 \u0431\u0430\u0439\u0442\u0430… \u041d\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u043e… \u0422\u0435\u043f\u0435\u0440\u044c \u0434\u0430\u0432\u0430\u0439 \u0442\u043e\u0436\u0435 \u0441\u0430\u043c\u043e\u0435 \u043d\u0430 \u0434\u0435\u043b\u0444\u0438…<\/p>\n

DeLpHi:<\/p>\n

unit H;
\ninterface
\nProcedure Start;
\nimplementation
\nfunction MessageBoxA(hWnd: cardinal; lpText, lpCaption: PChar; uType: Cardinal): Integer; stdcall; external 'user32.dll' name '_MessageBoxA@16';
\nProcedure Start;
\nbegin
\nMessageBoxA(0,'Hallo World!!!','Hallo',0);
\nend;
\nend.<\/code><\/p>\n

\u041a\u043e\u043c\u043f\u0438\u043b\u044f\u0446\u0438\u044f:
\ndcc32.exe (\u043e\u0442 \u0434\u0435\u043b\u0444\u04383), Link.ExE, MSPDB50.DLL,(SYSINIT.DCU,SYSTEM.DCU — c \u0443\u0440\u0435\u0437\u0430\u043d\u043d\u044b\u043c RTL),USER32.LIB + \u0441\u0442\u0430\u0431 64 \u0431\u0430\u0439\u0442\u0430….. \u0421\u043e\u0445\u0440\u0430\u043d\u044f\u0435\u043c \u043a\u043e\u0434 \u0432 \u0444\u0430\u0439\u043b: pas.pas… \u0421\u043e\u0437\u0434\u0430\u0435\u043c \u0412\u0410\u0422-\u043d\u0438\u043a c \u0442\u0435\u043a\u0441\u0442\u043e\u043c:<\/p>\n

@dcc32.exe -JP pas.pas
\n@link.exe \/ALIGN:4 \/FORCE:UNRESOLVED \/SUBSYSTEM:WINDOWS \/MERGE:.data=.text \/MERGE:.rdata=.text \/ENTRY:Start$qqrv \/STUB:stub.bin user32.lib pas.obj<\/code><\/p>\n

\u041a\u0438\u0434\u0430\u0435\u043c \u0432 \u043e\u0434\u043d\u0443 \u043f\u0430\u043f\u043a\u0443 \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u043c \u0440\u0430\u0437\u043c\u0435\u0440 \u0435\u0445\u0435 — 672 \u0431\u0430\u0439\u0442\u0430… <\/p>\n

\u0418\u0442\u043e\u0433: \u043d\u0438 \u0432\u0438\u0436\u0443 \u043d\u0438 \u043c\u0430\u043b\u0435\u0439\u0448\u0435\u0433\u043e \u043f\u043e\u0432\u043e\u0434\u0430 \u043f\u043e\u0432\u043e\u0434\u044f \u0441\u0447\u0438\u0442\u0430\u0442\u044c \u0434\u0435\u043b\u0444\u0438 \u0433\u0440\u043e\u043c\u043e\u0437\u043a\u0438\u043c \u044f\u0437\u044b\u043a\u043e\u043c)))) <\/p>\n

\u041a\u043e\u043c\u0435\u043d\u0442\u0430\u0440\u0438\u0438 \u043d\u0430 \u0442\u0435\u043c\u0443 \u0447\u0442\u043e \u044d\u0442\u043e \u0438\u0437 \u0436\u0443\u0440\u043d\u0430\u043b\u0430 \u0445\u0430\u043a\u0435\u0440 \u043d\u0435 \u043f\u0440\u0438\u043d\u0438\u043c\u0430\u044e\u0442\u0441\u044f… \u0412 \u0441\u0442\u0430\u0442\u044c\u0435 \u041c\u0421-\u0420\u0415\u041c\u0430 \u0440\u0430\u0437\u043c\u0435\u0440 832 \u0431\u0430\u0439\u0442\u0430… \u0418 \u0432\u043e\u043e\u0431\u0449\u0435 \u0420\u0415\u041c \u043d\u0435 \u043f\u0435\u0440\u0432\u044b\u0439 \u043f\u0438\u0441\u0430\u043b \u043e\u0431 \u044d\u0442\u043e\u043c \u0432\u0435\u0434\u044c \u043d\u0435 \u043e\u043d \u043d\u0430\u043f\u0438\u0441\u0430\u043b \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440 \u0434\u0435\u043b\u0444\u0438 \u0438 \u043b\u0438\u043d\u043a\u0435\u0440))… \u0414\u0430 \u0446\u0435\u043b\u044c \u0441\u0442\u0430\u0442\u044c\u0438 \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u043c\u0438\u043d\u0438\u043c\u0443\u043c \u043d\u0430 \u0434\u0435\u043b\u0444\u0438… \u0441 \u0447\u0435\u043c \u0432 \u043e\u0431\u0449\u0435\u043c-\u0442\u043e \u0438 \u0441\u043f\u0440\u0430\u0432\u0438\u043b\u0438\u0441\u044c…<\/p>\n","protected":false},"excerpt":{"rendered":"

\u0427\u0430\u0441\u0442\u043e \u0433\u043e\u0432\u043e\u0440\u044f\u0442 \u043e \u043f\u043e\u0442\u0440\u0435\u0431\u043d\u043e\u0441\u0442\u044f\u0445 \u0432 \u043e\u043f\u0442\u0438\u043c\u0438\u0437\u0430\u0446\u0438\u0438 \u043f\u0440\u043e\u0435\u043a\u0442\u0430 \u0441 \u0446\u0435\u043b\u044c\u044e \u0443\u043c\u0435\u043d\u044c\u0448\u0435\u043d\u0438\u044f \u0440\u0430\u0437\u043c\u0435\u0440\u0430 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b… Delphi \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0430\u0443\u0442\u0441\u0430\u0439\u0434\u0435\u0440\u043e\u043c \u043f\u043e \u044d\u0442\u043e\u043c\u0443 \u043f\u043e\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u044e \u0441\u0440\u0435\u0434\u0438 \u043e\u0441\u043d\u043e\u0432\u043d\u044b\u0445 \u044f\u0437\u044b\u043a\u043e\u0432 \u0434\u043b\u044f \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u043a\u0438 \u0441\u0438\u0441\u0442\u0435\u043c\u043d\u044b\u0445 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0439… \u0414\u0435\u0439\u0441\u0442\u0432\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u0443 \u043b\u0430\u043c\u0435\u0440\u043e\u0432 \u0435\u0441\u0442\u044c \u043e\u0447\u0435\u043d\u044c \u0441\u0438\u043b\u044c\u043d\u044b\u0439 (\u043a\u0430\u043a \u0438\u043c \u043a\u0430\u0436\u0435\u0442\u0441\u044f) \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442 — \u0414\u0435\u043b\u0444\u0438 \u0441\u043e\u0437\u0434\u0430\u0451\u0442 \u043f\u0443\u0441\u0442\u043e\u0439 \u043f\u0440\u043e\u0435\u043a\u0442 \u0432\u0435\u0441\u043e\u043c \u043f\u043e\u0447\u0442\u0438 400 \u043a\u0431)).. \u041d\u0430\u043f\u0440\u043e\u0442\u0438\u0432 \u0430\u0441\u0435\u043c\u0431\u043b\u0435\u0440 \u0441\u0447\u0438\u0442\u0430\u0435\u0442\u0441\u044f \u043f\u0435\u0440\u0435\u0434\u043e\u0432\u0438\u043a\u043e\u043c \u043d\u0430\u043f\u0440\u0430\u0432\u043b\u0435\u043d\u0438\u044f \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u043a\u043e\u043c\u043f\u0430\u043a\u0442\u043d\u044b\u0445 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0439 \u0438 \u043f\u043e \u043c\u043d\u0435\u043d\u0438\u044e […]<\/p>\n","protected":false},"author":19,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[8,3,6],"tags":[96,430,18,44,103,79,100,104,91,102,101,431,94,98,92,95,93,99,97],"_links":{"self":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/90"}],"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\/19"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=90"}],"version-history":[{"count":6,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/90\/revisions"}],"predecessor-version":[{"id":126,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/90\/revisions\/126"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=90"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=90"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=90"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}