Hallo zusammen, interessanter Thread,
ich habe einen Dienst der wunderbar läuft, aber das gleiche Problem mit der Auslastung der CPU.
Dann habe ich das hier gefunden
Zitat:
Delphi-Quellcode:
procedure TServiceExecutionRestriction.ServiceExecute(Sender: TService);
begin
while not Sender.Terminated do
begin
Sender.ServiceThread.ProcessRequests(True); // Rechenzeit freigeben
end;
end;
Nur, wie kann ich das einbinden ?
Die Prozedur wird von Delphi (
BDS 2006) immer abgelehnt...
Kann mir jemand weiterhelfen ?
Gruß
Holger