Einzelnen Beitrag anzeigen

fauxx
(Gast)

n/a Beiträge
 
#3

Re: StrToReg, IntToReg, RegToStr und RegToInt

  Alt 19. Apr 2004, 19:43
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.
  Mit Zitat antworten Zitat