StrToReg, IntToReg, RegToStr und RegToInt

[fauxx]

Beispiel:

Ich will sehen ob in Software\Hersteller\Programm\Version\Schluessel (in EasyRegistry wird immer von HKCU ausgegangen) ein Wert steht, wenn ja, soll er um eins erhöht werden, wenn nicht auf eins gesetzt werden. (Z.B. um die Anzahl der Aufrufe eines Programmes zu zählen):

Delphi-Quellcode:

if RegToInt('Software\Hersteller\Programm\Version', 'Schluessel') <> -1 then //Existier der Schlüssel nicht, ist der Rückgabewert -1 (kann in der Unit verändert werden)
  IntToReg('Software\Hersteller\Programm\Version', 'Schluessel', RegToInt('Software\Hersteller\Programm\Version', 'Schluessel') + 1)
else
  IntToReg('Software\Hersteller\Programm\Version', 'Schluessel', 1);

Hinweis:
Wenn der Schlüssel/Wert nicht existiert gibt RegToInt -1 und RegToStr "" zurück.