以下程序可实现在delphi中显示自定义图标:
资源文件的制作:
注意事项:创建的资源文件名不要和工程名相同,因为Delphi创建工程时会自动创建一个和工程名相同的资源文件。并且最好将资源文件保存到和工程文件同一个文件夹中。
1、首先创建一个.Rc的纯文本文件。格式如下:
资源标识符 关键字 资源文件名
格式说明:
① 资源标识符:程序中调用资源时的特定标号;
② 关键字:标识资源文件类型;例如:
Wave : 资源文件是声音文件;
RCDATA: JPEG文件;
AVI : AVI动画;
ICON : 图标文件;
BITMAP: 位图文件;
CURSOR: 光标文件;
RMI : RMI音乐文件;
MIDI : MIDI音乐文件
③ 资源文件名:加入的资源文件名;
④ 举例:
mypic Bitmap Water.BMP //加入位图
mywav WAVE happy.wav //加入声音
myAVI AVI EPOEN.AVI //加入视频
myIco ICON CJT.ICO //加入图标 假设我们把上述5行保存成myres.rc文件。
2、使用Borland资源编译器(BRCC32.EXE)转化.rc文件成.rec文件。
在DOS命令行下输入下列命令:
C: //转在C:驱
CD/ //退回根目录
CD/Program Files/Borland/Delphi7/Bin //进入BRCC32.EXE的所在目录
Brcc32 myres.rc //把myres.rc转换成资源文件myres.res
注意转换前需要把myres.rc文件中指定的未带全路径名的文件Copy进当前目录C:/Program Files/Borland/Delphi7/Bin中来,才可保证转成.RES文件不出错。如果转换过程没有报错,则成功。
3、引用资源文件
把上一步骤生成的资源文件myres.res放到要建立的工程的同一个目录中来。
为了存取我们的资源文件,必须告诉Delphi链接我们的资源文件到应用程序中。因此要在源代码中加入一条编译指令完成上述功能。这条指令必须紧跟在窗口指令后,如下形式:
{$R *.DFM} //Delphi自带编译指令
{$R Sample.RES} //新加入的编译资源文件的指令
不要删除{$R *.DFM}指令,因为这行代码告诉Delphi链接下面的资源到窗口的资源中。
下面的语句可以用来改变动态应用程序的图标:
procedure TForm1.Button3Click(Sender: TObject);
begin
Application.Icon.Handle := LoadIcon(hInstance,'myIco'); //动态改变应用程序图标
end;