源码网商城,靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

Delphi 常见文件处理及注册表文件的使用实例

  • 时间:2022-01-15 18:20 编辑: 来源: 阅读:
  • 扫一扫,手机访问
摘要:Delphi 常见文件处理及注册表文件的使用实例
[b]Delphi 常见文件处理及注册表文件的使用实例[/b] [b]前言:[/b]  Registry为我们提供了操作注册表的方法,这里我们用TRegIniFile提供的方法,TRegIniFile继承自TRegistry,TRegIniFile提供的方法类似于前面讲到的操作Ini文件的方法,这样就大大简化了我们操作"神秘"注册表的方法,下面是常用的方法: [list=1] [*]function CreateKey(const Key: String): Boolean;  创建Key[/*] [*]function OpenKey(const Key: String; CanCreate: Boolean): Boolean; 打开Key,当CanCreate为True时,如果Key不存在,会自动创建[/*] [*]procedure EraseSection(const Section: String); 删除[/*] [*]WriteString,WriteInteger,WriteBool,WriteCurrency 写值[/*] [*]ReadString,ReadInteger,ReadBool,ReadCurrency  读值[/*] [*]ReadSection,ReadSections,ReadSectionValues 这些是不是很眼熟,和INI文件的方法一样[/*] [/list] 看例子 [b]创建节点[/b]
var 
 reg:TRegIniFile; 
begin 
 reg := TRegIniFile.Create;    //创建实例 
 reg.RootKey := HKey_Local_Machine;  //设置根值 
 if reg.OpenKey('SOFTWARE/MyReg',True) then  //打开 HKey_Local_Machine/SOFTWARE/MyReg,如果MyReg不存在,则自动创建 
 begin 
 //在HKey_Local_Machine/SOFTWARE/MyReg下创建MySec项,然后在MySec中创建一个字符串MyValue,值为China 
 reg.WriteString('MySec','MyValue','China'); 
 end; 
end; 
[b]删除值[/b]
var 
 reg:TRegIniFile; 
begin 
 reg := TRegIniFile.Create;    //创建实例 
 reg.RootKey := HKey_Local_Machine;  //设置根值 
 if reg.OpenKey('SOFTWARE/MyReg/MySec',True) then 
 begin 
 //删除HKey_Local_Machine/SOFTWARE/MyReg/MySec下MyValue一项 
 reg.DeleteValue('MyValue'); 
 end; 
end; 
[b]删除Key[/b]
var 
 reg:TRegIniFile; 
begin 
 reg := TRegIniFile.Create;    //创建实例 
 reg.RootKey := HKey_Local_Machine;  //设置根值 
 if reg.OpenKey('SOFTWARE/MyReg',True) then 
 begin 
 //删除HKey_Local_Machine/SOFTWARE/MyReg下的MySec 
 reg.EraseSection('MySec'); 
 end; 
end; 
读取Key的列表以及读取Key下值的列表都与INI文件的操作类似, 如有疑问请留言或者到本站社区交流讨论,感谢阅读,希望能帮助到大家,谢谢大家对本站的支持!
  • 全部评论(0)
联系客服
客服电话:
400-000-3129
微信版

扫一扫进微信版
返回顶部