delphi串口操作大全.docVIP

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\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′)); 　　 mem