《delphi串口操作大全》由会员分享，可在线阅读，更多相关《delphi串口操作大全（57页珍藏版）》请在金锄头文库上搜索。
1、32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。 一、创建和释放TRegistry对象 1.创建TRegistry对象。为了操作注册表，要创建一个TRegistry对象：ARegistry := TRegistry.Create； 2.释放TRegistry对象。对注册表操作结束后，应释放TRegistry对象所占内存：ARegistry.Destroy。 二、指定要操作的键 操作注册表时，首先应指定操作的主键：先给属性RootKey赋值以指定根键，然后用方法OpenKey来指定要操作的主键名。 1.指定根键(RootKey)。 根键是注册表的入口，也注册表信息的
2、分类，其值可为： HKEYCLASSESROOT：存储整个系统对象类信息，如ActiveX对象注册、文件关联等信息。 HKEYCURRENTUSER：存储当前用户的配置信息。为属性RootKey的默认值。 HKEYLOCALMACHINE：存储当前系统的软硬件配置信息。应用程序自己的信息可以存储在该根键下。 HKEYUSERS：存储所有用户通用的配置信息。 还可以是HKEYCURRENTCONFIG、HKEYDYNDATA。 2.指定要操作的主键。 Function OpenKey(const Key: string; CanCreate: Boolean): Boolean; Key：主键名
3、，是键名全名中除去根键的部分，如SoftwareBorlandDelphi。 CanCreate：在指定的主键名不存在时，是否允许创建该主键，True表示允许。 返回值True表示操作成功。 3.关闭当前主键。 在读取或存储信息之后，应及时将关闭当前主键：procedure CloseKey。 三、从注册表中读取信息 Read系列方法从注册表读取指定的信息（字符串、二进制和十六进制），并转换为指定的类型。 1.Read系列方法。 function ReadString(const Name: string): string; 读取一个字符串值，Name为字符串名称。 function Read
4、Integer(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的版本）。 在HKEYL
5、OCALMACHINESoftwareMicrosoftWindowsCurrentVersion下，有三个字符串值Version、VersionNumber和SubVersionNumber，用于记录当前Windows的版本号。 请在Uses中包含Registry单元 procedure TForm1.Button1Click(Sender:TObject); var ARegistry : TRegistry; begin ARegistry := TRegistry.Create; /建立一个TRegistry实例 with ARegistry do begin RootKey := H
6、KEYLOCALMACHINE;/指定根键为HKEYLOCALMACHINE /打开主键SoftwareMicrosoftWindowsCurrentVersion if OpenKey( SoftwareMicrosoftWindowsCurrentVersion,false ) then begin memo1.lines.add(Windows版本： ReadString(Version); memo1.lines.add(Windows版本号： ReadString(VersionNumber); memo1.lines.add(Windows子版本号： ReadString(SubV
7、ersionNumber); 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 Nam
8、e: 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 AReg
9、istry do begin RootKey:=HKEYLOCALMACHINE; if OpenKey(SoftwareMicrosoftWindowsCurrentVersionRun,True) then WriteString(delphi,C:Program Filesborlanddelphi3bindelphi32.exe); CloseKey; Destroy; end; end; 五、键值维护 除了在注册表中读取、存储外，程序可能还需要增加主键、删除主键、主键改名、数据值改名等。 1.创建新主键：function CreateKey(const Key: string): B
10、oolean。 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.判断指定主键是否存在，
11、其下是否有主键，并获取主键名称。 KeyExists用于判断指定主键是否存在： function KeyExists(const Key: string): Boolean;/返回值为True表示主键存在。 HasSubKeys用于判断指定主键下是否有子键：function HasSubKeys: Boolean; 返回值为True表示主键下有子键。 GetKeyNames用于获取子键名称：procedure GetKeyNames(Strings: TStrings); Strings用于返回当前主键下各子键的名称。 5.获取主键下的数据值名称：procedure GetValueNames
12、(Strings: TStrings)。 Strings用于返回当前主键下各数值名称。 如要获取当前系统中的拨号连接名称，可利用获取主键HKEYUSERS .DEFAULTRemoteAccessAddresses下的数值名称的方法来进行。 6.判断数值名称存在、数值名称改名。 ValueExists用于判断数值名称是否存在： function ValueExists(const Name: string): Boolean; 返回值为True表示数值名称存在。RenameValue用于数值名称改名： procedure RenameValue(const OldName, NewName:
13、string); 以上是注册表常用操作所对应的TRegistry的方法和属性，其它方法和属性请参见Delphi联机帮助文件。 以上程序在PWIN 98Delphi 3.0下调试通过。 2003-11-20 11:53:00 发表评语»»» 2003-11-20 11:59:20 注册表中对编程常用的几项（ODBC/BDE/Internet/Windows） 我用的是 WINDOWS 2000， WIN2000 的 REGEDIT 提供了类似 IE 中收藏夹的功能，我的收藏夹中有几个或许对大家编程时会有帮助（这是本人在编程过程中的探索出来的，请高手指教）：1。
14、关于 ODBC 和 DBE： HKEY_LOCAL_MACHINESOFTWAREODBCODBC.INIODBC File DSN 有你的 COMPUTER 上 ODBC 的 FILE DSN 的存放的缺省路径，如果你建立 FILE DSN 的时候选择了自己的路径，那你就得小心了，系统不会为你保存该路径，你的自己记住它，：-（； HKEY_LOCAL_MACHINESOFTWAREODBCODBCINST.INIODBC Drivers 列出了你的所有 ODBC DRIVER， 关于 ODBC DRIVER 的名称，有一个比较有趣的地方：不知大家又没有用TSession.GetDriverNames 取过系统 ODBC DRIVER 名，我用的时候 DRIVER 名最长只能取到 31 个字符，剩下的就被截掉了，不知是我编程有问题还是 DELPHI 的 BUG；
