The full application is quite large. To test I built a 1 form application to enter a registry key and entry and view the RegOpenKey results. The project has 3 files, test.vbp, form1.frm and esreg.bas which I've inserted into the code block below. Let me know if you need anything else.
Also, thank you for your help. I apologize if I've seemed unreasonable but I'm under a lot of pressure to get this resolved and I've made very little progress.
Ken
***text.vbp***
Type=Exe
Form=Form1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\Program Files\Pack 4.3\STDOLE2.TLB#OLE Automation
Module=EsWin; EsReg.bas
Startup="Form1"
ExeName32="test.exe"
Command32=""
Name="Project1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName=" KAG Software, Inc."
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
[MS Transaction Server]
AutoRefresh=1
***form1.frm***
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3285
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3285
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin VB.Frame FrameEntry
Caption = "Registry Entry"
Height = 735
Left = 120
TabIndex = 8
Top = 840
Width = 4455
Begin VB.TextBox TextEntry
Height = 375
Left = 120
TabIndex = 9
Top = 240
Width = 4215
End
End
Begin VB.CommandButton CmdCall
Caption = "Call RegOpenKey"
Height = 375
Left = 840
TabIndex = 7
Top = 1800
Width = 2655
End
Begin VB.Frame FrameReturn
Caption = "RegOpenKey Results"
Height = 855
Left = 120
TabIndex = 2
Top = 2400
Width = 4455
Begin VB.TextBox TextRet
Height = 375
Left = 2160
TabIndex = 4
Top = 240
Width = 2175
End
Begin VB.TextBox TextErrCode
Height = 375
Left = 720
TabIndex = 3
Top = 240
Width = 615
End
Begin VB.Label LabelRet
Caption = "Return Value"
Height = 375
Left = 1560
TabIndex = 6
Top = 240
Width = 495
End
Begin VB.Label LabelErrCode
Caption = "Error Code"
Height = 375
Left = 120
TabIndex = 5
Top = 240
Width = 495
End
End
Begin VB.Frame RefKey
Caption = "Registry Key"
Height = 735
Left = 120
TabIndex = 0
Top = 120
Width = 4455
Begin VB.TextBox TextRegKey
Height = 375
Left = 120
TabIndex = 1
Top = 240
Width = 4215
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdCall_Click()
Dim TheRet As String
If TextRegKey.Text = "" Or TextEntry.Text = "" Then
Call MsgBox("Enter the registry key and entry you want to read", vbInformation)
Exit Sub
End If
TheRet = RegGetValue(HKEY_LOCAL_MACHINE&, TextRegKey.Text, TextEntry.Text)
End Sub
***esreg.bas***
Attribute VB_Name = "EsWin"
Declare Function RegCloseKey& Lib "advapi32.dll" (ByVal hKey&)
Declare Function RegOpenKeyExA& Lib "advapi32.dll" (ByVal hKey&, ByVal lpszSubKey$, dwOptions&, ByVal samDesired&, lpHKey&)
Declare Function RegQueryValueExA& Lib "advapi32.dll" (ByVal hKey&, ByVal lpszValueName$, ByVal lpdwRes&, lpdwType&, ByVal lpDataBuff$, nSize&)
Declare Function RegQueryValueEx& Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey&, ByVal lpszValueName$, ByVal lpdwRes&, lpdwType&, lpDataBuff&, nSize&)
Global Const HH_DISPLAY_TOPIC As Long = 0
Global Const HH_HELP_CONTEXT As Long = &HF
Global Const HH_DISPLAY_TOC = &H1
Global Const HKEY_CLASSES_ROOT = &H80000000
Global Const HKEY_CURRENT_USER = &H80000001
Global Const HKEY_LOCAL_MACHINE = &H80000002
Global Const HKEY_USERS = &H80000003
Const ERROR_SUCCESS = 0&
Const REG_SZ = 1& ' Unicode nul terminated string
Const REG_DWORD = 4& ' 32-bit number
Const KEY_QUERY_VALUE = &H1&
Const KEY_SET_VALUE = &H2&
Const KEY_CREATE_SUB_KEY = &H4&
Const KEY_ENUMERATE_SUB_KEYS = &H8&
Const KEY_NOTIFY = &H10&
Const KEY_CREATE_LINK = &H20&
Const READ_CONTROL = &H20000
Const WRITE_DAC = &H40000
Const WRITE_OWNER = &H80000
Const SYNCHRONIZE = &H100000
Const STANDARD_RIGHTS_REQUIRED = &HF0000
Const STANDARD_RIGHTS_READ = READ_CONTROL
Const STANDARD_RIGHTS_WRITE = READ_CONTROL
Const STANDARD_RIGHTS_EXECUTE = READ_CONTROL
Const KEY_READ = STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY
Const KEY_WRITE = STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY
Const KEY_EXECUTE = KEY_READ
Function RegGetValue$(MainKey&, SubKey$, TheValue$)
' MainKey must be one of the Publicly declared HKEY constants.
Dim sKeyType& 'to return the key type. This function expects REG_SZ or REG_DWORD
Dim ret& 'returned by registry functions, should be 0&
Dim lpHKey& 'return handle to opened key
Dim lpcbData& 'length of data in returned string
Dim ReturnedString$ 'returned string TheValue
Dim ReturnedLong& 'returned long TheValue
If MainKey >= &H80000000 And MainKey <= &H80000006 Then
' Open key
ret = RegOpenKeyExA(MainKey, SubKey, 0&, KEY_READ, lpHKey)
Form1!TextErrCode.Text = Str(ret)
Form1!TextRet.Text = ""
If ret <> ERROR_SUCCESS Then
RegGetValue = ""
Exit Function 'No key open, so leave
End If
' Set up buffer for data to be returned in.
' Adjust next value for larger buffers.
lpcbData = 255
ReturnedString = Space$(lpcbData)
' Read key
ret& = RegQueryValueExA(lpHKey, TheValue, ByVal 0&, sKeyType, ReturnedString, lpcbData)
If ret <> ERROR_SUCCESS Then
'Call MsgBox("Query Return = " + Str(ret), vbInformation)
RegGetValue = "" 'Value probably doesn't exist
Else
If sKeyType = REG_DWORD Then
ret = RegQueryValueEx(lpHKey, TheValue, ByVal 0&, sKeyType, ReturnedLong, 4)
If ret = ERROR_SUCCESS Then RegGetValue = CStr(ReturnedLong)
Else
RegGetValue = Left$(ReturnedString, lpcbData - 1)
Form1!TextRet.Text = Left$(ReturnedString, lpcbData - 1)
End If
End If
' Always close opened keys.
ret = RegCloseKey(lpHKey)
End If
End Function
