VB声明

说明

参数说明

返回值

参数 类型及说明

注解

VB声明

Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long

说明

先说一点,在32位系统下推荐使用RegEnumKeyEx等这些后缀为Ex的函数

1.使用RegOpenKeyEx打开需要进行枚举的项名,如果成功,则进行下一步

2.使用RegEnumKeyEx进行枚举.

Declare Function RegEnumKeyEx Lib "advapi32.dll " Alias "RegEnumKeyExA " (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, lpcbName As Long, ByVal lpReserved As Long, ByVal lpClass As String, lpcbClass As Long, lpftLastWriteTime As FILETIME) As Long

参数说明

hKey:一个已经打开项的句柄(从RegOpenKeyEx中得到),或者指定一个标准项名

dwIndex:欲获取的子项的索引.从0开始.

lpName:用于装载指定索引处项名的缓冲区.lpcbName:指定一个变量,用于装载lpName缓冲区的实际长度.返回后会设为实际装载到lpName缓冲区中的字符数量.

注意其空间要给够.可以这样来初始化缓冲区

dim strKey AS string

dim lngKeyLength AS long

lngKeyLength=2048

strKey=String(lngKeyLength,0)

调用后如果成功,使用Left$(strKey,lngKeyLength)取得子项名

lpReserved:保留,设为0即可

lpClass:项使用的类名,可以设为vbNullString

lpcbClass:指定一个变量,用于装载lpClass缓冲区的实际长度.返回后会设为实际装载到lpClass缓冲区中的字符数量.

lpftLastWriteTime:上一次修改时间.

返回0表示成功

可以在一个循环体内调用该函数,每次调用令dwIndex加一以取得下一子项

返回值

Long，零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码

参数 类型及说明

hKey Long，一个已打开项的句柄，或者指定一个标准项名

dwIndex Long，欲获取的子项的索引。第一个子项的索引编号为零

lpName String，用于装载指定索引处项名的一个缓冲区

cbName Long，lpName缓冲区的长度

注解

用RegQueryInfoKey判断容纳最长那个项所需的缓冲区长度