• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号
登陆 注册

用Delphi实现文件关联

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
 


  

　　

　　文件关联为我们带来很多的方便。Delphi自带有注册表对象TRegistry，可以通过它取得或改变注册表相关键值的内容。 

　　Function GetAssociatedExec(FileExt: String; var FileDescription, MIMEType: String): String; 

　　Var Reg: TRegistry; FileType: String; 

　　begin 

　　 Result := ′′;{函数返回值是打开FileExt文件的可执行程序的名字及其参数} 

　　 Reg := TRegistry.Create;{创建注册表对象的实例} 

　　 try 

　　　　Reg.RootKey := HKey—Classes—Root;{准备操作的注册表根键} 

　　　　if not Reg.OpenKey(FileExt, False) then Exit;{当传入的文件类型在注册表中不存在时退出，False表示FileExt键值不存在时不自动创建新键} 

　　　　FileType := Reg.ReadString(′′);{文件类型的简单描述} 

　　　　MIMEType := Reg.ReadString(′Content Type′);{内容MIME类型} 

　　　　Reg.CloseKey;{关闭当前关键字} 

　　　　if (FileType = ′′) or (not Reg.OpenKey(FileType, False)) then Exit; 

　　　　FileDescription := Reg.ReadString(′′);{内容类型的具体描述} 

　　　　if not Reg.OpenKey(′shell\open\command′, False) then Exit;{该键值保存由哪个程序、以什么参数打开FileExt类型的文件} 

　　　　Result := Reg.ReadString(′′);{读取该键值内容} 

　　　　Reg.CloseKey; finally 

　　　　Reg.Free;{释放对象实例} 

　　 end; end; 

　　由上面的例程可知，首先在HKey—Classes—Root寻找与FileExt（文件后缀，带“.”）相匹配的主键，然后从“默认” 键名取得键值，然后以该键值作为主键取得FileExt的具体描述。在其子键shell\open\command中保存了由哪个程序、以什么参数打开FileExt类型的文件的信息，只要修改它的内容，就可以控制由哪个程序打开FileExt类型的文件。 

　　既然知道了文件关联在注册表中是如何定义的，只要反其道而行，就可以正确改变文件的关联了。 

　　function SetAssociatedExec(FileExt, Filetype, FileDescription,MIMEType,ExecName: String): Boolean;{修改成功，返回True，否则False} 

　　var Reg: TRegistry; 

　　begin 

　　 Result := False;{} 

　　 if (FileExt = ′′) or (ExecName = ′′) then Exit;{如果文件类型为空或者没有定义执行程序就退出，FileExt必须带″.″，如.BMP} 

　　 Reg := TRegistry.Create; 

　　 try 

　　Reg.RootKey := HKey—Classes—Root; 

　　if not Reg.OpenKey(FileExt, True) then Exit;{当不能正确找到或创建FileExt键时退出，这种情况一般是注册表有错误，以下同} 

　　Reg.WriteString(′′, FileType); 

　　if MIMEType <> ′′ then Reg.WriteString(′Content Type′, MIMEType); 

　　Reg.CloseKey; 

　　if not Reg.OpenKey(FileType, True) then Exit; 

　　Reg.WriteString(′′, FileDescription); 

　　if not Reg.OpenKey(′shell\open\command′, True) then Exit; 

　　Reg.WriteString(′′, ExecName);{执行程序一般都有参数，例如WinZip的“winzip32.exe ″％1″”，″％1″参数指ZIP文件的文件名。因此ExecName应视情况加入参数} 

　　Reg.CloseKey; 

　　 finally Reg.Free; end; 

　　end; 

　　写与读是一个性质相同、方向相反的过程，因此在SetAssociatedExec函数没有过多的说明，可以参考GetAssociatedExec函数。至于TRegistry的使用，限于篇幅，本文从略。 

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
MATLAB中的S-Function的用法（C语言）发布时间：2022-07-18
下一篇：
4、BP神经网络matlab信号拟合 - zhaoruirui发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap