Reg
来源:互联网 发布:matlab 矩阵元素 编辑:程序博客网 时间:2024/04/18 04:57
uses Registry;
不废话了,直入主题.
Registry为我们提供了操作注册表的方法,这里我们用TRegIniFile提供的方法,TRegIniFile继承自TRegistry,TRegIniFile提供的方法类似于前面讲到的操作Ini文件的方法,这样就大大简化了我们操作"神秘"注册表的方法,下面是常用的方法:
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文件的方法一样
看例子
创建节点
view plaincopy to clipboardprint?
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',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;
删除值
view plaincopy to clipboardprint?
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;
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
view plaincopy to clipboardprint?
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;
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文件的操作类似,这里就不再熬述了.
本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/bdmh/archive/2009/05/05/4151632.aspx
- Reg
- reg
- reg
- .Reg文件格式
- reg命令
- cygwin.reg
- common.reg
- Reg文件
- cmdhere.reg
- cmdhere.reg
- VS2008.reg
- ini reg
- .reg文件格式
- test-reg
- reg笔记
- reg 注册表
- ini, Reg
- REG文件
- tingPM -- a Agile project management tool
- 很想问个明白...
- 智力题解题报告No.12 倒油 倒酒 倒水问题
- 解决ORA-12560: TNS: 协议适配器错误
- 97年的欧冠决赛 多特蒙德VS尤文 中里德尔的梦
- Reg
- 1等于0.循环9吗?
- PowerDesigner快捷键
- script调用asp代码
- PHP中数组的初期化
- Oracle数据库,创建用户,创建表空间,授权
- POJ2155
- hdu 1084 What Is Your Grade?
- JSP实现分页