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;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 当前程序实例的句柄, 调用资源文件一定要用到它;ico1 是资源文件的标识符;LoadIcon 是个 API 函数, 专门用于调用资源中的 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 系统的默认图标)
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 中了.