Einzelnen Beitrag anzeigen

ueding

Registriert seit: 21. Aug 2005
30 Beiträge
 
Delphi 10.4 Sydney
 
#1

NT-Service starten und dann 50% CPU Auslastung

  Alt 16. Jul 2007, 17:19
Hallo
ich habe mit diesem TUT einen Dienst erstellt
wenn ich jetzt diesen Dienst starte, habe ich 50% CPU Auslastung (dualCore CPU).
Ich habe nachstehenden Code geändert.

Delphi-Quellcode:
procedure TService1.Timer2Timer(Sender: TObject);
begin
 showMessage('timer 2');
end;
Zeitinterwal 10 Sekunden

Delphi-Quellcode:
procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
  showMessage('OnStart');
  Started := True;
  timer2.Enabled := true;
   showMessage('Timer eingeschaltet')
end;
Was muss ich machen damit die CPU Auslastung zurück geht ?

Danke schon mal für Eure HILFE


Gregor
  Mit Zitat antworten Zitat