現(xiàn)在要做一個攜帶兩個圖標的資源文件, 并調(diào)用的例子.

1、首先建新工程, 保存, 注意這次我們不刪除 {$R *.res}

2、復(fù)制兩個 ico 文件到工程目錄, 譬如文件是: IcoFile_1.ico、IcoFile_2.ico

3、建立文本文件輸入:
ico1 ICON IcoFile_1.ico
ico2 ICON IcoFile_2.ico

然后保存為: MyRes.rc, 并 Add 到工程中, 如圖:


4、此時的工程文件會自動插入: {$R 'MyRes.res' 'MyRes.rc'}

5、添加四個按鈕, 實現(xiàn)代碼如下: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button4Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}//使用資源中的第一個自定義圖標 procedure TForm1.Button1Click(Sender: TObject); beginApplication.Icon.Handle := LoadIcon(HInstance, 'ico1'); {HInstance 當前程序?qū)嵗木浔? 調(diào)用資源文件一定要用到它;ico1 是資源文件的標識符;LoadIcon 是個 API 函數(shù), 專門用于調(diào)用資源中的 ico 文件, 它返回的是指定 ico 文件的句柄. } end;//使用資源中的第二個自定義圖標 procedure TForm1.Button2Click(Sender: TObject); beginApplication.Icon.Handle := LoadIcon(HInstance, 'ico2'); end;//使用資源中默認的程序圖標 procedure TForm1.Button3Click(Sender: TObject); beginApplication.Icon.Handle := LoadIcon(HInstance, 'MainIcon'); end;//不使用圖標(會顯示 Windows 系統(tǒng)的默認圖標) procedure TForm1.Button4Click(Sender: TObject); beginApplication.Icon := nil; end;end.//效果圖:

---

注釋:

1、此時的 MyRes.rc 被編譯成了 MyRes.res;

2、此時的 IcoFile_1.ico、IcoFile_2.ico 文件被編譯進 MyRes.res;

3、此時的 MyRes.res 文件也被編譯到 Project1.exe 中了.

---

轉(zhuǎn)載于:https://www.cnblogs.com/del/archive/2008/02/14/1068519.html

創(chuàng)作挑戰(zhàn)賽新人創(chuàng)作獎勵來咯，堅持創(chuàng)作打卡瓜分現(xiàn)金大獎

總結(jié)

以上是生活随笔為你收集整理的学习使用资源文件[2] - Ico的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。