Delphi 常见文件处理及注册表文件的使用实例
<p><strong>Delphi 常见文件处理及注册表文件的使用实例</strong></p><p><strong>前言：</strong></p>
<p> Registry为我们提供了操作注册表的方法,这里我们用TRegIniFile提供的方法,TRegIniFile继承自TRegistry,TRegIniFile提供的方法类似于前面讲到的操作Ini文件的方法,这样就大大简化了我们操作"神秘"注册表的方法,下面是常用的方法:</p>
<ol>
<li>function CreateKey(const Key: String): Boolean; 创建Key</li>
<li>function OpenKey(const Key: String; CanCreate: Boolean): Boolean; 打开Key,当CanCreate为True时,如果Key不存在,会自动创建</li>
<li>procedure EraseSection(const Section: String); 删除</li>
<li>WriteString,WriteInteger,WriteBool,WriteCurrency 写值</li>
<li>ReadString,ReadInteger,ReadBool,ReadCurrency 读值</li>
<li>ReadSection,ReadSections,ReadSectionValues 这些是不是很眼熟,和INI文件的方法一样</li>
</ol>
<p>看例子</p>
<p><strong>创建节点</strong></p>
<div class="jb51code">
<pre class="brush:delphi;">
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;
</pre>
</div>
<p><strong>删除值</strong><br />
</p>
<div class="jb51code">
<pre class="brush:delphi;">
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;
</pre>
</div>
<p><strong>删除Key</strong></p>
<div class="jb51code">
<pre class="brush:delphi;">
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;
</pre>
</div>
<p>读取Key的列表以及读取Key下值的列表都与INI文件的操作类似,</p>
<p>如有疑问请留言或者到本站社区交流讨论，感谢阅读，希望能帮助到大家，谢谢大家对本站的支持！</p>
<div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>Delphi修改操作注册表权限的代码</li></ul>
</div>
</div>
<!--endmain-->
頁:
[1]