myIco ICON CJT.ICO //加入圖標
格式分別為在資源文件中的名稱->類型->實際文件名稱,例如上面第一行定義一個名為mycur的光標,實際名稱為加入光標move.cur.
2.將rc文件編譯成res資源文件
將腳本文件和實際文件拷到Brcc32.EXE所在目錄,執行DOS命令。格式為:Brcc32 腳本文件(回車),例如有一名為myfirst.rc的腳本文件,則執行 Brcc32 myfirst.rc(回車)即可。如果你是懶人,也可新建一批處理文件,內容只有一行:Brcc32 mufist.rc.(因為Delphi安裝后一般會在自動批處理文件中指明搜索路徑的。)如果編譯成功,則會生成一個結尾為res的文件,這個文件就是我們需要的資源文件。
3.在Delphi單元中加入資源文件
將生成的res資源文件拷貝到你所編程序的路徑下,在單元文件{$R *DFM}后加上一句{$R mufirst.res},則將res文件加入去,編譯后資 源文件即已包含在可執行文件中了。若你有多個資源文件,也按上法依次加入。
4.在Delphi程序中調用資源文件
資源文件在Delphi中的關鍵字為hinstance.下面給出具體用法.
<1>光標的調用
首先在程序中定義一個值大于0的常量,因為Delphi本身用0-負16來索引默認的光標,所以我們制定的光標應從表面上1開始索引。然后在窗口的Oncreat事件中添加以下代碼:
screen.cursor[35]:=Loadcursor (hinstance,’mycur’);
其中35為大于1的常量,mycur為光標在資源文件中的名字。如果希望在其他控件上使用定制光標,例如Panel控件,只需在程序的適當處加入以下代碼:
Panel1.cursor:=35;
<2>位圖的調用
新建一項工程,添加一Timage控件,在需要顯示的地方寫以下代碼:
Var mymap:Hbitmap;
begin
延伸閱讀
文章來源于領測軟件測試網 http://www.kjueaiud.com/