| 在VB中调用API操作注册表 |
|
作者：佚名 文章来源：onegreen.net 点击数： 更新时间：2008-5-13 0:12:20  |
= " & L & vbCrLf
Case REG_BINARY
ReDim bArr(0 To lenData - 1) As Byte
RegEnumValueAsAny hKey, idx, Name, lenName, ByVal 0, typeData, bArr(0), lenData
Text1.SelText = Left(Name, InStr(Name, Chr(0)) - 1) & " = "
For j = 0 To UBound(bArr)
Text1.SelText = Hex(bArr(j)) & " "
Next
Text1.SelText = vbCrLf
End Select
idx = idx + 1
Wend
RegCloseKey hKey
End Sub
上一页 [1] [2] [3] |
| 文章录入：onegreen 责任编辑：onegreen |
|
上一篇文章： VB4.0对注册表操作的命令
下一篇文章： 用VB函数轻松访问系统注册表 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
