Hallo,
habe folgenden Test-Service geschrieben:
Delphi-Quellcode:
procedure ServiceController(CtrlCode: DWord); stdcall;
begin
Service1.Controller(CtrlCode);
end;
function TService1.GetServiceController: TServiceController;
begin
Result := ServiceController;
end;
procedure TService1.ServiceExecute(Sender: TService);
begin
while not Terminated do
begin
ServiceThread.ProcessRequests(False);
end;
end;
Läßt sich registrieren und starten - nur hat das Teil durchgehend 100% CPU-Last.
Weiß einer warum?