Chinaunix首页 | 论坛 | 博客
  • 博客访问: 15272137
  • 博文数量: 2005
  • 博客积分: 11986
  • 博客等级: 上将
  • 技术积分: 22535
  • 用 户 组: 普通用户
  • 注册时间: 2007-05-17 13:56
文章分类

全部博文(2005)

文章存档

2014年(2)

2013年(2)

2012年(16)

2011年(66)

2010年(368)

2009年(743)

2008年(491)

2007年(317)

分类:

2010-01-28 09:56:26

1. 使用记事本或其他文本工具新建my_res.rc空白文件,输入如下一行数据:

ico1 ICON app.ico


2. 快捷键Ctrl+Alt+F11或者View==>Project Manager
3. 将my_res.rc拖拽进来或者点击Add添加
4. ok,ico图表的关联工作已经完成了,
   可以在Project==>View Source中看到{$R 'icos\my_res.res' 'icos\my_res.rc'},
   接下来使用该图标
5. 测试代码:
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.Icon.Handle:=LoadIcon(HInstance, 'ico1');
end;

=========================================================================
(PS:上面的app.ico为图标所在路径,我的my_res.rc和app.ico在同一目录下,
 如果有多个资源ico,那么可以继续添加,
比如:
ico2 ICON tray.ico
mycur cursor move.cur //加入光标
mypic Bitmap Water.BMP //加入位图
mywav WAVE happy.wav //加入声音
myAVI AVI EPOEN.AVI //加入视频
myIco ICON CJT.ICO //加入图标
MUSIC1 FILE1 MOON.MP3//MP3文件)
阅读(1226) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~