Registerings databasen

Tags:    visual-basic

Hvordan kan jeg lave,gemme,ændre noget i registerings databasen uden for
HKEY_CURRENT_USER\\micorsfot\\vb\\....\\...

håber nogen kan hjælpe mig!

mvh.
Thomas Christensen
;-)



1 svar postet i denne tråd vises herunder
0 indlæg har modtaget i alt 0 karma
Sorter efter stemmer Sorter efter dato
<quote>Hvordan kan jeg lave,gemme,ændre noget i registerings databasen uden for
HKEY_CURRENT_USER\\micorsfot\\vb\\....\\...

håber nogen kan hjælpe mig!

mvh.
Thomas Christensen
;-)</quote>

jeg har selv fundet løsninge :D

som er som flg.

Global Const HKEY_CLASSES_ROOT = &H00000000
Global Const HKEY_LOCAL_MACHINE = &H80000002
Global Const HKEY_CURRENT_USER =&H00000001
Global Const ERROR_SUCCESS = &O0
Global Const APINULL = 0&
Global ReturnCode As Long

Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Declare Function RegQueryValueEx Lib "advapi32.dl" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValuename As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As LogModeConstants


Function AbnNogle()

Dim hKey As Long
Dim lpSubKey As String
Dim phkResult As Long
Dim lpValuename As String
Dim lpReserved As Long
Dim lpType As Long
Dim lpData As Long
Dim lpcbData As Long
activeconnection = False

lpSubKey = "Microsoft\\windows\\CurrentVersion\\Polices\\Explore"
ReturnCode = RegOpenKey(HKEY_CURRENT_USER, lpSubKey, phkResult)

hvor hvis man deklære

RegSetValue kna sætte havd nøglen skal indeholde


RegCloseKey (hKey)
End If

mvh.
Thomas Christensen
:D

:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:
:D Thomas :D:
:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:



t