发信人: whc()
整理人: winsy(2003-03-05 15:33:54), 站内信件
|
给你一段我以前写的程序的一部分做参考吧
Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnu
mValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName
As String, lpcbValueName As Long, lpReserved As Long, lpType As Long,
ByVal lpData As Byte, ByVal lpcbData As Long) As Long
'////////////////////////
Dim buf As New Collection, rkey As String * 300
Dim x As Long, i As Long, dType As Long
i = 0
Do
x = RegEnumValue(regKey, i, rkey, 300, 0, dType, 0, 0)
If x = 0 Then buf.Add nullstring(rkey)
i = i + 1
Loop While x = 0
Set rEnumValue = buf
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.106.227.177]
|
|