VB 通过API访问 Windows 注册表

原创 2001年07月24日 14:08:00
你希望你的程序能访问 Windows 注册表吗?当然,能访问庞大的 Windows 注册表是每个程序设计者都希望的事情,那么我就告诉你如何通过API函数访问 Windows 注册表吧。请先看看下面的 Visual Basic 程序:

  '根键常数
  Const HKEY_CLASSES_ROOT = -2147483648#
  Const HKEY_CURRENT_USER = -2147483647#
  Const HKEY_LOCAL_MACHINE = -2147483646#
  Const HKEY_USERS = -2147483645#

  '键值类型
  Const REG_SZ = 1& '字符串值
  Const REG_BINARY = 3& '二进制值
  Const REG_DWORD = 4& 'DWORD 值

  '声明有关API函数
  Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
    ( _
     ByVal hKey As Long, _
     ByVal lpSubKey As String, _
     ByRef phkResult As Long _
     ) As Long '建立一个新的主键

  Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" _
    ( _
     ByVal hKey As Long, _
     ByVal lpSubKey As String, _
     ByRef phkResult As Long _
    ) As Long '打开一个主键

  Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" _
   ( _
    ByVal hKey As Long, _
    ByVal lpSubKey As String _
   ) As Long '删除一个主键

  Private Declare Function RegCloseKey Lib "advapi32.dll" _
   ( _
    ByVal hKey As Long _
   ) As Long '关闭一个主键

  Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" _
   ( _
    ByVal hKey As Long, _
    ByVal lpValueName As String, _
    ByVal Reserved As Long, _
    ByVal dwType As Long, _
    ByVal lpData As Any, _
    ByVal cbData As Long _
   ) As Long '创建或改变一个键值,lpData应由缺省的ByRef型改为ByVal型

  Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" _
   ( _
    ByVal hKey As Long, _
    ByVal lpValueName As String, _
    ByVal lpReserved As Long, _
    ByRef lpType As Long, _
    ByVal lpData As Any, _
    ByRef lpcbData As Long _
   ) As Long '查询一个键值,lpData应由缺省的ByRef型改为ByVal型

  Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" _
   ( _
    ByVal hKey As Long, _
    ByVal lpValueName As String _
    ) As Long '删除一个键值

  '主过程
  Sub Main()
   Dim nKeyHandle As Long, nValueType As Long, nLength As Long
   Dim sValue As String
   sValue = "I am a winner!"
   Call RegCreateKey(HKEY_CURRENT_USER, "New Registry Key", nKeyHandle)
   Call RegSetValueEx(nKeyHandle, "My Value", 0, REG_SZ, sValue, 255)
   sValue = Space(255)
   nLength = 255
   Call RegQueryValueEx(nKeyHandle, "My Value", 0, nValueType, sValue, nLength)
   MsgBox sValue
   Call RegDeleteValue(nKeyHandle, "My Value")
   Call RegDeleteKey(HKEY_CURRENT_USER, "New Registry Key")
   Call RegCloseKey(nKeyHandle)
  End Sub

  来看看程序运行的结果:

  在注册表的 HKEY_CURRENT_USER 根键中多了一个 New Registry Key 主键。其中除有一个空的“(默认)”值外,还有一个值为“I am a winner!”的“My Value”值
  下面我们来分析一下这个程序:

  首先是定义常量。前面四个常量是各根键的句柄,这些句柄都是固定的;后三个是键值类型,在注册表编辑器中右键单击主键弹出的“新建”菜单项中,可以看到这三个键值类型。  
  第二步是声明API函数。这一步可以通过“API 文本浏览器”来完成:用“API 文本浏览器”加载文件“Win32Api.txt”,查找出上例中的 API 函数并添加到“选定项”一栏中,点取“复制”按钮,再回到 VB 程序编辑环境,将剪贴板中的内容粘贴到VB程序编辑器中,这样就完成了 API 函数的声明过程。值得注意的是,“RegSetValueEx”和“ RegQueryValueEx”两个函数中的“lpData”被定义为“Any”类型的,却没有定义传递方式,于是它被默认为“ByRef”传递方式。经笔者测试,这样不能正确的设置或查询键值,但将其传递方式改为“ByVal”后,便 OK 了。  

  第三步便是在访问注册表了。“RegOpenKey”的用法与“RegCreateKey”的用法是类似的,前者用于打开一个已存在的主键,而后者除了能用于打开一个已存在的主键外,如果该主键不存在,还能创建这个主键。打开或创建主键成功后将返回一个句柄给参数“phkResult”,这个句柄将在对键值的操作中用到,它就是“RegSetValueEx”、“RegQueryValueEx”和“RegDeleteValue”中的“nKeyHandle”参数。  还有一点需要说明,每个主键中都有一个键值名显示为“(默认)”,但其键值名并不就是“(默认)”,而是一个空字符串。

  现在,你知道怎样通过API函数访问Windows注册表了吗?

-=--=--=--=--=--=--=--=--=--=--=--=--=--=--=--=--=-
             //
  __________/LB/___   OUTINN
 /  _[]_   /____/  /
/_________/| () |/__/ http://outinn.yeah.net/
 |  ____ /-| __ |-/|  Welcome to visit OUTINN!
 |__|==|___| || |__|
 -=--=--=- |_||_| =-  Fancy, outinn@china.com

VB中使用API操作注册表

使用 Windows API 注册表函数    所谓 API(Application Programing Interface) 是 Windows 提供的一个32位环境下的应用程序编程接口,其中包括...
  • longhui666888
  • longhui666888
  • 2005年12月24日 11:03
  • 5017

Windows操作注册表API简单例子

 //Windows操作注册表API简单例子 //操作注册表主要包括下面几个系统API //1、RegOpenKeyEx    打开注册表项 //2、RegCreateKeyEx  创建注...
  • dgyanyong
  • dgyanyong
  • 2014年10月18日 15:12
  • 2090

使用Windows API操作注册表

来自:http://blog.csdn.net/yunboy4/article/details/4595230 使用Windows API操作注册表 分类: Win322009...
  • angelxf
  • angelxf
  • 2012年05月02日 17:30
  • 4014

VB 更改注册表键权限

VERSION 5.00Begin VB.Form frmMain    BorderStyle     =   0  None   ClientHeight    =   885   ClientL...
  • chenhui530
  • chenhui530
  • 2007年10月03日 12:35
  • 5987

Win32 API 常用函数之三——注册表操作(上)

【注册表操作】RegOpenKeyExLONG RegOpenKeyEx(  HKEY hKey,  LPCTSTR lpSubKey,  DWORD ulOptions,  REGSAM samDe...
  • Xscarlet
  • Xscarlet
  • 2007年11月07日 23:00
  • 4501

windows API 操作注册表函数

如今修改注册表成为继超频之后的又一大热点,许多CFAN通过对注册表的修改使Win98显得更加个性化,诸多报刊杂志也纷纷扯起注册表这面旗帜,令人遗憾的是,在介绍注册表修改的众多的文章中,大都以手工修改为...
  • B_H_L
  • B_H_L
  • 2012年07月19日 20:38
  • 6021

C/C++ Windows API——注册表

// RegDemo.cpp : 定义控制台应用程序的入口点。 //#include "stdafx.h" #include #include //system()int main() { ...
  • chy555chy
  • chy555chy
  • 2016年10月19日 18:17
  • 894

利用VB.NET访问注册表

利用VB.NET访问注册表 译者注:访问注册表的例子比较多,然而通过VB.NET访问注册表的例子并不多,本文翻译了一篇MSDN上的利用VB.NET存取注册表的例子,挺详细也挺全面的。 ( http:/...
  • nfs21cn
  • nfs21cn
  • 2004年03月15日 09:16
  • 1114

VB6读取注册表

Dim WshShell, bKey Set WshShell = CreateObject("Wscript.Shell") bKey = WshShell.RegRead("HKEY_CU...
  • karl_han
  • karl_han
  • 2014年05月13日 11:15
  • 1818

vb.net中调用 Windows API

 vb.net中调用 Window API 的方法与 VB6中类似,也是必须使用Declare语句声明动态连接库(DLL)中外部程序的引用。下面做一个调用的实例, 调用 advapi32.dll中的 ...
  • precipitant
  • precipitant
  • 2006年12月07日 11:49
  • 2962
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB 通过API访问 Windows 注册表
举报原因:
原因补充:

(最多只允许输入30个字)