Delphi中读写注册表

Delphi程序中入如何操作注册表,在应用程序中，经常需要对注册表进行各种操作，如将程序名称、安装路径等信息保存到注册表中。32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。


一、创建和释放TRegistry对象


1.创建TRegistry对象。为了操作注册表，要创建一个TRegistry对象：ARegistry := TRegistry.Create；


2.释放TRegistry对象。对注册表操作结束后，应释放TRegistry对象所占内存：ARegistry.Destroy。


二、指定要操作的键


操作注册表时，首先应指定操作的主键：先给属性RootKey赋值以指定根键，然后用方法OpenKey来指定要操作的主键名。


1.指定根键(RootKey)。


根键是注册表的入口，也注册表信息的分类，其值可为：
HKEY-CLASSES-ROOT：存储整个系统对象类信息，如ActiveX对象注册、文件关联等信息。
HKEY-CURRENT-USER：存储当前用户的配置信息。为属性RootKey的默认值。
HKEY-LOCAL-MACHINE：存储当前系统的软硬件配置信息。应用程序自己的信息可以存储在该根键下。
HKEY-USERS：存储所有用户通用的配置信息。
还可以是HKEY-CURRENT-CONFIG、HKEY-DYN-DATA。
2.指定要操作的主键。


Function OpenKey(const Key: string; CanCreate: Boolean): Boolean;
Key：主键名，是键名全名中除去根键的部分，如Software。
CanCreate：在指定的主键名不存在时，是否允许创建该主键，True表示允许。
返回值True表示操作成功。


3.关闭当前主键。


在读取或存储信息之后，应及时将关闭当前主键：procedure CloseKey。
 
三、Delphi提供了TRegistry类，它直接继承自TObject类，主要属性有：RootKey等，主要方法有：Create，CreateKey(Key)，
OpenKey(Key,CanCreate)，WriteString(Name,Value)，ReadString(Name)，CloseKey，Free等，下面对它们进行简单介绍。
1、RootKey属性
指定当前操作的注册表主键，共有HKEY_CLASSES_ROOT、HKEY_CURRENT_USER、HKEY_LOCAL_MACHINE、HKEY_USERS、HKEY_CURRENT_CONFIG五种取值，默认值为HKEY_CURRENT_USER。
2、CreateKey方法
函数声明为function CreateKey(const Key: String):Boolean;，用于在注册表中新建项，项的名称为参数Key的值。
3、OpenKey方法
函 数声明为function OpenKey(const Key: String; CanCreate: Boolean):Boolean;，其中参数Key指定要打开的注册表的项，参数CanCreate指明当要打开的项不存在时是否创建，默认值为 False；函数返回值为布尔类型，如果打开成功返回True，否则返回False。
4、WriteString方法
过程声明为procedure WriteString(const Name, Value: String);，其中参数Name指明要写入的注册表的字符串的名称，参数Value为要写入的字符串的值。如果该字符串不存在则写入，否则覆盖原来的取值。
5、ReadString方法
函数声明为function ReadString(const Name: String):String;，其中参数Name为要读取的字符串的名称，函数返回值为要读取的字符串的值，是字符串类型。如果该字符串在注册表中不存在，返回值为空字符串。
四、键值维护


除了在注册表中读取、存储外，程序可能还需要增加主键、删除主键、主键改名、数据值改名等。


1.创建新主键：function CreateKey(const Key: string): Boolean。
Key即为主键名，返回值True表示操作成功。


2.删除主键：function DeleteKey(const Key: string): Boolean。
Key即为主键名，返回值True表示操作成功。


3.复制或移动主键：procedure MoveKey(const OldName, NewName: string; Delete: Boolean)。
OldName、NewName分别表示源主键名和目标主键名；Delete表示是否删除源主键，True表示删除，False表示保留。
复制或移动一个主键将复制或移动该子键下的所有数据值和子键内容。


4.判断指定主键是否存在，其下是否有主键，并获取主键名称。
KeyExists用于判断指定主键是否存在：
function KeyExists(const Key: string): Boolean;//返回值为True表示主键存在。
HasSubKeys用于判断指定主键下是否有子键：function HasSubKeys: Boolean;
返回值为True表示主键下有子键。
GetKeyNames用于获取子键名称：procedure GetKeyNames(Strings: TStrings);
Strings用于返回当前主键下各子键的名称。


5.获取主键下的数据值名称：procedure GetvalueNames(Strings: TStrings)。
Strings用于返回当前主键下各数值名称。
如要获取当前系统中的拨号连接名称，可利用获取主键HKEY-USERS
.DEFAULT下的数值名称的方法来进行。


6.判断数值名称存在、数值名称改名。
valueExists用于判断数值名称是否存在：
function valueExists(const Name: string): Boolean;
返回值为True表示数值名称存在。
Renamevalue用于数值名称改名：
procedure Renamevalue(const OldName, NewName: string);
五、实例
1、将自己的程序加入到注册表
var reg:Tregistry; //formCreate Event
begin
reg:=Tregistry.create;
reg.rootkey( 'HKEY_LOCAL_MACHINE ');
reg.openkey( 'SOFTWARE\Microsoft\Windows\CurrentVersion\Run ');
if not keyexists( 'MyApp.exe ') then //if not exist ,add it!
writestring( 'MyApp.exe ');
end;
2、将信息写入注册表
相应代码如下：
var
reg:TRegistry;//声明一个TRegistry类变量
…
begin
reg:=TRegistry.Create;//创建实例
reg.RootKey:=HKEY_CURRENT_USER;//指定需要操作的注册表的主键
if reg.OpenKey(’\Software\Delphi,true) then//如果打开成功则进行以下操作
begin
reg.WriteString(’内容名称’,'操作注册表’);//将需要保存的信息写入注册表
reg.CloseKey;//关闭注册表
end;
reg.Free;//释放变量所占内存
…
end;
2、从注册表中读取信息
相应代码如下：
var
reg:TRegistry;//声明一个TRegistry类变量
s:String;//声明一个字符串变量用来存放要读取的信息
…
begin
reg:=TRegistry.Create;//创建实例
reg.RootKey:=HKEY_CURRENT_USER;//指定需要操作的注册表的主键
if reg.OpenKey(’\Software\Delphi’,true) then//如果打开成功则进行以下操作
begin
s:=reg.ReadString(’内容名称’);//从注册表中读取对应字符串的值
//如果该字符串不存在则返回值为空字符串
reg.CloseKey;//关闭注册表
end;
reg.Free;//释放变量所占内存
…
end;