VB6 und registry.....

Dieses Thema im Forum "Programmieren" wurde erstellt von Dark_Moon, 27. Mai 2003.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. Dark_Moon

    Dark_Moon Kbyte

    Registriert seit:
    17. Mai 2002
    Beiträge:
    251
    hi...

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

    mfg
     
  2. Progmeister

    Progmeister Kbyte

    Registriert seit:
    13. August 2002
    Beiträge:
    161
    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
     
  3. r00ter

    r00ter Byte

    Registriert seit:
    26. Mai 2003
    Beiträge:
    9
    dim Wert as string
    Wert = GetSetting("ProgrammName", "Abteil", "Eintrag")

    http://www.securecrew.net
    Programmierung und mehr...
     
Status des Themas:
Es sind keine weiteren Antworten möglich.

Diese Seite empfehlen