在Delphi程序中操作注册表

 一、创建和释放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/Borland/Delphi。
　　CanCreate：在指定的主键名不存在时，是否允许创建该主键，True表示允许。
　　返回值True表示操作成功。

　　3.关闭当前主键。
　　在读取或存储信息之后，应及时将关闭当前主键：procedure CloseKey。

　　三、从注册表中读取信息
　　Read系列方法从注册表读取指定的信息（字符串、二进制和十六进制），并转换为指定的类型。

　　1.Read系列方法。
　　function ReadString(const Name: string): string;
　　读取一个字符串值，Name为字符串名称。
　　function ReadInteger(const Name: string): Integer;
　　读取一个整数值，Name为整数名称。
　　function ReadBinaryData(const Name: string; var Buffer; BufSize: Integer):Integer;
　　读取二进制值，Name为二进制值名称，Buffer为接收缓冲区，BufSize为缓冲区大小，返回为实际读取的字节数。
　　其它方法还有：ReadBool、ReadCurrency、ReadDate、ReadDateTime、ReadFloat、ReadTime。

　　2.读取信息一例（显示Windows的版本）。
 　在HKEY—LOCAL—MACHINE/Software/Microsoft/Windows/CurrentVersion下，有三个字符串值Version、VersionNumber和SubVersionNumber，用于记录当前Windows的版本号。

　　{请在Uses中包含Registry单元}
　　procedure TForm1.Button1Click(Sender:TObject);
　　var
　　 ARegistry : TRegistry;
　　begin
　　 ARegistry := TRegistry.Create;
　　//建立一个TRegistry实例
　　 with ARegistry do
　 　 begin
 　　 RootKey := HKEY—LOCAL—MACHINE;//指定根键为HKEY—LOCAL—MACHINE
 　　 //打开主键Software/Microsoft/Windows/CurrentVersion
 　　 if OpenKey( ′Software/Microsoft/Windows/CurrentVersion′,false ) then
 　　 begin
  　　 memo1.lines.add('Windows版本：′＋ ReadString(′Version′));
  　　 memo1.lines.add('Windows版本号：′＋ ReadString(′VersionNumber′));
  　　 memo1.lines.add(′Windows子版本号：′＋ ReadString(′SubVersionNumber′));
 　　 end;
　　  CloseKey;//关闭主键
 　　 Destroy;//释放内存
　　 end;
　　end;

　　四、向注册表中写入信息
　　Write系列方法将信息转化为指定的类型，并写入注册表。

　　1.Write系列方法。
　　procedure WriteString(const Name, Value: string);
　　写入一个字符串值，Name为字符串的名称，Value为字符串值。
　　procedure WriteInteger(const Name: string; Value: Integer);
　　写入一个整数值。
　　procedure WriteBinaryData(const Name: string; var Buffer; BufSize: Integer);
　　写入二进制值，Name为二进制值的名称，Buffer为包含二进制值的缓冲区，BufSize为缓冲区大小。
　　其它方法还有：WriteBool、WriteCurrency、WriteDate、WriteDateTime、WriteFloat、WriteTime。

　　2.写入信息一例。
　　下面 程序使Delphi随Windows启动而自动运行。

　　var
　　 ARegistry : TRegistry;
　　begin
　　 ARegistry := TRegistry.Create;  
　　//建立一个TRegistry实例
　　 with ARegistry do
　　 begin
　　 RootKey:=HKEY—LOCAL—MACHINE;
　 　 if OpenKey(′Software/Microsoft/Windows/CurrentVersion/Run′,True) then
　　  WriteString(′delphi′,′C:/Program Files/borland/delphi3/bin/delphi32.exe′);
　　  CloseKey;
　　  Destroy;
　　 end;
　　end;

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

　　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/RemoteAccess/Addresses下的数值名称的方法来进行。

　　6.判断数值名称存在、数值名称改名。
　　ValueExists用于判断数值名称是否存在：
　　function ValueExists(const Name: string): Boolean;
　　返回值为True表示数值名称存在。
　　RenameValue用于数值名称改名：
　　procedure RenameValue(const OldName, NewName: string);

 再给你个例子：
  使应用 程序能记住上一次关闭时的窗口位置，并在这一次启动时和上一次的位置一样。总体
思路是这样的：在关闭 程序时要记录下本次 程序结束时的信息，写入注册表中，在下次 程序启动
时读注册表中相应信息，并赋给 程序。
   对于我们这个 程序来说主要需要记录的信息是窗口关闭时的Top,Left,Height,Width。
   注意：要想使Delphi可以操作注册表，必须包括registry单元。

以下是源 程序和相关注释：
  unit Unit1;

  interface

  uses
    Windows, Messages,. . . . . . . ,registry;     //包括registry单元
  type
    TForm1 = class(TForm)
   
    public
      ww:TRegistry;                  
//声明一个TRegistry对象，我们就通过ww来实现对注册表的操作

//启动窗口时要做的一些工作
procedure TForm1.FormCreate(Sender: TObject);
begin
 ww:=TRegistry.Create;                  
//创建ww对象
 ww.RootKey :=HKEY_CURRENT_USER;        
//注意：通过修改RootKey可以把信息写到注册表的每一个角落
 ww.OpenKey('software',FALSE);          
//打开键software,可以看到Borland，Netscape，还有Microsoft也在这个software键中
 ww.CreateKey( '王伟');                  
//在software键中创建一个名为“王伟“的键值，使自己的名字和Borland,Netscape,
//Microsoft并排在一起，是不是很Cool啊:)
 ww.OpenKey( '王伟',FALSE);              
//打开键"王伟"
 ww.CreateKey('XX单位XX管理系统');      
//创建应用 程序的名称
 ww.OpenKey('XX单位XX管理系统',TRUE);
 ww.CreateKey('位置');                  
//创建应用 程序中某一个要存贮的项目的名称，便于管理
 ww.OpenKey('位置',TRUE);
 if (ww.ReadString('first')<>'1')then    
//这是值得注意的一个地方，通过“first“来判断 程序是否
   begin                                
//是第一次写注册表,如果是第一次写则用 程序给的默认值来
   ww.WriteString('first','1');          
//设置窗口的位置和大小。如果不是第一次启动应用 程序则说明
   Form1.WindowState:=(wsNormal);        
//注册表中已经写了位置信息，就读这些信息并赋给Form。
   Form1.Top:=10;
   form1.Left:=10;
   form1.Height:=100;
   form1.Width:=100;
   end
 else
 begin
   if(ww.ReadString('max')='y') then    
//判断上次关闭 程序时，窗口是否是最大化的。如果是的话，则 Form1.WindowState:=(wsMaximized)    
//继续使窗口拥有这一特征。
   else
   begin
   Form1.top:=StrToInt(ww.ReadString('top'));  
//如果不是最大化，则取位置和大小数据赋给From
   Form1.left:=StrToInt(ww.ReadString('left'));
   Form1.height:=StrToInt(ww.ReadString('height'));
   Form1.width:=StrToInt(ww.ReadString('width'));
   end;
 end;
end;

//关闭窗口时要做的一些工作      
procedure TForm1.FormDestroy(Sender: TObject);
begin
 ww.OpenKey('位置',FALSE);                
//打开“位置”键
 if Form1.WindowState=(wsMaximized) then  
//如果当前 程序是最大化，则把这一信息写入注册表，
   ww.WriteString('max','y')              
//便于下一次时使用。
 else
 begin
   ww.WriteString('max','n');                
//如果不是最大化，则把窗口的位置和大小数据写入注册表中。
   ww.WriteString('top',IntToStr(Form1.top));
   ww.WriteString('left',IntToStr(Form1.left));
   ww.WriteString('height',IntToStr(Form1.Height));
   ww.writeString('width',IntToStr(Form1.Width));
 end;
end;