Registry.PCU

[ts-soft]

schöne Sache, die Inc gefällt mir (endlich mal einer der sauberen Code schreibt )

2 Wünsche:
REG_MULTI_SZ
REG_EXPAND_SZ

Wobei der erstere der wichtigere ist.

[Volkmar]

Hier die nächste Variante. Zur Übersicht nochmal die Beschreibung komplett.

Ergebnis? = XReadINI(Key$, Abschnitt$, Eintrag$)
Bei Vorgabe des Keys mit _DW ist die Rückgabe ein Long, falls ein DWord gelesen wird. In jedem anderen Falle wird ein String zurück gegeben. Ist Eintrag$ ein Leerstring, dann wird der Standardeintrag gelesen.

Weitere Angaben für Key$
HKEY_BIN_x liest binäre Daten (REG_BINARY) und liefert einen String mit diesen Daten. Zur Auswertung ist ein Trick notwendig;

Var String Ergebnis = XReadINI(Key$, Abschnitt$, Eintrag$)
Var Long Pointer = Addr(Ergebnis)
Var Long ByteZahl = Long(Pointer, 0)

Ab Pointer,4 kann dann auf die Binärdaten zugegriffen werden. Mit dem String Ergebnis dürfen natürlich keine Stringfunktionen ausgeführt werden, dies würde die Daten mit großer Sicherheit zerstören.

HKEY_MULTI_x liest eine Folge von Strings vom Typ REG_MULTI_SZ, also mehrere nullterminierte Strings hintereinander, abgeschlossen durch ein weiteres NullByte. Als Ergebnis wird ein String geliefert, der das XProfanübliche Trennzeichen | zwischen den einzelnen Strings verwendet.

HKEY_EX_x liest einen vollständigen Dateinamen, wobei enthaltene Variablen aufgelöst werden.

Key$ kann auch ein Dateiname sein, dann wird aus einer INI-Datei gelesen.

XWriteINI Key$, Abschnitt$, Eintrag$, Wert?
Bei Vorgabe des Keys mit _DW ist der Wert ein Long, ansonsten ein String. Um einen Eintrag zu löschen muß ein Leestring als Wert angegeben sein.
Dementsprechend darf auch bei numerischen Werten _DW im Key nicht angegeben sein, Löschen ist nur mit Stringtyp (auch für DWord-Einträge) möglich!
Ist als Eintrag ein Leerstring angegeben, dann wird im bezeichneten Pfad der Standardeintrag mit dem Wert belegt. Wird ein Leerstring geschrieben, wird der Standardeintrag leer gesetzt ohne etwas zu löschen.

Weitere Angaben für Key$
HKEY_BIN_x speichert binäre Daten. Wert? ist hier ein Bereich, der als ersten Wert einen Long mit der Anzahl der nachfolgenden Bytes enthält.

HKEY_MULTI_x speichert eine Folge von Strings, die XProfan-üblich mit | als Trenner angegeben sind. In der Registry wird der Typ REG_MULTI_SZ verwendet, also mehrere nullterminierte Strings hintereinander, abgeschlossen durch ein weiteres NullByte.

HKEY_EX_x speichert einen vollständigen Dateinamen, wobei Pfade durch Variablen dargestellt werden.

Key$ kann auch ein Dateiname sein, dann wird in eine INI-Datei geschrieben. Hier funktioniert das Löschen anders:
Wird anstelle Wert$ der Long -1 angegeben, dann wird die Zeile aus der INI-Datei entfernt.
Wird sowohl für Wert$ als auch für Eintrag$ jeweils der Long -1 angegeben, dann wird der ganze durch Abschnitt bezeichnete Abschnitt aus der Datei entfernt.

Neu hinzugekommen ist die Funktion
XEnumINI(Key$, Abschnitt$, Liste%, Flag%)
Listet alle Subkeys und Wertebezeichner in einem Registrypfad
Flag = 1 Subkeys auflisten, SubKeys stehen immer in [eckigen] Klammern
Flag = 2 Wertebezeichner auflisten
Flag = 4 Datentyp als String zu Wertebezeichnern angeben, stehen immer hinten in (runden) Klammern
Liste ist eine Stringliste oder Listbox, in der die Ausgabe geschrieben wird
In INI-Dateien ist möglich
Flag = 1 Alle Sektionen der Datei (Sektionen stehen immer in [eckigen] Klammern)
Flag = 2 Alle Wertebezeichner in der angegebenen Sektion
werden die Flags kombiniert, dann werden alle Sektionen der Datei und die Wertebezeichner der angegebenen Sektion gelistet
Flag = 4 wird ignoriert
Wenn Flag = 0, dann wird 7 angenommen, alles alle Bits gesetzt

Ich hoffe, daß es nun alles wie gewünscht funktioniert.

Gruß Volkmar

[ts-soft]

Sehr schön, so sollte es für die meisten Fälle komplett sein!
(aber hab noch nicht getested )

[Volkmar]

Nachdem ich das Ganze nun auch mal in einem realen Programm eingebaut habe, habe ich noch ein Problem gefunden. Der Typ REG_SZ läßt sich nach dem Lesen nicht so einfach weiter verarbeiten. Das abschließende Nullbyte war mit in der Stringlänge drin. Entweder den Rückgabestring trimmen oder besser die korrigierte Version hier verwenden.

Tut mir leid, daß ich das erst jetzt bringen kann, aber mein Provider hat wohl schon den ganzen Tag Halloween gefeiert. Die Verbindung ging nur immer mal für ein paar Minuten und dann war ich wieder raus. Aber die Party scheint nun vorbei zu sein .

Gruß Volkmar

[Volkmar]

Ich muß mich nochmal korrigieren. Rückgabe 0 war ein Schuß in den Ofen, das gibt natürlich bei Stringtypen als Ergebnis "0", wenn der Wert nicht vorhanden ist. Jetzt wird immer ein Leestring zurückgegeben, wenn der Wert nicht vorhanden ist, außer, es wird ausdrücklich ein numerischer Wert verlangt (HKEY_DW_x). Dann kommt weiterhin die Zahl 0, oder bei Zuweisung an einen String eben "0".
Die Rückgabe bei einfachen Strings habe ich auch nochmal etwas verändert, das wird jetzt getrimmt und nicht nur auf die durch die Registry gelieferte Länge gekürzt. Damit sollen dann Probleme vermieden werden, die entstehen, wenn jemand "irgendwas\z" geschrieben hat. Kommt jetzt als "irgendwas" zurück.

Gruß Volkmar