Einzelnen Beitrag anzeigen

tekkyeah

Registriert seit: 24. Nov 2003
27 Beiträge
 
Delphi 2006 Professional
 
#23

Re: NT-Service starten und dann 50% CPU Auslastung

  Alt 9. Mär 2009, 14:18
Zitat:
Also wenn da wie du ja gepostet hast sonst nichts passiert, bleibt ja eigentlich nur der Timer.
Was passiert, wenn du den deaktivierst? Ist die Auslastung dann runter?
Leider ist die Auslastung immer noch bei 100 %...
Selbst wenn ich (wie unten angegeben) den Timer nicht "enable"

Delphi-Quellcode:
procedure TmesoCRM_Service.ServiceStart(Sender: TService;
  var Started: Boolean);
var
  Ini: TIniFile;
begin
  Timer1.Enabled := False;
  Ini := TIniFile.Create('meine.ini');
  TimerInterval := Ini.ReadInteger('Connection', 'TimerInterval', 0);
  Ini.WriteDateTime('Exim', 'ServiceStarted', Now);
  Ini.Free;
  Timer1.Interval := TimerInterval*60000;
// Timer1.Enabled := True;
  Started := True;
end;
Holger
  Mit Zitat antworten Zitat