在Delphi程序中操作注册表

TReGIStry对象可以在32位Delphi程序中用来访问注册表文件中的信息。

I .创建和释放TRegistry对象

1.创建一个TRegistry对象。要操作注册表，请创建一个TRegistry对象:ARegistry := TRegistry。创建；；
2。释放TRegistry对象。注册表上的操作完成后，TRegistry对象占用的内存:ARegistry。毁灭应该被释放。

第二，指定要操作的键。

操作注册表时，首先要指定操作的主键:给属性RootKey赋值指定根键，然后用方法OpenKey指定要操作的主键名。
1。指定根密钥(RootKey)。
根键是注册表的条目和注册表信息的分类。其值可以是:
HKEY-类-根:存储整个系统的对象类信息，如ActiveX对象注册、文件关联等。
HKEY-当前用户:存储当前用户的配置信息。是属性RootKey的默认值。
HKEY-本地-机器:存储当前系统的硬件和软件配置信息。应用程序自己的信息可以存储在这个根密钥下。
HKEY用户:存储所有用户共有的配置信息。
也可以是HKEY当前配置、HKEY动态数据。
2。指定要操作的主键。
函数open Key(const Key:string；CanCreate: Boolean):布尔型；
Key:主键名，是键名全名中除根键以外的部分，如Software。
CanCreate:指定的主键名不存在时，是否允许创建。True表示是。
返回值True表示操作成功。
3。关闭当前主键。
读取或存储信息后，应及时关闭当前主键:procedure CloseKey。

第三，从注册表中读取信息

Read series方法从注册表中读取指定的信息(字符串、二进制和十六进制),并将其转换为指定的类型。
1。读取系列方法。
function read string(const Name:string):string；
读取一个字符串值，Name是字符串名称。
function read Integer(const Name:string):Integer；
读取一个整数值，Name是一个整数名称。
函数ReadBinaryData(const Name:string；var缓冲区；BufSize: Integer):整数；
读取二进制值，Name是二进制值的名称，Buffer是接收缓冲区，BufSize是缓冲区大小，返回实际读取的字节数。
其他方法包括:ReadBool、ReadCurrency、ReadDate、ReadDateTime、ReadFloat和ReadTime。
2。读取信息的例子(显示Windows的版本)。
在HKEY本地机器下，有三个字符串值Version，VersionNumber和SubVersionNumber，用于记录当前Windows的版本号。
{请在Uses中包括登记册单位}
proceduretform 1 . button 1 click(sender:to object)；
var
are registry:t registry；
begin
a registry:= t registry。创建；
//使用Aregistry Do
begin
rootkey:= HKEY-本地-机器创建一个TRegistry实例
;//指定根密钥为HKEY-本地-机器
/打开主键软件
if openkey ('software '，false)then
begin
memo 1 . lines . add(' Windows版本:' '+ ReadString(' Version ' ')
memo 1 . lines . add(' Windows版本号:'+read string('版本号))；
memo1.lines.add('Windows版本号:'+readstring ('subversion号'))；
end；
close key；//关闭主键
Destroy；//释放内存
end；
end；