比如我想更改HKEY_CURRENT_USER\Software\Webzen\Mu\Config
里的一个Resolution子键 REG_DWORD 值是0x0000000
我想通过VC API函数更改为0x00000001
应该怎么做。请帮兄弟写详细一点!!!!!!
里的一个Resolution子键 REG_DWORD 值是0x0000000
我想通过VC API函数更改为0x00000001
应该怎么做。请帮兄弟写详细一点!!!!!!
解决方案 »
- VB DataReport 的问题
- VB6如何连接有密码的ACCESS 2007数据库?
- 求助:我用Winsock控件来下载一个网页,但接收到的文件总是不超过60多K,但实际上要下载的HTML页面有80多K,不知道什么原因?
- VB中如何传递指针参数来调用DLL?
- adodc、DataGrid控件绑定数据错误!(急)
- 请教
- 求VB的记事本程序,可运行?
- DataReport 问题,急啊,高手请进啊!
- 我想做个试题查询的程序,但试题是WORD(.doc)格式的,怎么办呀?
- 如何做一个能计元音字符的dll部件?
- 怎样通过vb编程实现向sql server2000的表中插入图片
- vb编写的DLL组件运行几个小时后出错!高手现身啊
RegCreateKey HKEY_CURRENT_USER, "Software\Webzen\Mu\Config", hk
RegSetValueEx hk, "Resolution", 0&, REG_DWORD, &H1&, 4
RegCloseKey hk
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Function SaveDword(ByVal Hkey As Long, ByVal strPath As String, ByVal strValueName As String, ByVal lData As Long)
'EXAMPLE"
'
'Call SaveDword(HKEY_CURRENT_USER, "HKEY_CURRENT_USER\Software\Webzen\Mu\Config", "Dword", "0x00000001")
'
'
Dim lResult As Long
Dim keyhand As Long
Dim r As Long
r = RegCreateKey(Hkey, strPath, keyhand)
lResult = RegSetValueEx(keyhand, strValueName, 0&, REG_DWORD, lData, 4)
'If lResult <> error_success Then
' Call errlog("SetDWORD", False)
r = RegCloseKey(keyhand)
End Function
帖出来瞧瞧。
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongPublic 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 = &H80000005Public Const REG_SZ = 1
Public Const REG_EXPAND_SZ = 2
Public Const REG_BINARY = 3 ' Free form binary
Public Const REG_DWORD = 4 ' 32-bit numberEnum iHKEY
KEY_CLASSES_ROOT = &H80000000
KEY_CURRENT_USER = &H80000001
KEY_LOCAL_MACHINE = &H80000002
KEY_USERS = &H80000003
KEY_PERFORMANCE_DATA = &H80000004
KEY_CURRENT_CONFIG = &H80000005
End EnumEnum iTYPE
SZ = 1
EXPAND_SZ = 2
Binary = 3
DWORD = 4
End EnumPublic Function REG_Write(ByVal inHKEY As iHKEY, ByVal inPath As String, ByVal inName As String, ByVal inType As iTYPE, ByVal inText As String) As Long
'On Error Resume Next
Dim hKey As Long
Dim DataSize As Long
Dim ret As Long DataSize = Len(inText) + 1
RegCreateKey inHKEY, inPath, hKey
If inType = 4 Then GoTo SetLong
RegSetValueEx hKey, inName, 0, inType, ByVal inText, DataSize
RegCloseKey hKey
Exit Function
SetLong:
inText = CLng(inText)
RegSetValueEx hKey, inName, 0, inType, inText, DataSize
RegCloseKey hKey
End FunctionPublic Function REG_Read(ByVal inHKEY As iHKEY, ByVal inPath As String, ByVal inName As String, ByVal inType As iTYPE) As String
'On Error Resume Next
Dim hKey As Long
Dim rSize As Long
Dim ret As Long
Dim OutTxt As String ret = RegOpenKeyEx(inHKEY, inPath, 0, 0, hKey)
ret = RegQueryValueEx(hKey, inName, 0, inType, vbNullString, rSize)
OutTxt = String(rSize, Chr(0))
ret = RegQueryValueEx(hKey, inName, 0, inType, ByVal OutTxt, rSize)
OutTxt = Left(OutTxt, InStr(OutTxt, Chr(0)))
REG_Read = OutTxt
RegCloseKey hKey
End FunctionPublic Function REG_Del(ByVal inHKEY As iHKEY, ByVal inPath As String, ByVal inName As String) As Boolean
On Error GoTo 1
Dim hKey As Long
RegOpenKeyEx inHKEY, inPath, 0, 0, hSubKey
RegDeleteValue hKey, inName
RegCloseKey hKey
Exit Function
1:
REG_Del = False
End Function