[VB] Hoe naar de registry lezen/schrijven :? - Softwareontwikkeling

woensdag 16 januari 2002 08:52

Acties:

« - _ - »

Topicstarter

Ik zou graag voor mijn VB applicatie eenvoudig naar het registry willen kunnen schrijven....

Nu heb ik enige tijd geleden, de volgende Registry Class gevonden.... Helaas is het zo bij deze class dat je alleen kan lezen/schrijven naar String registry key's.... Ik zou graag ook de mogelijkheid willen om naar DWORD en Binary (^{Weet alleen nog niet waarvoor}) values kunnen schrijven....<blockquote>php:<hr><pre><code><?
'------------------------------------------------------------------------------------------'
''
' Copyright ©1997-99'
' Karl E. Peterson, All Rights Reserved'
'------------------------------------------------------------------------------------------'
''
' NOTE:'
' -----'
' You are free to use this code within your own applications, but you'
' are expressly forbidden from selling or otherwise distributing this'
' source code without prior written consent.'
''
'------------------------------------------------------------------------------------------'
' Properties:'
'------------------------------------------------------------------------------------------'
' - Company'
' - Appname'
''
'------------------------------------------------------------------------------------------'
' Methods:'
'------------------------------------------------------------------------------------------'
' - DeleteSettings'
' - GetAllSettings'
' - GetSetting'
' - SaveSetting'
' - Subkey'
'------------------------------------------------------------------------------------------'

Option Explicit

'------------------------------------------------------------------------------------------'
' API Declarations (Win32 Registry functions)'
'------------------------------------------------------------------------------------------'

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As Any, phkResult As Long, lpdwDisposition As Long) As Long
Private 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.'
Private Declare Function RegQueryInfoKey Lib "advapi32.dll" Alias "RegQueryInfoKeyA" (ByVal hKey As Long, ByVal lpClass As String, lpcbClass As Long, lpReserved As Long, lpcSubKeys As Long, lpcbMaxSubKeyLen As Long, lpcbMaxClassLen As Long, lpcValues As Long, lpcbMaxValueNameLen As Long, lpcbMaxValueLen As Long, lpcbSecurityDescriptor As Long, lpftLastWriteTime As Any) As Long
Private Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias "RegEnumKeyExA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, lpcbName As Long, lpReserved As Long, ByVal lpClass As String, lpcbClass As Long, lpftLastWriteTime As Any) As Long
Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, lpReserved As Long, lpType As Long, lpData As Any, lpcbData 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, 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.'
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

'------------------------------------------------------------------------------------------'
' Constants'
'------------------------------------------------------------------------------------------'

Private Const HKEY_CLASSES_ROOT = &amp;H80000000
Private Const HKEY_CURRENT_USER = &amp;H80000001
Private Const HKEY_LOCAL_MACHINE = &amp;H80000002
Private Const HKEY_USERS = &amp;H80000003
Private Const HKEY_PERFORMANCE_DATA = &amp;H80000004
Private Const HKEY_CURRENT_CONFIG = &amp;H80000005
Private Const HKEY_DYN_DATA = &amp;H80000006

'------------------------------------------------------------------------------------------'
' Reg result codes'
'------------------------------------------------------------------------------------------'

Private Const REG_CREATED_NEW_KEY = &amp;H1 ' New Registry Key created'
Private Const REG_OPENED_EXISTING_KEY = &amp;H2 ' Existing Key opened'

'------------------------------------------------------------------------------------------'
' Reg Create Type Values...'
'------------------------------------------------------------------------------------------'

Private Const REG_OPTION_RESERVED = 0 ' Parameter is reserved'
Private Const REG_OPTION_NON_VOLATILE = 0 ' Key is preserved when system is rebooted'
Private Const REG_OPTION_VOLATILE = 1 ' Key is not preserved when system is rebooted'
Private Const REG_OPTION_CREATE_LINK = 2 ' Created key is a symbolic link'
Private Const REG_OPTION_BACKUP_RESTORE = 4 ' open for backup or restore'

'------------------------------------------------------------------------------------------'
' Reg Key Security Options'
'------------------------------------------------------------------------------------------'

Private Const DELETE = &amp;H10000
Private Const READ_CONTROL = &amp;H20000
Private Const WRITE_DAC = &amp;H40000
Private Const WRITE_OWNER = &amp;H80000
Private Const SYNCHRONIZE = &amp;H100000
Private Const STANDARD_RIGHTS_READ = (READ_CONTROL)
Private Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)
Private Const STANDARD_RIGHTS_EXECUTE = (READ_CONTROL)
Private Const STANDARD_RIGHTS_REQUIRED = &amp;HF0000
Private Const STANDARD_RIGHTS_ALL = &amp;H1F0000
Private Const SPECIFIC_RIGHTS_ALL = &amp;HFFFF
Private Const KEY_QUERY_VALUE = &amp;H1
Private Const KEY_SET_VALUE = &amp;H2
Private Const KEY_CREATE_SUB_KEY = &amp;H4
Private Const KEY_ENUMERATE_SUB_KEYS = &amp;H8
Private Const KEY_NOTIFY = &amp;H10
Private Const KEY_CREATE_LINK = &amp;H20
Private Const KEY_READ = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))
Private Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
Private Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))
Private Const KEY_EXECUTE = ((KEY_READ) And (Not SYNCHRONIZE))

Private Const ERROR_SUCCESS = 0&amp;
Private Const ERROR_MORE_DATA = 234
Private Const ERROR_NO_MORE_ITEMS = 259

Private Const REG_SZ = 1 ' Unicode nul terminated string'

'------------------------------------------------------------------------------------------'
' Private member variables'
'------------------------------------------------------------------------------------------'

Private m_Company As String
Private m_AppName As String

'------------------------------------------------------------------------------------------'
' Private class constants'
'------------------------------------------------------------------------------------------'

Private Const defCompany As String = "Woudsma Online"

'------------------------------------------------------------------------------------------'
' Initialize and Terminate'
'------------------------------------------------------------------------------------------'

Private Sub Class_Initialize()

 m_Company = defCompany
 m_AppName = App.ProductName

End Sub

'------------------------------------------------------------------------------------------'
' Public Properties'
'------------------------------------------------------------------------------------------'

Public Property Let Company(ByVal NewVal As String)

 If Len(NewVal) Then
 m_Company = Trim(NewVal)
 Else
 m_Company = defCompany
 End If

End Property

Public Property Get Company() As String

 Company = m_Company

End Property

Public Property Let AppName(ByVal NewVal As String)

 If Len(NewVal) Then
 m_AppName = Trim(NewVal)
 Else
 m_AppName = App.ProductName
 End If

End Property

Public Property Get AppName() As String

 AppName = m_AppName

End Property

'------------------------------------------------------------------------------------------'
' Public Methods'
'------------------------------------------------------------------------------------------'

Public Function DeleteSetting(ByVal Section As String, _
 Optional ByVal Key As String = "") As Boolean
'------------------------------------------------------------------------------------------'
' Section Required. String expression containing the name of the section where the key setting'
' is being deleted. If only section is provided, the specified section is deleted along'
' with all related key settings.'
' Key Optional. String expression containing the name of the key setting being deleted.'
'------------------------------------------------------------------------------------------'
Dim nRet As Long
Dim hKey As Long

 If Len(Key) Then
 ' Open key'
 nRet = RegOpenKeyEx(HKEY_CURRENT_USER, SubKey(Section), 0&amp;, KEY_ALL_ACCESS, hKey)
 If nRet = ERROR_SUCCESS Then
 ' Set appropriate value for default query'
 If Key = "*" Then Key = vbNullString
 ' Delete the requested value'
 nRet = RegDeleteValue(hKey, Key)
 Call RegCloseKey(hKey)
 End If
 Else
 ' Open parent key'
 nRet = RegOpenKeyEx(HKEY_CURRENT_USER, SubKey(), 0&amp;, KEY_ALL_ACCESS, hKey)
 If nRet = ERROR_SUCCESS Then
 ' Attempt to delete whole section'
 nRet = RegDeleteKey(hKey, Section)
 Call RegCloseKey(hKey)
 End If
 End If

 DeleteSetting = (nRet = ERROR_SUCCESS)

End Function

Public Function GetAllSettings(ByVal Section As String) As Variant
'------------------------------------------------------------------------------------------'
' Section Required. String expression containing the name of the section'
' to enumerate.'
'------------------------------------------------------------------------------------------'
Dim nRet As Long
Dim hKey As Long
Dim nMaxValueNameLen As Long
Dim nMaxValueLen As Long
Dim nValueNameLen As Long
Dim nValueLen As Long
Dim nType As Long
Dim nIndex As Long
Dim nStrings As Long
Dim ValueName As String
Dim Value As String
Dim Values() As String
Dim Results() As String
Dim i As </fon

woensdag 16 januari 2002 10:58

Acties:

Crazy D

I think we should take a look.

Zoek de API calls even op in MSDN.
1 van de parameters voor de createkey is het formaat. Daar zijn een aantal constanten voor.
Ik heb ff geen zin om te kijken welke precies, daar moet je met MSDN aan de hand wel uit kunnen komen lijkt me.

Exact expert nodig?

woensdag 16 januari 2002 11:08

Acties:

Woudloper

« - _ - »

Topicstarter

CrazyD_at_workZoek de API calls even op in MSDN.
1 van de parameters voor de createkey is het formaat. Daar zijn een aantal constanten voor.

Dat is het probleem, momenteel heb ik de MSDN spullen niet geïnstalleerd op mijn PC, en kan er ook niet 1,2,3 aan komen

...

Eigenlijk was ik ook op zoek naar een soortement van Class Module/Module welke ik hiervoor zou kunnen gebruiken.... Ben nog steeds aan het zoeken, maar kan het niet vinden... Wellicht gebruik ik de verkeerde zoektermen