RegistryKey auf Existenz prüfen funktioniert nicht (Konsole)

**ephedrine**

Hallo,

ich wollte heute ein wenig für den Informatikunterricht üben, und hab mich mal mit Registry-Einträgen beschäftigt.
Seit einigen Stunden google ich quer durchs Netz und finde keine Antwort auf mein Problem:

Ich möchte in meiner Konsolenanwendung einen Registry-Schlüssel auf Existenzprüfen, und wenn er nicht existiert, ihn dann anlegen. Ich weiß, dass man ihn auch einfach so anlegen könnte (denn wenn er existiert, wird er ja nicht überschrieben), aber es geht um's Prinzip, da ich das für ein späteres Programm benötige.

Leider werden alle Befehle nach der Überprüfung ignoriert

zusammenfalten · markieren

Delphi-Quellcode:

			if Regist.KeyExists('Software\Test\') = true then 

 begin

  WriteLn('Eintrag existiert');

  sleep(4000); 

 end

  else

   try

     regist.OpenKey('Software\Test\', true);

     regist.WriteInteger('Test1', c);

     regist.WriteInteger('Test2', d);

   finally

    regist.free;

     WriteLn('Eintrag angelegt');

     sleep(4000);

Wenn ich das Programm jetzt starte, beendet es sich einfach wieder. Der Sleep-Befehl wird völlig ignoriert. Der Eintrag in der Registry wird auch nicht angelegt. Nehme ich die Überprüfung "if Regist.KeyExists" raus, wird der Key jedoch zumindest angelegt. Also nehme ich mal an, dass das Programm ab der Überprüfung alle Befehle ignoriert.
Was habe ich übersehen?

Viele Grüße
Fabian

RegistryKey auf Existenz prüfen funktioniert nicht (Konsole)

RegistryKey auf Existenz prüfen funktioniert nicht (Konsole)

Forumregeln