www.pudn.com > reginq.zip > MAIN.FRM
VERSION 4.00
Begin VB.Form frmMain
Caption = "frmMain -- Registry Query Sample"
ClientHeight = 4530
ClientLeft = 1380
ClientTop = 1530
ClientWidth = 5895
Height = 4935
Left = 1320
LinkTopic = "Form1"
ScaleHeight = 4530
ScaleWidth = 5895
Top = 1185
Width = 6015
Begin VB.TextBox txtHex
BeginProperty Font
name = "Fixedsys"
charset = 0
weight = 400
size = 9
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 1095
Left = 2520
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 13
TabStop = 0 'False
Top = 3360
Width = 3255
End
Begin VB.TextBox txtDataLength
Height = 285
Left = 5160
TabIndex = 11
TabStop = 0 'False
Top = 2640
Width = 615
End
Begin VB.TextBox txtDataType
Height = 285
Left = 2520
TabIndex = 9
TabStop = 0 'False
Top = 2640
Width = 495
End
Begin VB.CommandButton cmdDone
Caption = "&Done"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 9.75
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 5
TabStop = 0 'False
Top = 4080
Width = 1695
End
Begin VB.TextBox txtResult
Height = 285
Left = 120
TabIndex = 4
TabStop = 0 'False
Top = 3000
Width = 5655
End
Begin VB.CommandButton cmdQuery
Caption = "&Query"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 9.75
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 3
Top = 1920
Width = 5655
End
Begin VB.TextBox txtRegistrationParameter
Height = 285
Left = 2520
TabIndex = 2
Top = 1440
Width = 3255
End
Begin VB.TextBox txtRegistrationPath
Height = 735
Left = 2520
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 1
Top = 600
Width = 3255
End
Begin VB.ComboBox cboStartKey
Height = 315
Left = 2520
TabIndex = 0
Top = 120
Width = 3255
End
Begin VB.Line Line1
BorderWidth = 2
X1 = 120
X2 = 5760
Y1 = 2520
Y2 = 2520
End
Begin VB.Label Label7
Caption = "Result"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 9.75
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 15
Top = 2700
Width = 735
End
Begin VB.Label Label6
Alignment = 1 'Right Justify
Caption = "Hex Result"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 375
Left = 480
TabIndex = 14
Top = 3360
Width = 1815
End
Begin VB.Label Label5
Alignment = 1 'Right Justify
Caption = "API Data Length"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 9.75
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 255
Left = 3360
TabIndex = 12
Top = 2700
Width = 1695
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
Caption = "Data Type"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 9.75
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 255
Left = 1200
TabIndex = 10
Top = 2700
Width = 1215
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "Key"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 375
Left = 480
TabIndex = 8
Top = 1440
Width = 1815
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "Sub Key Path"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 375
Left = 480
TabIndex = 7
Top = 600
Width = 1815
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "Starting Key"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 375
Left = 480
TabIndex = 6
Top = 120
Width = 1815
End
End
Attribute VB_Name = "frmMain"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdDone_Click()
End
End Sub
Private Sub cmdQuery_Click()
'* Demonstration of using sdaGetRegEntry to query
' the system registry
' Stu Alderman -- 2/30/96
Dim lngType As Long, varRetString As Variant
Dim lngI As Long, intChar As Integer
varRetString = sdaGetRegEntry(cboStartKey, _
txtRegistrationPath, txtRegistrationParameter, _
lngType)
txtResult = varRetString
txtDataType = lngType
txtDataLength = Len(varRetString)
txtHex = ""
If Len(varRetString) Then
For lngI = 1 To Len(varRetString)
intChar = Asc(Mid(varRetString, lngI, 1))
If intChar > 15 Then
txtHex = txtHex & Hex(intChar) & " "
Else
txtHex = txtHex & "0" & Hex(intChar) & " "
End If
Next lngI
End If
End Sub
Private Sub Form_Load()
cboStartKey.AddItem "HKEY_CLASSES_ROOT"
cboStartKey.AddItem "HKEY_CURRENT_CONFIG"
cboStartKey.AddItem "HKEY_CURRENT_USER"
cboStartKey.AddItem "HKEY_DYN_DATA"
cboStartKey.AddItem "HKEY_LOCAL_MACHINE"
cboStartKey.AddItem "HKEY_PERFORMANCE_DATA"
cboStartKey.AddItem "HKEY_USERS"
End Sub