{"id":177,"date":"2009-01-03T16:22:00","date_gmt":"2009-01-03T08:22:00","guid":{"rendered":""},"modified":"2013-11-18T21:42:26","modified_gmt":"2013-11-18T13:42:26","slug":"delphi%e8%b5%84%e6%ba%90%e6%96%87%e4%bb%b6%e5%ad%a6%e4%b9%a0%e7%ac%94%e8%ae%b0","status":"publish","type":"post","link":"https:\/\/kyle.ai\/blog\/177.html","title":{"rendered":"Delphi\u8d44\u6e90\u6587\u4ef6\u5b66\u4e60\u7b14\u8bb0"},"content":{"rendered":"<p>\u9f20\u6807\u6307\u9488<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nScreen.Cursors&#x5B;1] := LoadCursor(HInstance, \u2018cur1\u2032);\r\nScreen.Cursors&#x5B;2] := LoadCursor(HInstance, \u2018cur2\u2032);\r\nPanel1.Cursor := TCursor(1); \/\/Panel1.Cursor := 1; \u4e5f\u53ef, \u56e0\u4e3a TCursor \u5c31\u662f\u4e2a\u6570\u5b57\u7c7b\u578b.\r\nPanel2.Cursor := TCursor(2);\r\n\r\nImage1.Picture.Bitmap.Handle := LoadBitmap(HInstance, \u2018bmp1\u2032);\r\nimage1.Picture.Bitmap.LoadFromResourceName(HInstance, \u2018bmp2\u2032);\r\n<\/pre>\n<p>BMP\u56fe\u7247 \u7528\u56fe\u7247\u4f5c\u7a0b\u5e8f\u80cc\u666f\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nbit := TBitmap.Create;\r\nbit.LoadFromResourceID(HInstance, 1);\r\nSelf.Brush.Bitmap := bit;\r\nRepaint;\r\n<\/pre>\n<p>\u5176\u4e2drc\u6587\u4ef6\u4e2d\u7528\u7f16\u53f7 1 BITMAP img\\bmpFile1.bmp \u83dc\u5355\u8d44\u6e90<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\n\/\/rc \u6587\u4ef6:\r\nMyMenu1 MENU\r\nbegin\r\nPopup &quot;File&quot;\r\nbegin\r\nMenuItem &quot;&amp;Open&quot;\r\nMenuItem &quot;&amp;Save&quot;\r\nMenuItem Separator\r\nMenuItem &quot;E&amp;xit&quot;\r\nend\r\nend\r\n\r\nprocedure TForm1.FormCreate(Sender: TObject);\r\nvar\r\nhm: HMENU;\r\nbegin\r\nhm := LoadMenu(HInstance, \u2018MyMenu1\u2032);\r\nSetMenu(Handle, hm);\r\nend;\r\n<\/pre>\n<p>\u5b57\u7b26\u4e32\u8d44\u6e90<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\n\/\/rc \u6587\u4ef6:\r\nStringTable\r\nbegin\r\n0 &quot;AAAA&quot;\r\n1 &quot;BBBB&quot;\r\n2 &quot;CCCC&quot;\r\n3 &quot;DDDD&quot;\r\nend\r\n\r\nprocedure TForm1.FormCreate(Sender: TObject);\r\nbegin\r\nMemo1.Clear;\r\nwith Memo1.Lines do\r\nbegin\r\n    Add(LoadStr(0));\r\n    Add(LoadStr(1));\r\n    Add(LoadStr(2));\r\n    Add(LoadStr(3));   \r\nend;\r\nend;\r\n\r\n\/\/\u5047\u5982\u6709\u8fd9\u6837\u4e00\u4e2a\u5b57\u7b26\u4e32\u8d44\u6e90: \r\nStringTable\r\nbegin\r\n0 &quot;String_One&quot;\r\n1 &quot;String_Two&quot;\r\nend\r\n\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nvar\r\nsp: array&#x5B;0..254] of Char;\r\nbegin\r\nLoadString(HInstance, 0, sp, SizeOf(sp));\r\nShowMessage(sp); {String_One}\r\n\r\nLoadString(HInstance, 1, sp, SizeOf(sp));\r\nShowMessage(sp); {String_Two}\r\nend;\r\n<\/pre>\n<p>\u63d0\u53d6dll\u4e2d\u7684BMP\u6587\u4ef6<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nprocedure TForm1.FormPaint(Sender: TObject);\r\nvar\r\nh: THandle;\r\nbit: TBitmap;\r\nbegin\r\nh := LoadLibrary(\u2018c:\\temp\\Project1.dll\u2019); {\u8f7d\u5165 DLL}\r\nbit := TBitmap.Create;\r\nbit.LoadFromResourceName(h, \u2018img1\u2032);      {\u63d0\u53d6\u8d44\u6e90}\r\nCanvas.Draw(10, 10, bit);                 {\u5728\u7a97\u4f53\u4e0a\u7ed8\u5236\u56fe\u7247}\r\nFreeLibrary(h);                           {\u8f7d\u5378 DLL}\r\nbit.Free;\r\nend;\r\n<\/pre>\n<p>WinAPI: ExtractIcon \u2013 \u83b7\u53d6 EXE\u3001DLL \u6216 ICO \u6587\u4ef6\u4e2d\u7684\u56fe\u6807<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\n\/\/\u58f0\u660e:\r\nExtractIcon(\r\nhInst: HINST;           {\u8c03\u7528\u51fd\u6570\u7684\u7a0b\u5e8f\u5b9e\u4f8b}\r\nlpszExeFileName: PChar; {\u6587\u4ef6\u8def\u5f84; \u6587\u4ef6\u53ef\u4ee5\u662f *.exe\u3001*.dll\u3001*.ico}\r\nnIconIndex: UINT        {\u56fe\u6807\u7d22\u5f15}\r\n): HICON; {\u8fd4\u56de\u56fe\u6807\u53e5\u67c4; \u7d22\u5f15\u4e3a 0 \u65f6\u8fd4\u56de\u7b2c\u4e00\u4e2a\u56fe\u6807\u53e5\u67c4; \u7d22\u5f15\u4e3a #FFFFFFFF \u65f6\u8fd4\u56de\u56fe\u6807\u603b\u6570}\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u9f20\u6807\u6307\u9488 Screen.Cursors&#x5B;1] := LoadCursor(HInstance, \u2018c [&hellip;]<\/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-177","post","type-post","status-publish","format-standard","hentry","category-code_related"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/177","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=177"}],"version-history":[{"count":1,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/177\/revisions"}],"predecessor-version":[{"id":4805,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/177\/revisions\/4805"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=177"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=177"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=177"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}