社区
Delphi
帖子详情
修改注册表关联文件后怎样显示出相关图标?
coolqiang
2000-01-14 08:16:00
修改注册表关联文件已经成功,但文件没有图标显示,应该怎么办?
...全文
308
4
打赏
收藏
修改注册表关联文件后怎样显示出相关图标?
修改注册表关联文件已经成功,但文件没有图标显示,应该怎么办?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
coolqiang
2000-01-16
打赏
举报
回复
多谢诸位的热诚帮助!
olo
2000-01-14
打赏
举报
回复
设置DefaultIcon了吗?
limodou
2000-01-14
打赏
举报
回复
通过对注册表进行修改,可以实现一种文件名后缀与某个应用程序相关联
程序例如下:
procedure registerfiletype(ft,key,desc,icon,prg:string);
//ft:文件名后缀,如可以为'.tst'或'afile.tst'
//key:在注册表中的键值,要唯一
//desc:关联程序的描述
//icon:缺省的程序图标,如Application.ExeName+',1',可以缺省
//prg:对应的应用程序
var myreg : treginifile;
ct : integer;
begin
// 取文件的后缀
ct := pos('.',ft);
while ct > 0 do begin
delete(ft,ct,1);
ct := pos('.',ft);
end;
if (ft = '') or (prg = '') then exit; //判断后缀及应用程序是否有效
ft := '.'+ft;
myreg := treginifile.create('');
try
myreg.rootkey := hkey_classes_root; // 根应该为HKEY_CLASSES_ROOT
if key = '' then key := copy(ft,2,maxint)+'_auto_file';
// 如果没给出键值,则自动创建一个
myreg.writestring(ft,'',key); // 写入描述的键值
myreg.writestring(key,'',desc); // 写入描述
if icon <> '' then
myreg.writestring(key+'\DefaultIcon','',icon);
// 写入缺省图标
myreg.writestring(key+'\shell\open\command','',prg+' "%1"');
//写入相关联的应用程序
finally
myreg.free;
end;
end;
调用例子:
Example:
registerFileType('.tst',
'testfile',
'测试关联文件',
Application.ExeName+',1',
Application.ExeName);
原理说明:
程序关联的键值放在注册表根为HKEY_CLASSES_ROOT下面。实现文件关联要写入两
个键值:后缀键值和描述键值(可用术语用的不对)
如实现将.tst与程序tstfile.exe相关联
其中后缀键值形为: .tst myprogram
key值为文件后缀,取值为对于key的一个描述
描述键值形为: myprogram 文件描述
其中还有相应的子键,如缺省的程序图标,形为:
myprogram\DefaultIcon '', 'tstfile.exe,1'
打开命令,形为:
myprogram\shell\open\command '', 'tstfile.exe "%1"'
写入完这两个键值后就可以实现文件与应用程序相关联了。
kxy
2000-01-14
打赏
举报
回复
我给你发了一个程序,测试通过.
此程序是一个老外写的,用memproof测试有内存问题,
不要直接使用,看她的算法即可.
VC资源管理器及添加
注册表
关联
图标
1,实现了类似于windows资源管理器的基本功能 2,能够将程序添加到
注册表
里,默认
关联
文件
格式为.test 3,自动更改.test
文件
图标
windows xp
注册表
优化
EXE
关联
文件
修复.reg xp网速提升 ADSL.reg 不加载多余的DLL
文件
.reg 不在桌面上
显示
系统版本.reg 不
显示
Administrator超级用户.REG 不
显示
共享文档和用户文档.reg 使XP系统支持135G以上的硬盘(推荐).REG 修复AMD...
注册表
, 隐藏、
显示
“我的电脑”、“回收站”、“网上邻居”, 隐藏、
显示
驱动器
隐藏、
显示
驱动器,
修改
IE浏览器标题栏内容, 隐藏IE浏览器的右键
关联
菜单,清空上网历史记录, 设置IE浏览器的默认主页, 控制光驱的自动运行功能, 如何建立
文件
关联
,设置“蜘蛛纸牌”游戏,
修改
“扫雷”游戏的...
几个实用的
注册表
文件
修改
收藏夹位置.reg
修改
IE查看源代码.reg 修复LNK
文件
关联
.REG 修复EXE
文件
关联
.REG 设置桌面
图标
透明.reg 取消每次开机检测硬盘.reg 关机加速.reg Winlogon.reg showall.reg
C# 改系统
图标
图标
大小 背景 autorun
系统所以"
文件
"
图标
多改为熊猫烧香样子(我找不到好.ico自己乱搞了个.jpg)改了桌面的
图标
大小 改了桌面背景 本想改
关联
;但没改;个人感觉蛮好玩的!(就是一个问题:一定要带着那个图片一起才行!郁闷;)
Delphi
5,388
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章