摘要: //几乎每一个提取资源的例子都用到了 HInstance, 做个对比测试: var h,a,f: Cardinal; begin h := HInstance; a := Application.Handle; f := Self.Handle; ShowMessage(IntToStr(h)); {4194304} ShowMessage(IntToStr(a)); ... 阅读全文
posted @ 2008-02-14 22:01 万一 阅读(3558) 评论(1) 推荐(1)
摘要: //rc 文件: StringTable begin 0 "AAAA" 1 "BBBB" 2 "CCCC" 3 "DDDD" end //也可以这样写: StringTable begin 0,"AAAA" 1,"BBBB" 2,"CCCC" 3,"DDDD" end //还可以这样写: StringTable { 0,"AAAA" 1,"BBBB" 2,"CCCC" 3,&q 阅读全文
posted @ 2008-02-14 21:30 万一 阅读(4875) 评论(2) 推荐(0)
摘要: //rc 文件: MyMenu1 MENU begin Popup "File" begin MenuItem "&Open" MenuItem "&Save" MenuItem Separator MenuItem "E&xit" end end {严格的头可能是这样写: MyMenu1 MENU PRELOAD DISCARDABLE} //程序代码: unit Unit1; i... 阅读全文
posted @ 2008-02-14 20:42 万一 阅读(4043) 评论(2) 推荐(0)
摘要: //rc 文件: cur1 CURSOR cur\kyodai.cur cur2 CURSOR cur\static.cur //或者 cur1,CURSOR,cur\kyodai.cur cur2,CURSOR,cur\static.cur //程序代码: unit Unit1; interface uses Windows, Messages, SysUtils, Varian... 阅读全文
posted @ 2008-02-14 19:09 万一 阅读(4025) 评论(4) 推荐(0)
摘要: 首先编辑 rc 文件如下(假定图片文件放在程序目录下的 img 文件夹下): 1 BITMAP img\bmpFile1.bmp 2 BITMAP img\bmpFile2.bmp 或者: 1,BITMAP,img\bmpFile1.bmp 2,BITMAP,img\bmpFile2.bmp 这次我们是给每个资源做了编号, 没有取标识名称; 然后在窗体上添加两个 Button, 代码如下: u... 阅读全文
posted @ 2008-02-14 16:29 万一 阅读(4648) 评论(0) 推荐(0)
摘要: 首先编辑 rc 文件如下(假定图片文件放在程序目录下的 img 文件夹下): bmp1 BITMAP img\bmpFile1.bmp bmp2 BITMAP img\bmpFile2.bmp 或者: bmp1,BITMAP,img\bmpFile1.bmp bmp2,BITMAP,img\bmpFile2.bmp 然后在窗体上添加一个 Image、两个 Button, 代码如下: unit ... 阅读全文
posted @ 2008-02-14 12:53 万一 阅读(6108) 评论(9) 推荐(0)
摘要: 现在要做一个携带两个图标的资源文件, 并调用的例子. 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... 阅读全文
posted @ 2008-02-14 11:01 万一 阅读(5552) 评论(0) 推荐(0)
摘要: 资源文件(*.res)通过编译指令 $R 关联, 譬如工程文件 Project1 中的 {$R *.res} 就是关联 Project1.res 资源文件, 我们直接写作 {$R Project1.res} 不会有问题(但如果工程文件改名时, 你也得随着改才行). 譬如: program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1... 阅读全文
posted @ 2008-02-14 09:07 万一 阅读(7714) 评论(3) 推荐(0)