Thread.Execute - Registry auslesen - Problem

**Susanne**

Ich habe einen Dienst, der in der serviceExecute-Methode einen Thread aufruft. In diesem Thread möchte ich in der Execute-Methode prüfen, ob in der Registry in einem bestimmten Eintrag ein bestimmter Wert steht und wenn ja soll er was machen, ansonsten übergehen. Sieht folgendermassen aus:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TimeManagerThread.Execute;

   var

      neueinlesen: STring;

   begin

      FormCreate;

      while not Terminated do

  1*       begin

         //Registry auslesen

         reg.RootKey:= HKEY_LOCAL_MACHINE;

         //Gibt es den benötigten Key in Registry?

         if reg.KeyExists('Software\TM\7.0\General') then

            begin

               reg.OpenKey('Software\TM\7.0\General', false);

               neueinlesen:= reg.ReadString('again');

               reg.CloseKey;

               if (neueinlesen = '159') then

                  FormCreate;

  2*          end;

         TimerTimer(self);

         end;

      Timer.Free;

      ClockTimer.Free;

   end;

Problem ist nun folgendes. Lasse ich den Teil zwischen 1* bis 2* weg, läuft das ganze einwandfrei, nehme ich das ganze aber mit in den Quellcode hinein, kann ich den Dienst starten, aber er lässt sich nicht mehr beenden.

Woran kann das liegen? Irgendwer eine Ahnung?

Thread.Execute - Registry auslesen - Problem

Thread.Execute - Registry auslesen - Problem

Forumregeln