Typ Registryeintrag ?

**BugFix**

Hi,
um mein Programm (Outlook Journaleintragstyp benutzerdefiniert) noch etwas komfortabler zu gestalten wollte ich automatisch vor dem Löschen eines Registryeintrages den Schlüssel mit allen Werten in einer INI-Datei sichern. Das klappt auch gut und sieht dann so aus:

Code

[TEST]
AutoJournaled=0
JournalByContact=0
Large Icon=[8]
Small Icon=[8]
Description=TEST

Hier die Funktion:

Code

Func _GetKeyToBackupINI()
Dim $i = 0
Dim $Wert, $val, $Fehler = 0
	Do
		$i+ = 1
		$Wert = RegEnumVal($RegKey&$EntryDel, $i)
		$Fehler = @Error
		If $Fehler = 0 Then
			$val = RegRead($RegKey&$EntryDel, $Wert)
			IniWrite ( @ScriptDir & "\outlk_key.ini", $EntryDel, $Wert, $val )
		EndIf
	Until $Fehler <> 0
EndFunc

Alles anzeigen

Aber leider wird hierbei die Information über den Registry Eintragstyp nicht mit übernommen. Die ersten beiden Einträge sind REG_DWORD der Rest REG_SZ.
Wenn ich den Schlüssel wiederherstellen möchte brauche ich aber den Typ. Bin völlig konsterniert.

Edit:
Mir ist grad aufgefallen, dass die INI-Datei leider doch nicht so geeignet ist. Denn wenn ich diese auslesen will, müßte ich ja wissen wie die INI-keys (=REG-Werte) heißen.
Vielleicht hat jemand eine brauchbare Idee?

:help:

**bernd670**

Hallo,

so wie aussieht nutzt du ja eh die beta von AutoIt dort kann man die Eintragstypen mit @extended ermitteln z.B. so:

Spoiler anzeigen

Code

Func _GetKeyToBackupINI()
Dim $RegTypes[8]
$RegTypes[1] = "REG_SZ"
$RegTypes[2] = "REG_EXPAND_SZ"
$RegTypes[3] = "REG_BINARY"
$RegTypes[4] = "REG_DWORD"
$RegTypes[5] = ""
$RegTypes[6] = ""
$RegTypes[7] = "REG_MULTI_SZ"


Dim $i = 0
Dim $Wert, $val, $Fehler = 0
	Do
		$i+ = 1
		$Wert = RegEnumVal($RegKey&$EntryDel, $i)
		$Fehler = @Error
		If $Fehler = 0 Then
			$val = RegRead($RegKey&$EntryDel, $Wert)
			IniWrite ( @ScriptDir & "\outlk_key.ini", $EntryDel, $Wert, $val & ";" & $RegTypes[@extended] )
		EndIf
	Until $Fehler <> 0
EndFunc

Alles anzeigen

Die Schlüssel und die Werte aus der Ini-Datei kannst du mit der Funktion IniReadSection ermitteln!

Das zurückschreiben sollte dann so gehen:

Spoiler anzeigen

Code

Func _SetBackupINIToKey()
    $INISection = IniReadSection("\outlk_key.ini", "TEST")
    For $i = 1 To $INISection[0][0]
        $StrSplit = StringSplit($INISection[$i][1],";")
        RegWrite($RegKey, $INISection[$i][0], $StrSplit[2], $StrSplit[1])
    Next
EndFunc

ohne gewähr

**BugFix**

Ja, danke Bernd. Das wars, was ich suchte.
Hab in diesem Zusammenhang ein anderes Problem. (Subscript used with non-Array variable)
Vielleicht hast du ja dort den entscheidenden Durchblick.