akpcj.blogg.se

Public Function bSetRegValue(ByVal hKey As Long, ByVal lpszSubKey As String, ByVal sSetValue As String, ByVal sValue As String) As Boolean LResult = RegEnumValue(phkResult, lIndex, szBuffer, lBuffSize, dWReserved, lType, szBuffer2, lBuffSize2)īGetRegValue = Left(szBuffer2, lBuffSize2 - 1) LResult = RegOpenKeyEx(hKey, sKey, 0, 1, phkResult)ĭo While lResult = ERROR_SUCCESS And Not (bFound) Public Function bGetRegValue(ByVal hKey As Long, ByVal sKey As String, ByVal sSubKey As String) As String ' installs of Adobe Exchange or PDFWriter ' FPath = the directory path where you wan ' rinter is swapped out with the PDFWriter ' be PDFWriter is installed, the current p Public Const REG_OPENED_EXISTING_KEY = &H2 Public Const REG_OPTION_NON_VOLATILE = 0& Public Const HKEY_LOCAL_MACHINE = &H80000002 Public Const HKEY_CURRENT_USER = &H80000001 Public Const HKEY_CLASSES_ROOT = &H80000000 Code: '**************************************ĭeclare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Longĭeclare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Longĭeclare Function RegSetValueEx Lib "advapi32" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal szData As String, ByVal cbData As Long) As Longĭeclare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Longĭeclare Function RegCreateKeyEx Lib "advapi32" 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 SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long