Hallo Herr Münke,

das klappt über das passende COM-Objekt:


WriteMultiString()
Die Methode schreibt Daten vom Typ REG_MULTI_SZ in die Registry. Bei Bedarf wird der Wert und evtl. der Schlüssel erzeugt.


Rückgabe:
Ergebnis der Operation mit IPetcomError.LastError
0 Wert erfolgreich geschrieben.

>0 Fehler beim Schreiben.

Zu beachten:
Die Methode löst im Fehlerfall, eine Ausnahme aus, die je nach On Error Einstellung behandelt wird. Der Fehler kann mit IPetcomError.LastError ausgelesen und mit IPetcomError.MessageBox angezeigt werden.
Die Methode verwendet die Properties IDxRegistry::sValue, IDxRegistry::sSubkey, IDxRegistry::sKey und IDxRegistry::hKey.
Bevor Daten vom Typ REG_MULTI_SZ geschrieben werden können, muß IDxRegistry.ReadMultiString aufgerufen werden, um entweder einen vorhandenen Wert zu lesen oder aber, wenn dieser noch nicht existiert, die internen Einstellungen korrekt zu belegen.
Beispiel:
Das folgende Beispiel zeigt die Verwendung:

        On Error GoTo Catch
 
        Dim obDxRegistry As Object
        Dim petErr As Object
                
        Set obDxRegistry = CreateObject("DxRegistry.DxRegistry.1")
        Set petErr = CreateObject("PetcomError.PetcomError.1")
                
        obDxRegistry.sKey = "HKEY_LOCAL_MACHINE"
        obDxRegistry.sSubkey = "SOFTWARE\MeineApplikation\MeinSchlüssel"
 
        'Vorhandenen Wert bearbeiten
        obDxRegistry.ReadMultiString "MeinREG_MULTI_SZWert"
        obDxRegistry.AddHead "Text"
        obDxRegistry.MoveLast
        obDxRegistry.DeleteCurrent
        obDxRegistry.WriteMultiString
 
        'Neuen Wert erzeugen
        obDxRegistry.ReadMultiString "NeuerREG_MULTI_SZWert"
        obDxRegistry.AddTail "Wert 1"
        obDxRegistry.AddTail "Wert 2"
        obDxRegistry.WriteMultiString
                
        Catch:
        If petErr.LastError <> 0 Then
                petErr.MessageBox
        End If 
 

Hallo Herr Münke,

versuchen Sie mal folgendes:

obDxRegistry.AddTail GetCurrentUser+","+GetCurrentUser+",HNACY,785540783"