TService Execute

[value is NULL]

Hi Delphianer..

beschäftige mich seit neuestem mit Services und verstehe so ziemlich das prinzip habe jedoch jetzt folgendes problem:

in meiner execute procedure frage ich alle 2 minuten einen ordner ab, ob sich dateien in diesem befinden.

ich habe das jetzt mal so versucht:

Delphi-Quellcode:

begin
  cache := 0;
  while not terminated do begin
        sleep(4000);
        if cache = 1 then begin
              GetLocaleFormatSettings(GetUserDefaultLCID,mysettings);
              mysettings.ShortTimeFormat := 'hh:mm:ss';
              zeit := TimeToStr(Now,mysettings);
              value := StrtoTime(zeit) + StrToTime('00:01:00');
              cache := 0;
        end;
        while CompareTime(StrToTime(zeit), value) = 0 do begin
                cache := 1;
                sleep(4000);
                logfilest.add(1, 'Cheking Queue...');
                files := Countfilesinfolder('C:\queue', '*.*');
                if files = 0 then begin
                    logfilest.add(1, 'Nothing to do');
                    end
                else
                    logfilest.add(1, 'Something found');
                end;
        end;
  end;

jedoch beendet sich mein Service und schreibt folgende Fehlermeldung in die ereignisanzeige....

"Service fehlgeschlagen bei execute: " ist keine gültige Uhrzeit"
hä?

bzw. hat jemand eine idee wie ich das schöner lösen könnte?!

Danke im Voraus!