学习使用资源文件[2] - Ico

学习使用资源文件[2] - Ico

学习使用资源文件[2] - 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 中了.