API对注册表进行操作(Delphi编程)

下载源代码

一、注册表的组织结构

  
              图一

类比：Key有如文件夹，Value有如文件。
Value组成：Name/Type/Data, 通常指某Value就是指其Name。

二、目前的访问手段
regedit, regedt32，第三方软件，编程。
Windows提供了三种方式供编程实现：函数，Shell函数，CRegKey类（由ATL库提供，是对API的封装，简化了部分功能）。这三种方式的提供的函数大同小异；由于它们对注册表操作的函数都是原子动作，故功能强大却使用不便。
类比：dir浏览当前文件夹下的子文件夹和文件，却无法知道子文件夹中有什么；注册表操作函数也仅能浏览当前Key下的Subkey和Value,却无法知道Subkey中有什么。

三、面临的问题——本程序的目的
无法直接查询注册表中是否存在某一Key或Value。
为实现对注册表的查询，必须编程对注册表进行遍历。
递归函数是不二的选择。

图二

四、基本函数（以API为例）：
1、RegOpenKeyEx
主要参数：欲访问键柄，子键路径，访问权限，返回键柄
欲访问键柄可以是5个预定义根键，也可以是返回键柄
子键路径如果是空串，表明直接打开欲访问键柄
返回的键柄可以直接指定为欲访问键柄
为加快处理速度，键柄用长整型表示
注：键的句柄，简称键柄

2、RegQueryKeyInfo
主要参数：欲访问键柄，返回子键数目

3、RegEnumKeyEx
主要参数：欲访问键柄，子键编号，返回某编号子键名
通过RegQueryKeyInfo返回的子键数目，再用RegEnumKeyEx逐个返回子键名

4、RegQueryValueEx
主要参数：欲访问键柄， 欲查询Value的Name
如果存在该Name，则返回ERROR_SUCCESS

五、算法设计：使用递归函数对注册表进行遍历
1、使用RegOpenKeyEx打开一个键
2、使用RegQueryValueEx查找是否存在欲查询的Value
   A、是：退出递归，并表示“已找到”
   B、否：使用RegQueryKeyInfo查找当前键下是否有子键
      I、否：当前键下无欲查找的Value
      II、是：逐个打开子键，并调用递归函数

六、算法流程图：
  
             图三

七、结束语——尚待改进之处
针对不同条件查找：目前查找的对象仅为value的name,改进可使其查找key和value的data。
模糊查找：该程序目前对字符串的搜索是精确查找，要使其功能更加强大，须加入字符串模糊匹配算法。
查找下一个符合条件的值：如果注册表中有多个满足条件的值，那么本程序只能查出第一个，对递归进行中断，再恢复，可实现下一次查找。