社区
Delphi
帖子详情
如何把位图,字体,图标资源保存在Dll动态库中,以便让不同的Windows应用程序共享
benbin
2003-09-12 01:32:20
如题
...全文
79
7
打赏
收藏
如何把位图,字体,图标资源保存在Dll动态库中,以便让不同的Windows应用程序共享
如题
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
benbin
2003-09-12
打赏
举报
回复
好,谢谢Delphi_Li,
俺先保存了,漫漫看,谢啦
揭贴。
Delphi_Li
2003-09-12
打赏
举报
回复
RC的例子
/////////////////////////////////////////////////////////////////////////////
// Lesson data - included by SPEAKN.RC
; DOG
DOG bitmap res\dog.dib
DOG sound res\dog.wav
; PIG
PIG bitmap res\pig.dib
PIG sound res\pig.wav
; FROG
FROG bitmap res\frog.dib
FROG sound res\frog.wav
; TRAIN
TRAIN bitmap res\train.dib
TRAIN sound res\train.wav
Delphi_Li
2003-09-12
打赏
举报
回复
1、用文本编辑器编写一个文本文件,象下面这个样子:
名称 类型 位置
XXX BITMAP "A.BMP"
....
2、保存这个文件,扩展名用Rc(其实什么都可以)
3、使用命令行Brcc32 XXX.Rc文件
4、如果成功,将生成一个XXX.Res的文件
5、在DLL文件中加入{$R XXX.RES}(XXX.Res是你的Res文件)
6、使用各种装载资源的Load方法从DLL中获取资源
benbin
2003-09-12
打赏
举报
回复
To Drate :
我想把图标,图片,字体等资源放到我自己做的DLL内,如何做?
benbin
2003-09-12
打赏
举报
回复
To Delphi_Li:
俺太菜,对于1,2步能否再详细告之。
Drate
2003-09-12
打赏
举报
回复
把图标存储在SHELL32.DLL laoli(原作)
关键字 图标,SHELL32.DLL
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,shellapi,Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
DesktopIcon: TimageList; // 做一个你喜欢的图象列表
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
Var Ico: TIcon;
Sfi: Tshfileinfo;
I : Integer;
begin
//分配一个句柄给图象列表
DesktopIcon:= TImageList.Create(Self);
DesktopIcon.Handle := SHGetFileInfo('', 0, sfi, SizeOf(TSHFileInfo),
shGFI_SYSICONINDEX or SHGFI_SMALLICON);
DesktopIcon.ShareImages := TRUE;
For I:=0 to DesktopIcon.count -1 do
Begin
Ico := Ticon.Create;
DesktopIcon.GetIcon(I,Ico);
Ico.SaveToFile('c:\icons\'+inttostr(i)+'.ico');
Ico.Free;
End;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Desktopicon.free;
end;
end.
Delphi_Li
2003-09-12
打赏
举报
回复
1、创建RC脚本
2、用Brcc32将上面的脚本编译成Res文件
3、在DLL文件中加入{$R XXX.RES}(XXX.Res是你的Res文件)
4、使用各种装载资源的Load方法从DLL中获取资源
精通
Windows
.API-函数、接口、编程实例.pdf
9.5.3 在程序
中
使用
资源
273 9.6 菜单 273 9.6.1 菜单
资源
和菜单句柄 273 9.6.2 动态增加、删除、设置菜单及菜单项 274 9.6.3 菜单消息处理 274 9.7 对话框 275 9.7.1 创建对话框 275 9.7.2 对话框...
精通
Windows
API 函数 接口 编程实例
9.5.3 在程序
中
使用
资源
273 9.6 菜单 273 9.6.1 菜单
资源
和菜单句柄 273 9.6.2 动态增加、删除、设置菜单及菜单项 274 9.6.3 菜单消息处理 274 9.7 对话框 275 9.7.1 创建对话框 275 9.7.2 对话框...
Visual C++开发经验技巧宝典(第9章)
0625 从
动态库
中
获取
位图
资源
414 0626 屏蔽键盘POWER键 415 0627 屏蔽键盘WIN键 415 0628 禁止使用 Alt+F4 键来关闭窗体 416 0629 枚举模块
中
的所有
图标
417 0630 使用模块对话框
资源
418 0631 替换...
Visual C++开发经验技巧宝典(第9章)—1
0625 从
动态库
中
获取
位图
资源
414 0626 屏蔽键盘POWER键 415 0627 屏蔽键盘WIN键 415 0628 禁止使用 Alt+F4 键来关闭窗体 416 0629 枚举模块
中
的所有
图标
417 0630 使用模块对话框
资源
418 0631 替换...
API之网络函数---整理网络函数及功能
AddFontResource 在
Windows
系统
中
添加一种
字体
资源
CreateFont 用指定的属性创建一种逻辑
字体
CreateFontIndirect 用指定的属性创建一种逻辑
字体
CreateScalableFontResource 为一种TureType
字体
创建一个
资源
文件...
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章