\u8d44\u6e90\u6587\u4ef6\u4e00\u822c\u4e3a\u6269\u5c55\u540d\u4e3ares\u7684\u6587\u4ef6.\u5728VC\u4e2d\u8d44\u6e90\u6587\u4ef6\u7528\u5f97\u975e\u5e38\u666e\u904d,\u4f46Delphi\u5728\u5176\u8054\u673a\u5e2e\u52a9\u4e2d\u5bf9\u8d44\u6e90\u6587\u4ef6\u6ca1\u4f5c\u4ec0\u4e48\u4ecb\u7ecd,\u5176\u5b9e\u5229\u7528\u5176\u81ea\u5e26\u7684\u8d44\u6e90\u7f16\u8bd1\u5de5\u5177BRCC32.EXE(\u4e00\u822c\u4f4d\u4e8eDelphiBIN\u76ee\u5f55\u4e0b\uff09,\u6211\u4eec\u5b8c\u5168\u53ef\u4ee5\u505a\u51fa\u8ddfVC\u4e00\u6837\u6548\u679c\u7684\u6587\u4ef6\u6765\u3002
\n\u8d44\u6e90\u6587\u4ef6\u6700\u5927\u7684\u597d\u5904\u662f\u80fd\u5c06\u4e00\u4e9b\u5728\u5fc5\u8981\u65f6\u624d\u8c03\u7528\u7684\u6587\u4ef6\u8ddf\u53ef\u6267\u884c\u6587\u4ef6\u4e00\u8d77\u7f16\u8bd1,\u751f\u6210\u4e00\u4e2a\u6587\u4ef6.\u8fd9\u6837\u505a\u6700\u5927\u7684\u597d\u5904\u5c31\u662f\u4f7f\u5916\u90e8\u6587\u4ef6\u514d\u906d\u7834\u574f.\u4f8b\u5982\u5728\u4e00\u6761\u7a0b\u5e8f\u4e2d\u4f60\u8981\u4e34\u65f6\u8c03\u7528\u4e00\u5e45\u56fe\u7247,\u4e00\u822c\u4f5c\u6cd5\u662f\u628a\u56fe\u7247\u653e\u5728\u67d0\u4e00\u8def\u5f84\u4e0b\uff08\u901a\u5e38\u662f\u4e3b\u7a0b\u5e8f\u6240\u5728\u8def\u5f84\uff09,\u4f46\u5982\u679c\u7528\u6237\u8def\u5f84\u8bef\u5220\u4f60\u7684\u56fe\u7247\u6587\u4ef6,\u5219\u53ef\u80fd\u4f7f\u7a0b\u5e8f\u627e\u4e0d\u5230\u76f8\u5e94\u6587\u4ef6\u800c\u51fa\u9519\u5d29\u6e83.\u53e6\u5916,\u5982\u679c\u4f60\u60f3\u81ea\u5df1\u7684\u7a0b\u5e8f\u754c\u9762\u7f8e\u89c2,\u60f3\u7528\u4e00\u4e9b\u81ea\u5b9a\u4e49\u5149\u6807,\u4e5f\u8981\u7528\u5230\u8d44\u6e90\u6587\u4ef6\u3002
\n\u8d44\u6e90\u6587\u4ef6\u7684\u4f7f\u7528\u6b65\u9aa4\u4e3a\uff1a<\/p>\n
1.\u7f16\u5199rc\u811a\u672c\u6587\u672c<\/p>\n
\u7528\u8bb0\u4e8b\u672c\u6216\u5176\u5b83\u6587\u672c\u7f16\u8f91\u5668\u7f16\u5199\u4e00\u4e2a\u6269\u5c55\u540d\u4e3arc\u7684\u6587\u4ef6\u3002\u4f8b\u5982\uff1a<\/p>\n
\r\nmycur cursor move.cur \/\/\u52a0\u5165\u5149\u6807\r\nmypic Bitmap Water.BMP \/\/\u52a0\u5165\u4f4d\u56fe\r\nmywav WAVE happy.wav \/\/\u52a0\u5165\u58f0\u97f3\r\nmyAVI AVI EPOEN.AVI \/\/\u52a0\u5165\u89c6\u9891\r\nmyIco ICON CJT.ICO \/\/\u52a0\u5165\u56fe\u6807 exefile txtfile\u7b49\r\nmask exefile mask.exe\r\n<\/pre>\n\u5176\u4e2d\u4e24\u4e2a\u540d\u5b57\u6700\u597d\u4e0d\u8981\u76f8\u540c<\/p>\n
\r\nip cmdfile ip.bat \u52a0\u5165bat\u6587\u4ef6\r\n<\/pre>\n\u683c\u5f0f\u5206\u522b\u4e3a\u5728\u8d44\u6e90\u6587\u4ef6\u4e2d\u7684\u540d\u79f0->\u7c7b\u578b->\u5b9e\u9645\u6587\u4ef6\u540d\u79f0\uff0c\u7b2c\u4e00\u4e2amask\u662fdelphi\u8c03\u7528\u8fd9\u4e2aexefile\u8d44\u6e90\u6587\u4ef6\u7684\u540d\u5b57\uff0c\u7b2c\u4e8c\u4e2a\u8868\u793a\u8d44\u6e90\u7c7b\u578bexefile\u5c31\u662fexe\u6587\u4ef6\u4e86\uff0c\u6700\u540e\u662f\u6587\u4ef6\u540d\u3002\u4f8b\u5982\u4e0a\u9762\u7b2c\u4e00\u884c\u5b9a\u4e49\u4e00\u4e2a\u540d\u4e3amycur\u7684\u5149\u6807\uff0c\u5b9e\u9645\u540d\u79f0\u4e3a\u52a0\u5165\u5149\u6807move.cur.<\/p>\n
2.\u5c06rc\u6587\u4ef6\u7f16\u8bd1\u6210res\u8d44\u6e90\u6587\u4ef6<\/p>\n
\u5c06\u811a\u672c\u6587\u4ef6\u548c\u5b9e\u9645\u6587\u4ef6\u62f7\u5230Brcc32.EXE\u6240\u5728\u76ee\u5f55\uff0c\u6267\u884cDOS\u547d\u4ee4\u3002\u683c\u5f0f\u4e3a\uff1aBrcc32 \u811a\u672c\u6587\u4ef6(\u56de\u8f66)\uff0c\u4f8b\u5982\u6709\u4e00\u540d\u4e3amyfirst.rc\u7684\u811a\u672c\u6587\u4ef6\uff0c\u5219\u6267\u884c Brcc32 myfirst.rc(\u56de\u8f66)\u5373\u53ef\u3002\u5982\u679c\u4f60\u662f\u61d2\u4eba\uff0c\u4e5f\u53ef\u65b0\u5efa\u4e00\u6279\u5904\u7406\u6587\u4ef6\uff0c\u5185\u5bb9\u53ea\u6709\u4e00\u884c\uff1aBrcc32 mufist.rc.(\u56e0\u4e3aDelphi\u5b89\u88c5\u540e\u4e00\u822c\u4f1a\u5728\u81ea\u52a8\u6279\u5904\u7406\u6587\u4ef6\u4e2d\u6307\u660e\u641c\u7d22\u8def\u5f84\u7684\u3002)\u5982\u679c\u7f16\u8bd1\u6210\u529f\uff0c\u5219\u4f1a\u751f\u6210\u4e00\u4e2a\u7ed3\u5c3e\u4e3ares\u7684\u6587\u4ef6\uff0c\u8fd9\u4e2a\u6587\u4ef6\u5c31\u662f\u6211\u4eec\u9700\u8981\u7684\u8d44\u6e90\u6587\u4ef6\u3002<\/p>\n
3.\u5728Delphi\u5355\u5143\u4e2d\u52a0\u5165\u8d44\u6e90\u6587\u4ef6<\/p>\n
\u5c06\u751f\u6210\u7684res\u8d44\u6e90\u6587\u4ef6\u62f7\u8d1d\u5230\u4f60\u6240\u7f16\u7a0b\u5e8f\u7684\u8def\u5f84\u4e0b\uff0c\u5728\u5355\u5143\u6587\u4ef6(\u5373dpr\u6587\u4ef6){$R *DFM}\u540e\u52a0\u4e0a\u4e00\u53e5{$R mufirst.res}\uff0c\u5219\u5c06res\u6587\u4ef6\u52a0\u5165\u53bb\uff0c\u7f16\u8bd1\u540e\u8d44 \u6e90\u6587\u4ef6\u5373\u5df2\u5305\u542b\u5728\u53ef\u6267\u884c\u6587\u4ef6\u4e2d\u4e86\u3002\u82e5\u4f60\u6709\u591a\u4e2a\u8d44\u6e90\u6587\u4ef6\uff0c\u4e5f\u6309\u4e0a\u6cd5\u4f9d\u6b21\u52a0\u5165\u3002<\/p>\n
4.\u5728Delphi\u7a0b\u5e8f\u4e2d\u8c03\u7528\u8d44\u6e90\u6587\u4ef6<\/p>\n
\u8d44\u6e90\u6587\u4ef6\u5728Delphi\u4e2d\u7684\u5173\u952e\u5b57\u4e3ahinstance.\u4e0b\u9762\u7ed9\u51fa\u5177\u4f53\u7528\u6cd5.<\/p>\n
\u5149\u6807\u7684\u8c03\u7528
\n\u9996\u5148\u5728\u7a0b\u5e8f\u4e2d\u5b9a\u4e49\u4e00\u4e2a\u503c\u5927\u4e8e0\u7684\u5e38\u91cf\uff0c\u56e0\u4e3aDelphi\u672c\u8eab\u75280-\u8d1f16\u6765\u7d22\u5f15\u9ed8\u8ba4\u7684\u5149\u6807\uff0c\u6240\u4ee5\u6211\u4eec\u5236\u5b9a\u7684\u5149\u6807\u5e94\u4ece\u8868\u9762\u4e0a1\u5f00\u59cb\u7d22\u5f15\u3002\u7136\u540e\u5728\u7a97\u53e3\u7684Oncreat\u4e8b\u4ef6\u4e2d\u6dfb\u52a0\u4ee5\u4e0b\u4ee3\u7801\uff1a<\/p>\n\r\nscreen.cursor[35]:=Loadcursor (hinstance,\u2019mycur\u2019);\r\n<\/pre>\n\u5176\u4e2d35\u4e3a\u5927\u4e8e1\u7684\u5e38\u91cf\uff0cmycur\u4e3a\u5149\u6807\u5728\u8d44\u6e90\u6587\u4ef6\u4e2d\u7684\u540d\u5b57\u3002\u5982\u679c\u5e0c\u671b\u5728\u5176\u4ed6\u63a7\u4ef6\u4e0a\u4f7f\u7528\u5b9a\u5236\u5149\u6807\uff0c\u4f8b\u5982Panel\u63a7\u4ef6\uff0c\u53ea\u9700\u5728\u7a0b\u5e8f\u7684\u9002\u5f53\u5904\u52a0\u5165\u4ee5\u4e0b\u4ee3\u7801\uff1a<\/p>\n
\r\nPanel1.cursor:=35;\r\n<\/pre>\n\u4f4d\u56fe\u7684\u8c03\u7528
\n\u65b0\u5efa\u4e00\u9879\u5de5\u7a0b\uff0c\u6dfb\u52a0\u4e00Timage\u63a7\u4ef6\uff0c\u5728\u9700\u8981\u663e\u793a\u7684\u5730\u65b9\u5199\u4ee5\u4e0b\u4ee3\u7801\uff1a<\/p>\n\r\nVar mymap:Hbitmap;\r\nbegin\r\nmymap:=LoadBitmap(hinstance,\u2019mypic\u2019);\r\nImage1.picture.Bitmap.Handle:=mymap\uff1b\r\nend;\r\n<\/pre>\n\u5176\u4e2d”mypic”\u4e3a\u4f4d\u56fe\u8d44\u6e90\u6587\u4ef6\u4e2d\u7684\u540d\u79f0\u3002<\/p>\n
\u30083\u3009AVI\u6587\u4ef6\u7684\u8c03\u7528
\n\u65b0\u5efa\u4e00\u5de5\u7a0b\uff0c\u6dfb\u52a0\u4e00Animate\u63a7\u4ef6\uff0c\u5728\u9700\u8981\u7684\u5730\u65b9\u52a0\u5165\uff1a<\/p>\n\r\nanimater1.resname:=\u2019myAVI\u2019;\r\nanimater1.Active:=true;\r\n<\/pre>\n\u5176\u4e2dmyAVI\u4e3a\u89c6\u9891\u6587\u4ef6\u5728\u8d44\u6e90\u6587\u4ef6\u4e2d\u7684\u540d\u79f0\u3002<\/p>\n
\u30084\u3009\u8c03\u7528WAV\u6587\u4ef6
\n\u5728uses\u4e2d\u52a0\u5165mmsystm\u5355\u5143\uff0c\u4ee5\u4fbf\u5728\u7a0b\u5e8f\u4e2d\u64ad\u653eWAV\u6587\u4ef6\u3002\u64ad\u653e\u65f6Playsound(pchar(\u2018mywav\u2019),hinstance,sndsync or snd_resource);\u5176\u4e2dmywav\u4e3a\u58f0\u97f3\u6587\u4ef6\u5728\u8d44\u6e90\u4e2d\u7684\u540d\u79f0\u3002<\/p>\n\u30085\u3009\u52a0\u5165\u5149\u6807
\n\u52a0\u5165\u5149\u6807\u6bd4\u8f83\u5bb9\u6613\uff0c\u53ea\u8981\u5c06res\u6587\u4ef6\u52a0\u5165\u5355\u5143\u6587\u4ef6\u4e2d\u5373\u53ef\u3002\u4f46\u9700\u6ce8\u610f,\u540d\u79f0\u6700\u597d\u53d6”W”.”WW”\u7b49\uff0c\u4f7f\u7b2c\u4e00\u4e2a\u5b57\u6bcd\u5c3d\u91cf\u9760\u540e\uff0c\u4ee5\u514d\u4e0e\u4e3b\u7a0b\u5e8f\u7684\u56fe\u6807\u987a\u5e8f\u98a0\u5012\u3002\u8fd9\u6837\u4e00\u6765\uff0c\u522b\u4eba\u5728\u4f7f\u7528\u4f60\u7684\u7a0b\u5e8f\u65f6\u5982\u679c\u60f3\u9009\u62e9\u5176\u5b83\u56fe\u6807\u5c31\u6709\u5f88\u591a\u9009\u62e9\u4e86\u3002
\n\u8865\u5145\uff1a
\n1.\u8d44\u6e90\u7c7b\u578b\u9664\u4e0a\u8ff0\u7c7b\u578b\u5916\uff0c\u8fd8\u53ef\u4ee5\u5b57\u4f53\u6587\u4ef6\uff0c\u5b57\u7b26\u4e32\u6587\u4ef6\u7b49\u3002
\n2.\u8d44\u6e90\u6587\u4ef6\u4e0d\u4f46\u53ef\u4ee5\u5728\u6807\u51c6\u56fe\u5f62\u754c\u9762\u4e0b\u4f7f\u7528\u8fd8\u53ef\u5728\u63a7\u5236\u53f0\u4e0b\u4f7f\u7528\u3002
\n\u4e0b\u9762\u6211\u4eec\u6765\u8bd5\u9a8c\u4e00\u4e0b\uff1a
\n\u65b0\u5efa\u4e00\u5de5\u7a0b\uff0c\u5c06\u552f\u4e00\u7684\u4e00\u4e2aForm\u5220\u9664\uff0c\u7136\u540e\u4fee\u6539\u5de5\u7a0b\u6587\u4ef6\u3002\u589e\u52a0\u4e00\u53e5{$Apptype console},\u5728uses\u5b50\u53e5\u4e2d\u52a0\u5165mmsystem,\u5e76\u5c06\u5176\u5b83\u5f15\u7528\u5355\u5143\u5220\u6389\u3002\u5c06Begin\u548cend\u4e4b\u95f4\u8bed\u53e5\u5220\u6389\u3002\u81f3\u6b64\uff0c\u6211\u4eec\u5c31\u53ef\u548cTurbo PASCAL\u4e0b\u7f16\u7a0b\u5e8f\u4e00\u6837\uff0c\u4e14\u8fd8\u53ef\u4ee5\u8c03\u7528windows\u7684API\u548c\u8d44\u6e90\u3002\u5c06\u8d44\u6e90\u6587\u4ef6\u2014-{$R myfist.res}\u52a0\u5165\u3002\u5728Begin\u548cend\u4e4b\u95f4\u5199\u4e0b\uff1a<\/p>\n\r\nwriteln(\u2018\u6f14\u793a\u7a0b\u5e8f\uff0c\u6309\u4efb\u610f\u952e\u5f00\u59cb\uff01\u2019);\r\nreadln;\r\nplaysound(pchar(\u2018mywav\u2019),hinstance,snd_sync or snd_resource);\r\nwriteln(\u2018\u6f14\u793a\u7ed3\u675f\uff01\u2019);\r\n<\/pre>\n\u8fd0\u884c\u7a0b\u5e8f\uff0c\u5c06\u5f39\u51fa\u4e00\u4e2a\u6807\u51c6DOS\u7a97\u53e3\uff0c\u6309\u4efb\u610f\u952e\u64ad\u653e\u58f0\u97f3\u6587\u4ef6\u3002\u662f\u4e0d\u662f\u5f88COOL\u5462!\u6211\u66fe\u4e0b\u8f7d\u8fc7\u4e00\u4e2a\u64ad\u653e\u5668\uff0c\u5728\u5176\u5b89\u88c5\u76ee\u5f55\u4e0b\u6211\u53d1\u73b0\u6709\u4e00”DOS\u7a0b\u5e8f”,\u7528\u9f20\u6807\u53cc\u51fb\u5b83\u4fbf\u5f39\u51fa\u4e00\u4e2aDOS\u7a97\u53e3\uff0c\u663e\u793aDOS\u65f6\u4ee3\u7279\u6709\u7684\u753b\u56fe\uff0c\u5e76\u6709\u80cc\u666f\u97f3\u4e50\uff01\u53ef\u80fd\u5c31\u662f\u7528\u8fd9\u4e2a\u65b9\u6cd5\u505a\u7684\u3002<\/p>\n
3.Delphi\u672c\u8eab\u81ea\u5e26\u4e86\u4e00\u4e2a\u53ebImage Editor\u7684\u5de5\u5177\uff0c\u540c\u6837\u53ef\u4ee5\u7f16\u8f91\u8d44\u6e90\u6587\u672c\uff0c\u4f46\u548c\u672c\u6587\u7684\u65b9\u6cd5\u6bd4\u8f83\uff0c\u53ef\u5f97\u51fa\u4e0b\u8868\uff1a<\/p>\n
\r\nImage Editor Brcc32\r\n\r\nBMP \u53ea\u652f\u630116\u4f4d\u8272 \u4efb\u610f\u8272\r\n\r\n\u5149\u6807 \u9ed1\u767d\u4e24\u8272 \u4efb\u610f\u8272\r\n\r\nICO \u53ea\u652f\u630116\u4f4d\u8272 \u4efb\u610f\u8272\r\n\r\nAVI \u4e0d\u652f\u6301 \u652f\u6301\r\n\r\nWAV \u4e0d\u652f\u6301 \u652f\u6301\r\n\r\n\u5b57\u4f53\r\n\u5b57\u7b26\u4e32 \u4e0d\u652f\u6301 \u652f\u6301\r\n\u5176\u4ed6\r\n<\/pre>\n\u4e0a\u9762\u8bf4\u7684\u662f\u76f4\u63a5\u5728\u7a0b\u5e8f\u672c\u8eab\u7684\u8c03\u7528\u3002\u5176\u5b9e\u8d44\u6e90\u6587\u4ef6\u8fd8\u6709\u5176\u5b83\u7528\u6cd5\u3002\u6bd4\u5982\u8bf4\u5728\u4f60\u7684\u7a0b\u5e8f\u643a\u5e26\u5176\u5b83\u6587\u4ef6\uff0c\u8981\u7528\u7684\u65f6\u5019\u91ca\u653e\u51fa\u6765\u3002
\n\u4f8b\u5982: myexe exefile \u2018ha1.exe\u2019\/\/\u811a\u672c\u6587\u4ef6
\n\u4e0b\u9762\u662f\u81ea\u5b9a\u4e49\u91ca\u653e\u51fd\u6570ExtractRes\uff0c\u672c\u4f8b\u4e2d\u4f7f\u7528\u5982\u4e0b:<\/p>\n\r\nExtractRes(\u2018exefile\u2019,'myexe\u2019,'c:new.exe\u2019);\r\n<\/pre>\n\u5c31\u628aha1.exe\u4ee5new.exe\u4e3a\u540d\u5b57\u4fdd\u5b58\u5230C\u76d8\u6839\u76ee\u5f55\u4e0b\u4e86.<\/p>\n
\r\nfunction TForm1.ExtractRes(ResType, ResName, ResNewName: string): boolean;\r\nvar\r\nRes: TResourceStream;\r\nbegin\r\ntry\r\nRes := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));\r\ntry\r\nRes.SavetoFile(ResNewName);\r\nResult := true;\r\nfinally\r\nRes.Free;\r\nend;\r\nexcept\r\nResult := false;\r\nend;\r\nend;\r\nend;\r\n\r\nvar\r\nhandle:Thandle; \/\/\u8c03\u7528\u4e86classes\u5355\u5143\r\n\r\nbegin\r\nExtractRes(\u2018exefile\u2019,'mask\u2019,'c:\\new.exe\u2019); \/\/\u8c03\u7528ExtractRes\u51fd\u6570\u91ca\u653e\u5230c:\\new.exe\r\nShellExecute(handle, \u2018open\u2019, PChar(\u2018c:\\new.exe\u2019), nil, nil, SW_SHOW); \/\/\u8c03\u7528shellexecute\u8fd9\u4e2aapi\u6267\u884c\u5b83,\u8c03\u7528\u4e86shellapi\u548cwindows\u5355\u5143\r\n\r\nend.\r\n<\/pre>\n(\u4e8c)\u4e2d\u7ea7\u5e94\u7528\u7bc7:<\/p>\n
\u4e0a\u9762\u6211\u4eec\u5df2\u7ecf\u77e5\u9053\u5982\u4f55\u628a\u4e00\u526fBMP\u56fe\u50cf\u4ece\u8d44\u6e90\u6587\u4ef6\u91cc\u9762\u8bfb\u51fa\u6765,\u4f46\u662fBMP\u6587\u4ef6\u592a\u5927\u4e86,JPG\u6587\u4ef6\u5e94\u7528\u7684\u76f8\u5bf9\u8f83\u591a.\u90a3\u4e48\u5982\u4f55\u628aJPG\u56fe\u50cf\u8bfb\u51fa\u6765\u5462?\u7528\u8d44\u6e90\u6587\u4ef6\u52a0\u6d41\u65b9\u5f0f\u5373\u53ef\u3002\u5177\u4f53\u65b9\u6cd5\u5982\u4e0b:<\/p>\n
\r\n(1)MyJpg JPEG\u3000My.JPG\r\n(2)Var\r\nStream:TStream;\r\nMyJpg:TJpegImage;\r\nBegin\r\nStream\uff1a\uff1dTResourceStream.Cceat(HINSTANCE,\u2019MyJpg\u2019,'JPEG\u2019);\r\nTry\r\nMyJpg:=TJpegImage.Create;\r\nTry\r\nMyJpg.LoadfromStream(Stream);\r\nImage1.Picture.Assignc(MyJpg);\r\nFinally\r\nMyJpg.Free;\r\nend;\r\nFinally\r\nStream.Free;\r\nend;\r\nend;\r\n<\/pre>\n\u8bfb\u53d6\u5176\u5b83\u56fe\u7247\u6587\u4ef6\u4e5f\u662f\u4e00\u6837\u7684.\u6bd4\u5982\u8bf4gif\u52a8\u753b\u6587\u4ef6\uff0c\u5f53\u7136\u524d\u63d0\u662f\u4f60\u6709\u4e00\u4e2agif.pas\uff0c\u8fd9\u4e2a\u5355\u5143\u5f88\u591a\u7ad9\u70b9\u90fd\u6709\u7684\uff0c\u53ef\u4ee5\u81ea\u5df1\u53bb\u627e\u627e\u3002\u5b9e\u9645\u5e94\u7528\u4e2d\u6211\u8fd8\u53d1\u73b0\u7528\u4e0a\u9762\u7684\u4ee3\u7801\u53ef\u4ee5\u76f4\u63a5\u663e\u793a\u8d44\u6e90\u6587\u4ef6\u4e2d\u7684ICON\u548cBMP.
\n\u8bf4\u5230\u56fe\u5f62\u5904\u7406,\u5b9e\u9645\u4e0a\u8fd8\u53ef\u4ee5\u7528Delphi\u521b\u5efa\u3001\u8c03\u7528\u7eaf\u56fe\u6807\u8d44\u6e90\u7684DLL.\u6bd4\u5982\u8bf4\u4f60\u53ef\u4ee5\u770b\u770b\u8d85\u7ea7\u89e3\u9738\u76ee\u5f55\u4e0b\u7684Dll,\u5f88\u591a\u5c31\u662f\u7eaf\u56fe\u6807\u8d44\u6e90\u800c\u5df2\u3002\u5177\u4f53\u65b9\u6cd5\u5982\u4e0b:<\/p>\n(1):\u521b\u5efa\u4e00\u4e2aHicon.RES\u6587\u4ef6,\u8fd9\u91cc\u4e0d\u518d\u91cd\u590d.
\n(2):\u65b0\u5efa\u4e00\u6587\u672c\u6587\u4ef6Icon.dpr,\u5185\u5bb9\u5982\u4e0b:<\/p>\n\r\nlibrary Icon;\r\n{$R Icon.RES}\r\nbegin\r\nend.\r\n<\/pre>\n\u7528Delphi\u6253\u5f00\u7f16\u8bd1\u5373\u53ef\u5f97\u5230Icon.dll.<\/p>\n
(3):\u5b9e\u9645\u8c03\u7528\u65b9\u6cd5\u5982\u4e0b:<\/p>\n
\r\n\u2026\u2026\r\nPrivate\r\nHinst:THANDLE;\r\n\u2026\u2026\r\nVar\u3000Hicon:THANDLE;\r\nbegin\r\nHinst:=Loadlibrary(\u2018Icon.dll\u2019);\r\nIf\u3000Hinst=0\u3000Then\u3000Exit\uff1b\r\nHicon:=Loadicon(Hinst,Pchar(Edit1.Text));\r\nIf\u3000Hicon<>0\u3000Then\u3000Image1.Picture.Icon.Handle:=Hicon;\r\nFreeLibrary(Hinst);\r\nend;\r\n<\/pre>\n\u5982\u679c\u4f60\u7684\u7a0b\u5e8f\u60f3\u5728\u56fd\u9645\u4e0a\u4f9b\u4f7f\u7528\u4e0d\u540c\u8bed\u8a00\u7684\u4eba\u4f7f\u7528\u7684\u8bdd,\u7528Dll\u6765\u5b58\u653e\u5b57\u7b26\u8d44\u6e90\u5c06\u662f\u4e00\u4e2a\u597d\u65b9\u6cd5.\u56e0\u4e3aDll\u4e0d\u8c61ini\u6587\u4ef6\u90a3\u6837\u53ef\u4ee5\u88ab\u4eba\u968f\u4fbf\u4fee\u6539,\u7279\u522b\u662f\u6709\u65f6\u4faf\u5982\u679c\u60f3\u4fdd\u5b58\u4e00\u4e9b\u7248\u6743\u4fe1\u606f\u7684\u8bdd\u7528Dll\u5c31\u518d\u597d\u4e0d\u8fc7\u4e86\u3002\u6bd4\u5982\u8bf4\u4f60\u51c6\u5907\u5f00\u53d1\u4e00\u4e2a”\u6c49\u5b57\u7b80\u7e41\u4f53\u7ffb\u8bd1\u5668”\u8f6f\u4ef6,\u51c6\u5907\u63d0\u4f9bGb32,Big5\u7801\u548c\u82f1\u6587\u4e09\u79cd\u8bed\u8a00\u83dc\u5355\u7ed9\u7528\u6237,\u90a3\u4e48\u4f60\u53ef\u4ee5\u8bd5\u8bd5\u7528Dll\u6765\u4fdd\u5b58\u5b57\u7b26\u8d44\u6e90.
\n\u6211\u4eec\u9700\u8981\u5efa\u7acb\u4e09\u4e2aDll.\u7b2c\u4e00\u6b65\u5f53\u7136\u662f\u5199Rc\u6587\u4ef6,\u4e3eGb32\u7801\u4e3a\u4f8b,\u5185\u5bb9\u5982\u4e0b:<\/p>\n\r\n\/*MySc.rc*\/\r\n#define IDS_MainForm_Caption 1\r\n#define IDS_BtnOpen_Caption 2\r\n#define IDS_BtnSave_Caption 3\r\n#define IDS_BtnBig5_Caption 4\r\n#define IDS_BtnGb32_Caption 5\r\n#define IDS_BtnHelp_Caption 6\r\n#define IDS_Help_Shelp 7\r\nStringtable\r\n{\r\nIDS_MainForm_Caption,"\u6c49\u5b57\u7b80\u7e41\u4f53\u7ffb\u8bd1\u5668"\r\nIDS_BtnOpen_Caption,"\u6253\u5f00\u6587\u4ef6"\r\nIDS_BtnSave_Caption,"\u4fdd\u5b58\u6587\u4ef6"\r\nIDS_BtnBig5_Caption,"\u8f6c\u6362\u6210Big5"\r\nIDS_BtnGb32_Caption,"\u8f6c\u6362\u6210Gb32"\r\nIDS_BtnHelp_Caption,"\u5e2e\u52a9"\r\nIDS_Help_Shelp,"\u8f93\u5165\u6587\u5b57\u6216\u6253\u5f00\u6587\u4ef6\u540e\u6309\u9700\u8981\u70b9\u51fb\u6309\u94ae\u5373\u53ef\u8f6c\u6362!"\r\n}\r\n<\/pre>\n\u7b2c\u4e8c\u6b65\u662fBrcc32\u7f16\u8bd1\u4e3aRes\u6587\u4ef6\u540e\u7528\u4e0a\u9762\u7684\u65b9\u6cd5\u5f97\u5230Dll\u6587\u4ef6,\u53e6\u5916\u4e24\u4e2aDll\u7528\u540c\u6837\u7684\u65b9\u6cd5\u751f\u6210.\u4e0b\u9762\u6765\u5e94\u7528\u4e00\u4e0b:
\n\u65b0\u5efa\u4e00\u4e2a\u5de5\u7a0b,\u653e\u4e0a\u4e94\u4e2aButton:BtnOpen,BtnSave,BtnBig5,BtnGb32\u548cBtnHelp.\u8fd8\u6709\u4e00\u4e2aTComboBox:CbSelect\u7528\u6765\u9009\u62e9\u8bed\u8a00\u79cd\u7c7b\u7684.
\n\u5177\u4f53\u4ee3\u7801\u5982\u4e0b:<\/p>\n\r\nunit Unit1;\r\ninterface\r\n\u2026\u2026\r\nprivate\r\nSHelp: string;\r\nfunction SearchLanguagePack: TStrings;\r\nprocedure SetActiveLanguage(LanguageName: string);\r\n{ Private declarations }\r\n\u2026\u2026\r\nimplementation\r\nprocedure TForm1.CbSelectChange(Sender: TObject);\r\nbegin\r\nSetActiveLanguage(CbSelect.Text);\/\/\u8c03\u7528\u76f8\u5e94Dll\u6587\u4ef6\u8bfb\u53d6\u76f8\u5e94\u5b57\u7b26.\r\nend;\r\nprocedure TForm1.FormCreate(Sender: TObject);\r\nbegin\r\nCbSelect.Items.AddStrings(SearchLanguagePack);\/\/\u641c\u7d22\u5f53\u524d\u76ee\u5f55\u4e0b\u6240\u6709\u7684Dll\u6587\u4ef6\u540d\u79f0\r\nend;\r\nfunction TForm1.SearchLanguagePack: TStrings;\r\nvar\r\nResultStrings: TStrings;\r\nDosError: integer;\r\nSearchRec: TsearchRec;\r\nbegin\r\nResultStrings := TStringList.Create;\r\nDosError := FindFirst(ExtractFilePath(ParamStr(0)) + \u2018*.dll\u2019, faAnyFile, SearchRec);\r\nwhile DosError = 0 do\r\nbegin\r\nResultStrings.Add(ChangeFileExt(SearchRec.Name, \u201d));\r\nDosError := FindNext(SearchRec);\r\nend;\r\nFindClose(SearchRec);\r\nResult := ResultStrings;\r\nend;\r\n\r\nprocedure TForm1.SetActiveLanguage(LanguageName: string);\r\nvar\r\nHdll: Hmodule;\r\nMyChar: array[0..254] of char;\r\nDllFileName: string;\r\nbegin\r\nDllFileName := ExtractFilePath(ParamStr(0)) + LanguageName + \u2018.dll\u2019;\r\nif not FileExists(DllFileName) then Exit;\r\nHdll := loadlibrary(Pchar(DllFileName));\r\n\r\nLoadstring(hdll, 1, MyChar, 254);\r\nSelf.Caption := MyChar;\r\n\/\/\u8bfb\u53d6\u5b57\u7b26\u8d44\u6e90\uff0c1\u8868\u793a\u8d44\u6e90\u6587\u4ef6\u4e2d\u5b9a\u4e49\u76841\r\nLoadstring(hdll, 1, MyChar, 254);\r\nSelf.Caption := MyChar;\r\n\r\nLoadstring(hdll, 2, MyChar, 254);\r\nBtnOpen.Caption := MyChar;\r\n\r\nLoadstring(hdll, 3, MyChar, 254);\r\nBtnSave.Caption := MyChar;\r\n\r\nLoadstring(hdll, 4, MyChar, 254);\r\nBtnBig5.Caption := MyChar;\r\n\r\nLoadstring(hdll, 5, MyChar, 254);\r\nBtnGb32.Caption := MyChar;\r\n\r\nLoadstring(hdll, 6, MyChar, 254);\r\nBtnHelp.Caption := MyChar;\r\n\r\nLoadstring(hdll, 7, MyChar, 254);\r\nSHelp := MyChar;\r\n\r\nFreelibrary(hdll);\r\nApplication.Title := Self.Caption;\r\n\/\/\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\r\nBtnOpen.Visible := True;\r\nBtnSave.Visible := True;\r\nBtnBig5.Visible := True;\r\nBtnGb32.Visible := True;\r\nBtnHelp.Visible := True;\r\n\/\/\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\r\nend;\r\nprocedure TForm1.BtnHelpClick(Sender: TObject);\r\nbegin\r\nApplication.MessageBox(Pchar(SHelp), \u2018Http:\/\/lovejingtao.126.com\u2019, MB_ICONINFORMATION);\r\nend;\r\nend.\r\n<\/pre>\n\u53ef\u80fd\u4f60\u4f1a\u8bf4,\u8fd9\u79cd\u65b9\u6cd5\u8fd8\u4e0d\u5982\u6211\u81ea\u5df1\u5728\u7a0b\u5e8f\u4e2d\u76f4\u63a5\u5b9a\u4e49\u4e09\u79cd\u5177\u4f53\u7684\u503c\u6765\u7684\u65b9\u4fbf.\u751a\u81f3\u6211\u81ea\u5df1\u81ea\u5b9a\u4e49\u4e00\u4e2a\u7ed3\u6784\u597d\u4e86\uff0c\u7528\u4e0d\u7740\u7528DLL\u90a3\u4e48\u9ebb\u70e6\u7684\u3002\u4f46\u662f\u5982\u679c\u4f60\u7684\u7a0b\u5e8f\u8981\u7528\u7684\u5b57\u7b26\u5f88\u591a\u5462?\u6bd4\u5982\u8bf4Windows\u64cd\u4f5c\u7cfb\u7edf,\u672c\u8eab\u5c31\u6709\u7b80\u4f53\u4e2d\u6587,\u7e41\u4f53\u4e2d\u6587,\u82f1\u6587\u7b49\u7b49\u7248\u672c,\u7528Dll\u7684\u8bdd\u53ea\u8981\u76f4\u63a5\u66ff\u6362DLL\u5373\u53ef,\u800c\u4e0d\u7528\u6bcf\u53d1\u884c\u4e00\u4e2a\u7248\u672c\u5c31\u6253\u5f00\u4ee3\u7801\u6765\u4fee\u6539\u4e00\u6b21\u3002\u8fd9\u6837\u4e00\u6765\u53ef\u4ee5\u5927\u5927\u51cf\u5c11\u5de5\u4f5c\u91cf\u548c\u51fa\u9519\u7684\u673a\u4f1a.\u8bf4\u5230\u8fd9\u91cc,\u518d\u591a\u8bf4\u4e00\u53e5:Windows\u7cfb\u7edf\u672c\u8eab\u5f88\u591aDll\u5e26\u6709\u4e86\u56fe\u7247\u7b49\u8d44\u6e90,\u6211\u4eec\u53ef\u4ee5\u5728\u7a0b\u5e8f\u4e2d\u76f4\u63a5\u8c03\u7528,\u8fd9\u6837\u4e00\u6765\u6211\u4eec\u7684EXE\u4e5f\u53ef\u4ee5\u51cf\u5c11\u4e0d\u5c11!\u5f53\u7136\u6700\u5c0f\u7684\u65b9\u6cd5\u662f\u5b9e\u65f6\u751f\u6210\u6280\u672f.\u8001\u5916\u66fe\u7ecf\u5199\u4e86\u4e00\u4e2a67KB\u7684\u7a0b\u5e8f\u5c31\u662f\u5229\u7528\u4e86\u8fd9\u4e2a\u65b9\u6cd5.\u611f\u5174\u8da3\u7684\u670b\u53cb\u53ef\u4ee5\u5230http:\/\/go4.163.com\/lovejingtao\/ha1.exe\u4e0b\u8f7d.<\/p>\n
(\u4e09)\u9ad8\u7ea7\u5e94\u7528\u7bc7:<\/p>\n
Delphi\u662f\u4e2a\u5f88\u6709\u6548\u7387\u7684\u5f00\u53d1\u5de5\u5177,\u4f46\u662f\u5b83\u6709\u4e00\u4e2a\u7f3a\u70b9\u5c31\u662f\u751f\u6210\u7684EXE\u6587\u4ef6\u592a\u5927.\u4e00\u4e2a\u7a0b\u5e8f\u5c31\u7b97\u53ea\u6709\u4e00\u4e2a\u7a7a\u7a97\u53e3\u4f53\u79ef\u4e5f\u6709286KB.\u5982\u679c\u76f4\u63a5\u7528API\u6765\u5199\u7684\u8bdd\u7a0b\u5e8f\u4f53\u79ef\u662f\u5c0f\u4e86,\u4f46\u662f\u53c8\u592a\u7e41\u7410,\u65e0\u6cd5\u7acb\u5373\u770b\u5230\u754c\u9762\u6548\u679c,\u6839\u672c\u8c08\u4e0d\u4e0a\u662f\u53ef\u89c6\u5316\u5f00\u53d1.\u5176\u5b9e\u5e76\u975e”\u9c7c\u4e0e\u718a\u638c\u4e0d\u53ef\u517c\u5f97”,\u5229\u7528\u8d44\u6e90\u6587\u4ef6\u6211\u4eec\u5c31\u53ef\u4ee5\u8f7b\u677e\u8fbe\u5230\u8fd9\u4e2a\u76ee\u7684.
\n\u5728\u5f00\u59cb\u4e4b\u524d,\u6211\u4eec\u9700\u8981\u4e00\u4e2a\u53ef\u4ee5\u7f16\u8f91\u8d44\u6e90\u6587\u4ef6\u7684\u5de5\u5177.\u8fd9\u7c7b\u5de5\u5177\u5f88\u591a,\u6bd4\u5982\u8bf4Resource WorkShop\u5c31\u662f\u975e\u5e38\u597d\u7684\u4e00\u4e2a.\u5982\u679c\u4e00\u65f6\u627e\u4e0d\u5230,\u5229\u7528VC\u7684\u7f16\u8f91\u5668\u6765\u4e5f\u662f\u53ef\u4ee5\u7684.\u4e0b\u9762\u6211\u4eec\u5c31\u4ee5VC\u7684\u4e3a\u4f8b\u793a\u8303\u5982\u4f55\u521b\u5efa\u4e00\u4e2a\u7a97\u53e3\u8d44\u6e90\u6587\u4ef6.\u8fd0\u884cVC,\u6253\u5f00\u83dc\u5355File\u2013>New,\u5c06\u51fa\u73b0\u4e00\u4e2a\u591a\u9879\u9009\u62e9\u9875.\u6211\u4eec\u9009\u62e9Files\u2013>ResourceTemplate,\u5728\u53f3\u8fb9\u7684File\u586b\u4e0aDemo,Location\u9009\u62e9\u4fdd\u5b58\u8def\u5f84,\u7136\u540e\u70b9\u51fb\u6309\u94aeOK\u8fd4\u56deVC\u5f00\u53d1\u73af\u5883.
\n\u9009\u62e9\u83dc\u5355Insert\u2013>Resource,\u5c06\u51fa\u73b0\u4e00\u4e2a\u8d44\u6e90\u7c7b\u578b\u9009\u62e9\u6846.\u6211\u4eec\u628a\u9f20\u6807\u79fb\u5230Dialog\u4e0a\u9762.\u4e0d\u7528\u5c55\u5f00,\u70b9\u51fb\u53f3\u8fb9\u7684New\u5373\u53ef,\u8fd9\u65f6\u5019\u8fd4\u56deVC\u5f00\u53d1\u73af\u5883\u5e76\u51fa\u73b0\u4e00\u4e2a\u53ea\u6709\u5173\u95ed\u6309\u94ae\u548c\u4e24\u4e2aButton\u7684\u7a97\u4f53.\u5c06\u9f20\u6807\u9009\u5b9a\u7a97\u4f53,\u51fb\u53f3\u952e\u9009\u62e9\u6700\u540e\u4e00\u9879Properties,\u5c06\u51fa\u73b0\u4e00\u4e2a\u8bbe\u7f6e\u7a97\u53e3,\u5c06ID\u6539\u4e3a”MAINFORM”(\u6ce8\u610f:\u8ddf\u4e0b\u9762\u6dfb\u52a0\u7684\u5176\u5b83\u63a7\u4ef6\u7684\u5c5e\u6027\u8bbe\u7f6e\u65b9\u6cd5\u4e0d\u540c,\u4e3b\u7a97\u53e3\u7684ID\u5fc5\u987b\u628a\u53cc\u5f15\u53f7\u5199\u4e0a\u53bb,\u800c\u4e14\u540d\u79f0\u5fc5\u987b\u4e3a\u5927\u5199.\u5426\u5219\u7a0b\u5e8f\u5c06\u627e\u4e0d\u5230\u8d44\u6e90.\u7a0b\u5e8f\u4f1a\u4e00\u8fd0\u884c\u5c31\u9000\u51fa\u4e86.)Caption\u6539\u4e3a”\u5b89\u88c5\u7a0b\u5e8f”,\u8fd9\u65f6\u5019\u53ef\u4ee5\u7acb\u523b\u770b\u5230\u7a97\u53e3\u7684\u6807\u9898\u53d8\u6210\u4e86”\u5b89\u88c5\u7a0b\u5e8f”,\u628aStyles\u7684Minimize box\u9009\u4e0a,More Styles\u7684Center\u52fe\u4e0a\u4f7f\u7a0b\u5e8f\u8fd0\u884c\u65f6\u7684\u4f4d\u7f6e\u5c45\u4e2d.\u5f53\u7136\u4f60\u4e5f\u53ef\u4ee5\u8bbe\u7f6e\u5b83\u7684\u5750\u6807.\u5176\u5b83\u4fdd\u7559\u9ed8\u8ba4\u503c\u5373\u53ef.\u56de\u5230\u5f00\u53d1\u73af\u5883,\u5728\u63a7\u4ef6\u6846\u91cc\u9762\u5206\u522b\u9009\u62e9\u4e00\u4e2aStatic Text,\u4e00\u4e2aEdit Box,\u4e00\u4e2aButton\u548c\u4e00\u4e2aGroup Box\u6dfb\u52a0\u5230\u7a97\u4f53\u4e0a\u9762.\u628a\u5b83\u4eec\u6309\u7167\u81ea\u5df1\u7684\u7231\u597d\u6392\u5217\u6574\u9f50.\u7136\u540e\u9010\u4e2a\u4fee\u6539\u5b83\u4eec\u7684\u5c5e\u6027.\u65b9\u6cd5\u5c31\u662f\u6309\u7167\u4e0a\u9762\u8bf4\u7684\u9009\u5b9a\u63a7\u4ef6\u540e\u51fb\u53f3\u952e\u9009\u62e9\u6700\u540e\u4e00\u9879Properties,\u5728\u51fa\u73b0\u7684\u5c5e\u6027\u6846\u91cc\u9762\u4fee\u6539.\u5176\u4e2d\u5c5e\u6027\u5982\u4e0b:Group Box\u7684Caption\u5c5e\u6027\u6e05\u7a7a,Static Text\u7684Caption\u5c5e\u6027\u6539\u4e3a”\u8bf7\u9009\u62e9\u5b89\u88c5\u76ee\u5f55:”,Edit Box\u7684ID\u6539\u4e3a10001.\u7b2c\u4e00\u4e2aButton\u7684ID\u4e3a10002,Caption\u5c5e\u6027\u4e3a”\u9009\u62e9”,\u7b2c\u4e8c\u4e2aButton\u7684ID\u4e3a10003,Caption\u5c5e\u6027\u4e3a”\u5b89\u88c5”,\u7b2c\u4e09\u4e2aButton\u7684ID\u4e3a10004,Caption\u5c5e\u6027\u4e3a”\u9000\u51fa”.\u4e3a\u4e86\u4f7f\u7a0b\u5e8f\u66f4\u52a0\u5b8c\u7f8e,\u6211\u4eec\u4e3a\u5b83\u518d\u6dfb\u52a0\u4e00\u4e2a\u83dc\u5355IDR_MENU1.\u9009\u62e9Insert\u2013>Resource\u2013>Menu,\u6211\u4eec\u8fd9\u91cc\u53ea\u7b80\u5355\u6dfb\u52a0\u4e00\u9879”\u6587\u4ef6\u2013>\u9000\u51fa”,\u5176\u4e2d”\u9000\u51fa”\u7684ID\u4e3a10005.\u7136\u540e\u5728\u4e3b\u7a97\u53e3\u7684\u5c5e\u6027Menu\u8bbe\u5b9a\u4e3aIDR_MENU1\u5373\u53ef.
\n\u4e3a\u4e86\u4f7f\u7a0b\u5e8f\u66f4\u52a0\u7f8e\u89c2,\u6211\u4eec\u518d\u6dfb\u52a0\u4e00\u4e2a\u5c0f\u56fe\u6807,\u540c\u65f6\u8fd9\u4e5f\u5c06\u662f\u6211\u4eec\u7a0b\u5e8f\u7684\u56fe\u6807.\u9009\u62e9Insert\u2013>Resource\u2013>Icon\u2013>Import,\u9009\u62e9\u4e00\u4e2a\u56fe\u6807\u6587\u4ef6.\u5e76\u5c06\u5b83\u7684ID\u8bbe\u7f6e\u4e3a”MAINICON”(\u6ce8\u610f:\u5fc5\u987b\u628a\u53cc\u5f15\u53f7\u5199\u4e0a\u800c\u4e14\u5b57\u6bcd\u4e3a\u5927\u5199),\u4e3a\u7a97\u53e3\u6dfb\u52a0\u4e00\u4e2aPicture\u63a7\u4ef6\u5e76\u8bbe\u7f6e\u5b83\u7684\u5c5e\u6027Type:Icon,Image\u4e0b\u62c9\u9009\u62e9\u521a\u624d\u7684\u56fe\u6807MainIcon\u5373\u53ef.
\n\u5982\u679c\u4f60\u60f3\u4e3a\u7a0b\u5e8f\u5728\u9f20\u6807\u6dfb\u52a0\u4e00\u4e9b\u4fe1\u606f\u4e5f\u662f\u53ef\u4ee5\u7684.\u9009\u62e9Insert\u2013>Resource\u2013>Version\u5373\u53ef.
\n\u5230\u8fd9\u91cc\u6211\u4eec\u5df2\u7ecf\u5b8c\u6210\u4e86\u4e00\u4e2a\u7b80\u5355\u7684”\u5b89\u88c5\u7a0b\u5e8f”\u7684\u7a97\u4f53\u8bbe\u8ba1.\u5b9e\u9645\u4e0a\u6211\u4eec\u73b0\u5728\u5c31\u53ef\u4ee5\u5728Delphi\u4e2d\u8c03\u7528\u5b83\u4e86.\u6211\u4eec\u5148\u628a”\u52b3\u52a8\u6210\u679c”\u4fdd\u5b58\u8d77\u6765.\u9009\u62e9File\u2013>Save As,\u5728\u6587\u4ef6\u7c7b\u578b\u91cc\u9009\u62e9”32-bit Resource File(.res)”\u4fdd\u5b58\u4e3a”Demo.res”,\u6587\u4ef6\u5927\u5c0f\u5927\u7ea6\u4e3a2.65KB.
\n\u65b0\u5efa\u4e00\u4e2a\u6269\u5c55\u540d\u4e3adpr\u7684\u6587\u672c\u6587\u4ef6MyDemo.Dpr,\u952e\u5165\u5982\u4e0b\u4ee3\u7801:<\/p>\n\r\nUses Windows,Messages;\r\n{$R Demo.Res}\r\nfunction MainDialogProc(DlgWin:hWnd;DlgMessage:UINT;DlgWParam:WPARAM;DlgLParam:LPARAM):integer;stdcall;\r\nbegin\r\nResult := 0;\r\ncase DlgMessage of\r\nWM_Close:\r\nbegin\r\nPostQuitMessage(0);\r\nExit;\r\nend;\r\nend;\r\nend;\r\nbegin\r\nDialogBox(hInstance, \u2018MAINFORM\u2019, 0, @MainDialogProc);\r\nend.\r\n<\/pre>\n\u7528Delphi\u6253\u5f00\u5b83\u7f16\u8bd1\u4e00\u6b21\u5373\u53ef\u4ea7\u751f\u4e00\u4e2a\u5927\u5c0f\u4e3a19KB\u7684EXE.\u662f\u4e0d\u662f\u5f88\u5c0f!\u5b9e\u9645\u4e0a,\u4f60\u751a\u81f3\u53ea\u7528\u4e00\u884c\u4ee3\u7801\u5c31\u628a\u5b83Show\u51fa\u6765,\u4e0d\u8fc7\u7a0b\u5e8f\u65e0\u6cd5\u5173\u95ed\u800c\u5df2.<\/p>\n
\r\nUses Windows;\r\n{$R Demo.Res}\r\nfunction MainDialogProc: integer;\r\nbegin\r\nResult := 0;\r\nend;\r\nbegin\r\nDialogBox(hInstance, \u2018MAINFORM\u2019, 0, @MainDialogProc);\r\nend.\r\n<\/pre>\n\u4e0a\u9762\u7684\u7a0b\u5e8f\u53ea\u4e0d\u8fc7\u662f\u4e00\u4e2a\u7a7a\u7a97\u53e3\u800c\u5df2,\u73b0\u5728\u6211\u4eec\u6765\u5199\u4ee3\u7801\u54cd\u5e94\u6309\u4e0b\u76f8\u5e94\u6309\u94ae\u54cd\u5e94\u7684\u4e8b\u4ef6.\u5b8c\u6574\u4ee3\u7801\u5982\u4e0b:<\/p>\n
\r\nprogram MyDemo;\r\nuses Windows, Messages, shlobj;\r\nconst\r\nID_Edit = 10001;\r\nID_Selet = 10002;\r\nID_Setup = 10003;\r\nID_Quit = 10004;\r\nID_Exit = 10005;\r\n{$R Demo.Res}\r\nvar\r\nMainWin: HWND;\r\n\r\nfunction My_Gettext: string;\r\nvar\r\nTextlength: Integer;\r\nText: PChar;\r\ns: string;\r\nbegin\r\nTextLength := GetWindowTextLength(GetDlgItem(MainWin, ID_Edit));\r\nGetMem(Text, TextLength + 1);\r\nGetWindowText(GetDlgItem(MainWin, ID_Edit), Text, TextLength + 1);\r\ns := text;\r\nFreeMem(Text, TextLength + 1);\r\nResult := s;\r\nend;\r\n\r\nfunction Getmyname: string;\r\nvar\r\ni, j: integer;\r\nbegin\r\nJ := 3;\r\nfor i := 1 to length(ParamStr(0)) do\r\nif ParamStr(0)[i] = \u201d then J := I;\r\nResult := copy(ParamStr(0), J + 1, length(ParamStr(0)) \u2013 J);\r\nend;\r\n\r\nfunction SelectDirectory(handle: hwnd; const Caption: string; const Root:WideString;outDirectory:string): Boolean;\r\nvar\r\nlpbi: _browseinfo;\r\nbuf: array[0..MAX_PATH] of char;\r\nid: ishellfolder;\r\neaten, att: cardinal;\r\nrt: pitemidlist;\r\ninitdir: pwidechar;\r\nbegin\r\nresult := false;\r\nlpbi.hwndOwner := handle;\r\nlpbi.lpfn := nil;\r\nlpbi.lpszTitle := pchar(caption);\r\nlpbi.ulFlags := BIF_RETURNONLYFSDIRS + BIF_EDITBOX;\r\nSHGetDesktopFolder(id);\r\ninitdir := pwchar(root);\r\nid.ParseDisplayName(0, nil, initdir, eaten, rt, att);\r\nlpbi.pidlRoot := rt;\r\ngetmem(lpbi.pszDisplayName, MAX_PATH);\r\ntry\r\nresult := shgetpathfromidlist(shbrowseforfolder(lpbi), buf);\r\nexcept\r\nfreemem(lpbi.pszDisplayName);\r\nend;\r\nif result then\r\nbegin\r\ndirectory := buf;\r\nif length(directory) <> 3 then directory := directory + \u201d;\r\nend;\r\nend;\r\n\r\nfunction MainDialogProc(\r\nDlgWin: hWnd;\r\nDlgMessage: UINT;\r\nDlgWParam: WPARAM;\r\nDlgLParam: LPARAM\r\n)\r\n: integer; stdcall;\r\nvar\r\nMyIcon: HICON;\r\nSdir: string;\r\nbegin\r\nResult := 0;\r\ncase DlgMessage of\r\nWM_INITDIALOG:\r\nbegin\r\nMyIcon := LoadIcon(hInstance, \u2018MainIcon\u2019);\r\nSetClassLONG(DlgWin, GCL_HICON, MyIcon);\r\nMainWin := DlgWin;\r\nend;\r\nWM_Close:\r\nbegin\r\nPostQuitMessage(0);\r\nExit;\r\nend;\r\nWM_COMMAND:\r\ncase LOWORD(DlgWParam) of\r\n\r\nID_Selet:\r\nbegin\r\nif SelectDirectory(DlgWin, \u2018\u8bf7\u9009\u62e9\u5b89\u88c5\u76ee\u5f55\u2019, \u201d, Sdir)\r\nthen SendMessage(GetDlgItem(DlgWin, ID_Edit), WM_SETTEXT, 0, lParam(pChar(Sdir)));\r\nend;\r\nID_Setup:\r\nbegin\r\nif My_Gettext = \u201d then\r\nbegin\r\nMessageBox(DlgWin, \u2018\u8bf7\u5148\u9009\u62e9\u5b89\u88c5\u6587\u4ef6\u5939!\u2019, \u2018\u4fe1\u606f\u2019, MB_ICONINFORMATION + MB_OK);\r\nExit;\r\nend;\r\nCopyFile(pchar(ParamStr(0)), pchar(My_Gettext + Getmyname), false);\r\nMessageBox(DlgWin, \u2018\u5b89\u88c5\u5b8c\u6bd5!\u2019, \u2018\u4fe1\u606f\u2019, MB_ICONINFORMATION + MB_OK);\r\nPostQuitMessage(0);\r\nExit;\r\nend;\r\nID_Quit:\r\nbegin\r\nPostQuitMessage(0);\r\nEXIT;\r\nend;\r\nID_Exit:\r\nbegin\r\nif MessageBox(DlgWin, \u2018\u4f60\u70b9\u51fb\u4e86\u83dc\u5355\u201c\u9000\u51fa\u201d\uff0c\u4f60\u786e\u5b9a\u9000\u51fa\u7a0b\u5e8f\u5417?\u2019, \u2018\u4fe1\u606f\u2019, MB_ICONQUESTION + MB_OKCANCEL) = IDOK then\r\nPostQuitMessage(0);\r\nExit;\r\nend;\r\nend;\r\nend;\r\nend;\r\nbegin\r\nDialogBox(hInstance, \u2018MAINFORM\u2019, 0, @MainDialogProc);\r\nend.\r\n<\/pre>\n\u5176\u4e2dSelectDirectory\u51fd\u6570\u7684\u4f5c\u7528\u662f\u8fd4\u56de\u4e00\u4e2a\u9009\u62e9\u7684\u6587\u4ef6\u8def\u5f84.\u7136\u540e\u628a\u81ea\u5df1\u62f7\u8d1d\u5230\u9009\u62e9\u7684\u76ee\u5f55\u4e0b,\u5f53\u7136\u5f88\u591a\u5904\u7406\u6ca1\u6709\u5199,\u8bfb\u8005\u53ef\u4ee5\u81ea\u884c\u6dfb\u52a0.\u6587\u4ef6\u7f16\u8bd1\u540e\u5927\u5c0f\u4e3a22KB,\u5982\u679c\u76f4\u63a5\u7528Delphi\u7684VCL\u6765\u5199\u7684\u8bdd,\u5c06\u4e3a338KB!\u5b8c\u6574\u4ee3\u7801\u53ef\u4ee5\u5728\u6211\u7684\u4e3b\u9875\u4e0a\u4e0b\u8f7d:http:\/\/go4.163.com\/lovejingtao\/setup2.zip.\u4ee3\u7801\u4e2d\u7684\u6d88\u606f\u5904\u7406\u76f8\u4fe1\u5927\u5bb6\u770b\u7684\u61c2.\u5982\u679c\u4e0d\u7528\u8d44\u6e90\u6587\u4ef6\u800c\u76f4\u63a5\u7528API\u6765\u5199\u5c06\u5bf9\u5b83\u66f4\u52a0\u7406\u89e3\u6df1\u523b,.\u9650\u4e8e\u7bc7\u5e45\u8fd9\u91cc\u4e0d\u505a\u8be6\u7ec6\u4ecb\u7ecd,\u611f\u5174\u8da3\u7684\u8bfb\u8005\u53ef\u4ee5\u81ea\u884c\u4e0b\u8f7d\u4ee3\u7801\u6765\u770b:http:\/\/go4.163.com\/lovejingtao\/setup1.zip.
\n\u5168\u90e8\u4ee3\u7801\u5728Delphi+Pwin2000\u4e0b\u901a\u8fc7.<\/p>\n","protected":false},"excerpt":{"rendered":"\u8d44\u6e90\u6587\u4ef6\u4e00\u822c\u4e3a\u6269\u5c55\u540d\u4e3ares\u7684\u6587\u4ef6.\u5728VC\u4e2d\u8d44\u6e90\u6587\u4ef6\u7528\u5f97\u975e\u5e38\u666e\u904d,\u4f46Delphi\u5728\u5176\u8054\u673a\u5e2e\u52a9\u4e2d\u5bf9\u8d44\u6e90\u6587\u4ef6\u6ca1\u4f5c\u4ec0 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[],"class_list":["post-130","post","type-post","status-publish","format-standard","hentry","category-code_related"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/130","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/comments?post=130"}],"version-history":[{"count":1,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/130\/revisions"}],"predecessor-version":[{"id":4817,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/130\/revisions\/4817"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=130"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=130"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=130"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}