[Service] - Hohe Auslastung

[xZise]

Hallo DP,
ich programmiere gerade ein Service für die Schule um besser die Computer zu verwalten.
(Auch das Tool :) )
Dummerweise hat der Service nach der Installation auf einen Windows 2000 Rechner eine hohe Auslastung.
Wobei die Einzige Schleife folgende ist:

Delphi-Quellcode:

procedure TservAdminService.ServiceExecute(Sender: TService);
begin
  while not Terminated do
    ServiceThread.ProcessRequests(false);
end;

Aber die ist nur dafür da, dass Windows den Service nicht vorzeitig beendet.
Oder kommt Windows 2000 damit nicht zurecht.

MfG
xZise

[messie]

Solange Dein Service läuft, wirst Du mit der Routine wohl Deinen Prozessor grillen. Außerdem kann es dauern, bis andere Routinen innerhalb Deines Service ausgeführt wird, weil Application.processmessages o.ä. fehlt.

Also entweder einen eigenen Thread generieren wo die Schleife mit Pausen abgearbeitet wird oder - was in dem Fall günstiger erscheint - mit Messages arbeiten. Da hab' ich zwar wenig Ahnung von aber es wird sicher eine Message geben, mit der Windows die Beendigung des Dienstes mitteilt und worauf Du reagieren kannst.

Grüße, Messie

[DelphiKlaus]

Schreib doch einfach mal True als Parameter in den aufruf von ProcessRequests

MfG

Klaus

[xZise]

Hmmm :) Vielleicht wars das ja nur xD