Delphi學習使用資源文件 - Ico

現在要做一個攜帶兩個圖標的資源文件, 並調用的例子.

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

　　2、復制兩個 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、添加四個按鈕, 實現代碼如下:

unit　Unit1;　

interface　

uses　
　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,　
　Dialogs,　StdCtrls;　

type　
　TForm1　=　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;　

var　
　Form1:　TForm1;　

implementation　

{$R　*.dfm}　

//使用資源中的第一個自定義圖標　
procedure　TForm1.Button1Click(Sender:　TObject);　
begin　
　Application.Icon.Handle　:=　LoadIcon(HInstance,　’ico1’);　
{　
　HInstance　當前程序實例的句柄,　調用資源文件一定要用到它;　
　ico1　是資源文件的標識符;　
　LoadIcon　是個　API　函數,　專門用於調用資源中的　ico　文件,　它返回的是指定　ico　文件的句柄.　
}　
end;　

//使用資源中的第二個自定義圖標　
procedure　TForm1.Button2Click(Sender:　TObject);　
begin　
　Application.Icon.Handle　:=　LoadIcon(HInstance,　’ico2’);　
end;　

//使用資源中默認的程序圖標　
procedure　TForm1.Button3Click(Sender:　TObject);　
begin　
　Application.Icon.Handle　:=　LoadIcon(HInstance,　’MainIcon’);　
end;　

//不使用圖標(會顯示　Windows　系統的默認圖標)　
procedure　TForm1.Button4Click(Sender:　TObject);　
begin　
　Application.Icon　:=　nil;　
end;　

end.

　　//效果圖:

　　注釋:

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

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

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