|
|
【参加讨论】
If RegSetValueEx(hKey, KeyValue2, 0&, REG_SZ, ByVal KeyData, Len(KeyData) + 1) <> ERROR_SUCCESS Then MsgBox "SetValue " & KeyValue2 & "Failed " Exit Sub End If return_OpenKey = RegQueryValueEx(hKey, KeyValue1, 0&, REG_SZ, 0&, SizeOfData) lpData = String(SizeOfData + 1, " ") |
下面的函数RegQueryValueEx检索指定键值名称的键值和键值类型
If RegQueryValueEx(hKey, KeyValue1, 0&, REG_SZ, ByVal lpData, SizeOfData) <> ERROR_SUCCESS Then MsgBox "Query " & KeyValue1 & "Failed" End If RegCloseKey (hKey) 释放主键的句柄 End Sub |
运行此程序后,打开注册表,我们会发现在主键 HKEY_CURRENT_USER(在此主键下记录本机当前用户的一些信息)下,增加了子键"北信BITI\People",我们还可看到两个指定的键值名称都有正确的键值。从而完成了注册的任务。
注:此程序在VB5.0中运行通过。
编辑:黑鹰 [发送给好友] [打印本页] [关闭窗口] [返回顶部]
上一篇:利用WindowsAPI函数和注册表获取系统信息
下一篇:让注册表记住VFP应用程序的使用次数
转载请注明来源:www.iyit.net
特别声明: 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员,我们尽快予以更正。
|
|
|