NT-Service starten und dann 50% CPU Auslastung

[jbg]

Du musst ein wenig Rechenzeit freigeben.

Delphi-Quellcode:

procedure TServiceExecutionRestriction.ServiceExecute(Sender: TService);
begin
  while not Sender.Terminated do
  begin
    Sender.ServiceThread.ProcessRequests(True); // Rechenzeit freigeben
  end;
end;