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

所属分类: 软件编程 / Delphi 阅读数: 170
收藏 0 赞 0 分享

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

前言:

 Registry为我们提供了操作注册表的方法,这里我们用TRegIniFile提供的方法,TRegIniFile继承自TRegistry,TRegIniFile提供的方法类似于前面讲到的操作Ini文件的方法,这样就大大简化了我们操作"神秘"注册表的方法,下面是常用的方法:

  1. function CreateKey(const Key: String): Boolean;  创建Key
  2. function OpenKey(const Key: String; CanCreate: Boolean): Boolean; 打开Key,当CanCreate为True时,如果Key不存在,会自动创建
  3. procedure EraseSection(const Section: String); 删除
  4. WriteString,WriteInteger,WriteBool,WriteCurrency 写值
  5. ReadString,ReadInteger,ReadBool,ReadCurrency  读值
  6. ReadSection,ReadSections,ReadSectionValues 这些是不是很眼熟,和INI文件的方法一样

看例子

创建节点

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; 

删除值

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; 

删除Key

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文件的操作类似,

如有疑问请留言或者到本站社区交流讨论,感谢阅读,希望能帮助到大家,谢谢大家对本站的支持!

更多精彩内容其他人还在看

Delphi修改操作注册表权限的代码

Delphi修改操作注册表权限的代码,使用Delphi的朋友可以参考下。
收藏 0 赞 0 分享

Delphi书籍15本网盘下载地址整理

由Delphi园地整理的Delphi书籍15本常用的参考书籍,需要的朋友可以下载了。
收藏 0 赞 0 分享

wordpress主题支持自定义菜单及修改css样式实现方法

使用wordpress过程中会遇到主题支持自定义菜单以及修改css样式问题,本文将介绍详细解决方法,需要朋友可以参考下
收藏 0 赞 0 分享

delphi xe 可用的MD5算法

delphi xe 可用的MD5算法,需要的朋友可以参考一下
收藏 0 赞 0 分享

Delphi隐藏TPageControl的标签实例介绍

件是一组页面集,用于构造一个多页对话框,它显示多个交互页(TTabSheet 对象),接下来为大家介绍下Delphi隐藏TPageControl的标签方法
收藏 0 赞 0 分享

delphi中exit,abort,break,continue的区别介绍

本文详细介绍下delphi中表示跳出的有break,continue, exit,abort, halt, runerror的区别,感兴趣的朋友可以参考下哈,希望对你学习跳出有所帮助
收藏 0 赞 0 分享

delphi设置开机自动启动函数具体实现

有些程序要设置为开机启动,所以自己写了个函数方便以后使用,实现比较简单,感兴趣的朋友可以参考下哈
收藏 0 赞 0 分享

delphi简单判断程序30秒没有键盘和鼠标动作示例

本文为大家详细介绍下delphi判断程序30秒没有键盘和鼠标动作,这里给timer设置了1000ms)的参数,表示30秒的间隔,具体实现如下,感兴趣的朋友可以参考下哈
收藏 0 赞 0 分享

delphi程序全屏显示无标题栏覆盖整个屏幕(适合屏保)

delphi 简单实现程序全屏显示无标题栏,覆盖整个屏幕,这个在做工控机或屏保时有用的,具体代码如下,感兴趣的朋友可以参考下哈
收藏 0 赞 0 分享

delphi发送消息控制滚动条使用示例

本文为大家详细介绍下delphi实现发送消息控制滚动条,主要函数及用法如下,感兴趣的朋友可以参考下哈
收藏 0 赞 0 分享
查看更多