registry den bilgi okuma

[hakangs]

Selam
Arkadaşlar, windows registry' den istediğim value'leri
okumamı sağlayacak bir teknik üretmem gerekiyor. Aşağıdaki
yöntemi denedim ama henüz sonuç alamdım. Sanıyorum bir yerde
yalnış yapıyorum .Araştırmaya fazla vaktim olmadığı içn de,
bilen arkadaşlar varsa,yardımlarını rica ediyorum.
Şimdiden teşekkür ederim.

**************************************************************************************************
option explicit

Const HKEY_LOCAL_MACHINE = &H80000002
const KEY_READ=131097

Declare Function RegOpenKey Lib "advapi32" Alias "RegOpenKeyExA" _
(ByVal HKEY As Long, ByVal SUB_KEY As String, ByVal RSVD As Long, _
ByVal SAM As Long, ByRef RESULT As Long) As Long

Declare Function RegEnumValue Lib "advapi32" Alias "RegEnumValueA" _
(ByVal HKEY As Long, _
ByVal VALUE_NDX As Long, _
ByVal VALUE_NAME As String, _
ByRef BUF_SIZE_OF_VALUE As Long, _
ByVal RSVD As Long, _
ByVal TYPE_CODE As Long, _
ByRef BUF_DATA As String, _
ByRef SIZE_OF_BUF_DATA As Long) As Long



Sub key_ac()
Dim FUNC_RESULT As Long
FUNC_RESULT = RegOpenKey(HKEY_LOCAL_MACHINE, _
"HARDWARE\DESCRIPTION\System\CentralProcessor\0", _
0, KEY_READ, 0)
'MsgBox FUNC_RESULT
End Sub

Sub value_oku()
Dim func_result As Long

Dim BUF_SIZE As Long
Dim BUF_DATA As String
Dim SIZE_OF_BUF As Long

key_ac

func_result = RegEnumValue( _
HKEY_LOCAL_MACHINE, _
0, _
"ProcessorNameString", _
BUF_SIZE, _
0, _
1, _
BUF_DATA, _
SIZE_OF_BUF)
MsgBox func_result ' (259 (ERROR_NO_MORE_ITEMS) hatası veriyor)
MsgBox BUF_DATA
End Sub