[原创]在VB6.0中访问注册表

原创 2004年09月23日 15:49:00

                                                                                   作者:bluesky35(蓝天)

'以下声明定义在模块中:
Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
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 String, ByVal cbData As Long) As Long
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_DYN_DATA = &H80000006
Public Const REG_SZ = 1&

'以下操作定义在FORM中
'写注册表
Private Sub Command1_Click()
    Dim ret As Long, rtn As Long, hKey As Long, hKey2 As Long, Entry As String, value As String
    Entry = "EventMessageFile"
    value = "C:/WINNT/Microsoft.NET/Framework/v1.1.4322/EventLogMessages.dll"
    '创建键值
    ret = RegCreateKey(HKEY_LOCAL_MACHINE, "SYSTEM/CurrentControlSet/Services/Eventlog/Eventlog2/Eventlog2", hKey)
    '写入值
    If Not ret Then
        rtn = RegSetValueEx(hKey, Entry, 0, REG_SZ, ByVal value, Len(value)) 
        If Not rtn Then
            MsgBox "Write Successed!"
        End If
        '关闭
        rtn = RegCloseKey(hKey) 
    Else
        MsgBox "Create Subkey Operation Fail"
    End If
End Sub

最后祝你好运

[原创]使用VB6.0访问ORACLE数据库

                                                                                   作者:bluesky35(蓝天)首...
  • bluesky35
  • bluesky35
  • 2004年09月23日 15:29
  • 1435

用VB操作注册表

用VB操作注册表(一)梦里水乡 认识登录数据库(Registry)我们在这里主要通过由Windows系统本身提供的注册表编辑器regedit.exe来认识登录数据库(Registry)1、Key和Su...
  • Suprman
  • Suprman
  • 2006年12月23日 20:25
  • 2759

VB6读取注册表

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

通过注册表获取当前所有串口号

uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls,...
  • xinzheng_wang
  • xinzheng_wang
  • 2011年06月16日 15:49
  • 2212

IIS服务的有关注册表路径

以下注册表项影响所有的 IIS 服务,而无需对每个服务单独进行设置。在 IIS 默认安装上,可能看不到其中的某些注册表项,这表明它们使用的是默认值。要将这些项设置为非默认值,必须手动创建项并进行设置。...
  • lltaoyy
  • lltaoyy
  • 2010年09月21日 09:39
  • 3327

驱动开发之访问注册表

访问注册表 Windows NT和Windows 98把配置信息和其它重要信息都记录到注册表(registry)中。WDM驱动程序可以使用表3-9列出的函数访问注册表。如果你在用户模式编程中曾涉及过...
  • liyun123gx
  • liyun123gx
  • 2014年07月03日 16:55
  • 1147

关于C#下面windows服务读取注册表的问题

留着以后作备忘
  • mobailwang
  • mobailwang
  • 2016年01月14日 14:19
  • 1587

32位程序在64位Windows7/2008下写注册表不起作用问题

32位程序在64位Windows7/2008下写注册表不起作用问题 环境: 1.在Windows7/2008的64位操作系统 2.应用程序、安装程序均为32位 现象: 1.有一程序,要在资源...
  • shape2100
  • shape2100
  • 2012年02月24日 18:22
  • 2591

Python Windows中将Python添加到注册表中

import sys from winreg import * # tweak as necessary version = sys.version[:3] installpath = sys.pr...
  • houyanhua1
  • houyanhua1
  • 2017年09月24日 19:22
  • 324

剖析VB6.0如何连接数据库?

前言:VB库连接方式 一、  无源数据库连接 其实,“无源数据库”连接也并不是说不需要数据源,如果没有数据源则连接是纸上谈兵,只是不需要配置ODBC数据源,利用ADO就可通过代码进行连接。 ...
  • chenfanglincfl
  • chenfanglincfl
  • 2012年08月15日 21:12
  • 4349
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:[原创]在VB6.0中访问注册表
举报原因:
原因补充:

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