VB6 und registry.....

hi...

wie kann ich in VB6 eine Zeichenfolge in der Registry auslesen???

mfg

 

fast richtig

dim Wert as string
Wert = GetSetting("ProgrammName", "Abteil", "Eintrag",default)

ein default-Wert muß vorgegeben werden sonst kommt ne Fehlermeldung, es reicht aber aus wenn "" da steht

Wert = GetSetting("ProgrammName", "Abteil", "Eintrag","")

ander Registry Werte können mit einer API Funktion gelesen werden

\'alle benötigten API-Deklarationen
Private Declare Function RegOpenKey Lib "advapi32.dll" _
Alias "RegOpenKeyA" (ByVal hKey As Long, _
ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegQueryValueEx Lib "advapi32.dll" _
Alias "RegQueryValueExA" (ByVal hKey As Long, _
ByVal lpValueName As String, ByVal lpReserved As Long, _
lpType As Long, lpData As Any, lpcbData As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" _
Alias "RegSetValueExA" (ByVal hKey As Long, _
ByVal lpValueName As String, ByVal Reserved As Long, _
ByVal dwType As Long, lpData As Any, ByVal cbData As Long) _
As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long

Private Declare Function RegCreateKey Lib "advapi32.dll" _
Alias "RegCreateKeyA" (ByVal hKey As Long, _
ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegDeleteValue Lib "advapi32.dll" _
Alias "RegDeleteValueA" (ByVal hKey As Long, _
ByVal lpValueName As String) As Long

Const HKEY_CURRENT_USER = &H80000001
Const REG_SZ = 1
Const REG_BINARY = 3

 

dim Wert as string
Wert = GetSetting("ProgrammName", "Abteil", "Eintrag")

http://www.securecrew.net
Programmierung und mehr...