ok ... i have yet another registry problem ...
i can edit the dword with regedit but when i try to through code it doesnt work - the error code is access denied
this is in vista and user access control is off
a cut down ver of the code is as follows:
it fails on the 1st line with ERROR_SUCCESS in it in the function - as you can see it doesnt go into the if.... returns 5 ...Code:Const HKEY_LOCAL_MACHINE = &H80000002 Const KEY_WRITE = &H20006 Const KEY_WOW64_64KEY = &H100 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 Const ERROR_SUCCESS = 0& Const REG_DWORD = 4 Private Declare Function RegSetValueExA Lib "advapi32.dll" (ByVal hKey As Long, ByVal lpValueName As String, ByVal reserved As Long, ByVal dwType As Long, ByRef lpData As Long, ByVal cbData As Long) As Long Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Public Function Test() Dim mainKey As Long Dim sName As String If (RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render\{31ba760e-a198-4aac-8d26-6ea4adf0cfe3}", 0, KEY_WRITE + KEY_WOW64_64KEY, mainKey) = ERROR_SUCCESS) Then 'try to write data If (RegSetValueExA(mainKey, sName, 0, REG_DWORD, 1, 4) = ERROR_SUCCESS) Then RegCloseKey mainKey 'yeap, we did it! ;o) Else 'error :( End If Else 'error End If End Function
any ideas??
thanks in adv
kris


Code Project - "Best VB.NET article of October 2011"
on the left <--)
Reply With Quote
